Fehler bei Range und Datenübergabe
15.03.2003 14:42:56
Thorsten
hab ein kleines problem.
Sub Kunden_eintragen()
Dim KdNr As String
KdNr = InputBox("Geben Sie die neue Kundennummer ein:")
Range("A65536").End(xlUp).Offset(1, 1).Select
Range(ActiveCell.Row, 1) = KdNr
End Sub
ich möchte per inputbox eine kundennummer eingeben die er in die letzte zelle einträgt.
er springt problemlos zu dieser zelle, aber
Range(ActiveCell.Row, 1) = KdNr
spuckt mir immer einen lauzeitfehlerfehler aus
was muss ich tun damit die variable KdNr genau in diese letze Zeile geschrieben wird die ja auch problemlos ermittelt wird?
danke im voraus