Laufzeitfehler 1004
03.09.2013 15:47:37
Christian
Private Sub CommandButton_Einfügen_Click()
ID = TextBox_MyPortal_ID.Value
' Suche Spalte B nach erster leerer Zelle
' Columns("B:B").Select
' Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
' :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
' False, SearchFormat:=False).Activate
' Active Zelle Datum eintragen
ActiveCell = ID
End Sub
Warum bekomme ich den genannten Laufzeitfehler