Kopieren
19.06.2004 16:08:17
Erich
Ich habe folgendes Problem.
Wenn ich den Code in Einzelschritt (F8) durchlaufen lasse funktioniert
er einwandfrei. Beim Click auf den Button kommt in der Zeile 7
folgende Meldung "Die Copy-Methode des Range-Objektes ist fehlerhaft.
Wo habe ich den Fehler eingebaut?
Private Sub CommandButton2_Click()
Dim i%
Dim r As Range
x = Range("A65536").End(xlUp).Row 'letze benutze zeile
For i = 1 To x
If Worksheets(1).Cells(i, 1).Value = "x" Then i = ActiveCell.Row
Range("h" & i & ":l" & i).Copy Destination:=Sheets("Tabelle2").Cells(Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Next i
End Sub
Für eine Antwort wäre ich froh
Gruss Erich