For Next Schleife
27.02.2004 09:42:29
Peter
ich versuche folgendes zu erreichen.
In Spalte H nach "NEIN" suchen => in dieser Zeile in die spalte C springen=>
zelle Kopieren=>in der Spalte A die erste leere Zelle finden=> inhalte Einfügen"nur Werte" und wieder vom Anfang in Spalte H Nach "Nein"Suchen usw.
Hier mein Versuch das umzusetzen.
Bitte sagt mir den Fehler:
Sub nichtbuchen()
Dim i
Dim s
For i = 1 To 100 Step 1
If Cells(i, 8).Value = "NEIN" Then
Cells(i, 8).Activate
ActiveCell.Offset(0, -5).Select
End If
ActiveCell.Select
Selection.Copy
'Bis Hierher scheint alles zu klappen
For s = 1 To 100 Step 1
If Cells(s, 1).Value = "" Then
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next s
Next i
End Sub
Danke für jede Hilfe
Gruss Peter