Fehlermeldung beim Buttonclick
07.07.2006 09:34:05
artur
Folgendes Problemchen,
ich habe ein Makro gebastellt, welches mir die letzte frei Zelle per Buttonclick markeirt:
Private Sub CommandButton1_Click()
Dim i As Long
Dim x As Long
Abfrage = MsgBox("Wurden die Daten aktualisert?", vbYesNo + vbQuestion, "Sicherheitsabfrage")
If Abfrage = vbYes Then
For x = 1 To 3
With Worksheets(x).Activate
i = Range("A65536").End(xlUp).Offset(0, 0).Row
Cells(i + 1, 1).Select
End With
Next x
End If
End Sub
Hmm, nun kommt hierbei die ganzen Zeit die Fehlermeldung "Laufzeitfehler 1004".
Woran kann das liegen?
Vielen Dank im Voraus
mfg
artur
Anzeige