19. Mai 2019, 18:53
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0413
  E00: Gehe von Anfang bis zum Ende einer Spalte
 Von Renate
 Am 20. September 2008 um 17:58:55
 Frage Was läuft hier falsch?Habe mehrere Zahlen in einer Spalte h stehen.In der Spalte steht jeweil eine Formel(Ganzzahl)Jetzt möchte ich vom Beginn bis zum Ende der Spalte gehen und jeweils in die nächste Spalte einen Zusatz einfügen.Also wenn in Spalte H 1 steht soll in Spalte I Jahre stehen ansonsten Jahr.

Public Sub Jahre_berechnen_Original(iZeile As Integer, iSpalte As Integer)
'Schleife wird solange durchlaufen bis die letzte befüllte Zelle erreicht ist.'

Set Wks_Arbeit = Worksheets("Tabelle2")
Set ilezteZelle = Wks_Arbeit.Range("H65536").End(xlUp).Offset(0, 0)
'letzte befüllte Zeile'

ilezteZelle.Select 'lezte Zeile selektieren'
ilezteZeile = ActiveCell.Row 'Zeile auslesen von lezter Zelle'

Do While Cells(iZeile, iSpalte)
iJahre = Cells(iZeile, iSpalte).Value 'Zelleninhalt an Variable'
Select Case iJahre

Case Is = 1 'wenn iJahre=1'
MsgBox iJahre
Cells(iZeile, 11).Value = "Jahr"
Case Is = 0 'wenn iJahre=0'
Cells(iZeile, 11).Value = "Jahre"
Case Is >= 2 'wenn iJahre<2'
Cells(iZeile, 7).Value = "Jahre"

End Select

iZeile = iZeile + 1
If (ActiveCell.Row = ilezteZeile) Then Exit Do 'wenn die Durchgänge erreicht sind dann Schleife beenden'
Loop

End Sub
[ VB-/VBA-Forum | Archiv 0413 | Archiv-Übersicht ]
 Antworten
E00: Gehe von Anfang bis zum Ende einer Spalte - Renate 20. September 2008 um 17:58:55
Re: Gehe von Anfang bis zum Ende einer Spalte - Richard 21. September 2008 um 18:10:55

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum