Syntax in VBA-Modul ist falsch
14.11.2007 07:29:13
Wilfried
Mein kleines Problem:
Sub Makro1()
Dim z As Long
For z = 10000 To 255 Step -1
If Application.CountA(Range(Cells(z, 2), Cells(z, 56))) > 0 Then Exit For
Next
Rows("2:2").Select
Selection.Copy
'z = 3560
'Wie kann ich 3560 mit z ersetzten?
Rows("3:3560").Select
'Rows("3:z").Select funktioniert nicht!
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Select
End Sub
Kann mir jemand auf die Sprünge helfen?
Gruß
Wilfried