jetzt fehlt mir die Schleife

[DieterB]

So dala

in meinem Code passiert was (tatsächlich)

Das soll passierem, solange in Spalte "A" was steht, und in Spalte "Z" nix steht.
Mir fehlt die Schhleife dazu. Damit geht das ganze los:

loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

loletzte als long definiert.

[Gast 123]

Hallo Dieter

warum loletzte so kompliziert, mit If Auswertung?  Geht auch einfacher.  Hier mal ein Code zum spielen.
Wenn For Next mit der Zeile 1 beginnen soll bitte selbst aendern, so startet er ab der Zeile 2.

mfg  Gast 123

Code:

Sub Test()
loletzte = Cells(Rows.Count, 1).End(xlUp).Row

'Schleife ab Zeile 2 bis loletzte
For j = 2 To loletzte
  If Cells(j, "A") <> "" And Cells(j, "Z") = Empty Then
 
  'Hier dein Ereignis was du machen willst ........
 
  End If
Next j
End Sub

[DieterB]

warum loletzte so kompliziert, mit If Auswertung

vermutl weil heute (Pfingstsonntag) das Denken eingeschränkt wurde. Danke erstmal

[schauan]

Hallöchen,

So eine "kompliziere" Lösung ist eigentlich dafür gedacht, dass man bei einer leeren Spalte auch in die Zeile 1 kommt... Ich glaube aber, die sieht noch etwas anders aus .Bin gerade am Smartphone und da sieht einiges anders aus

[DieterB]

Geil. läuft

danke und schönes Rest-WE