Do While
Volker
Sub BlattVorAufbau()
Dim l As Integer
Sheets("Vor1").Activate
Range("N7").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = "j" Then
ActiveCell.Offset(-1, -13).Select
ActiveCell.Value = "l"
ActiveCell.Offset(4, 13).Select
Else
ActiveCell.Offset(3, 0).Select
End If
Loop
End Sub
Hallo und guten Morgen!!!
Muß euch mal wieder um Hilfe bitten.
Habe hir eine Do While-Schleife,die auf N7 prüft ob ein j vorhanden ist.
Bei ja springt er nach A6 und schreibt ein l.
Dann verläßt er leider die Schleife.
Er sollte dann nach N10 gehen und dort nachsehen ob da ein j vorhanden ist.
was mach ich falsch? Bitte um Hilfe.
Betanke mich bei euch und freue mich das es euch gibt!!!
gruß Volker