Tabelle über Textbox füllen
04.07.2005 11:17:04
Tinu
Mit folgendem Code fülle ich eine Tabelle über eine Userform mit Textbox:
Private Sub EnterButton_Click()
Dim iRow As Integer
iRow = ActiveSheet.Cells(1, 1).End(xlDown).Row + 1
ActiveSheet.Cells(iRow, 1) = TextBox1.Text
Me.Hide
End Sub
Der Code steht in der User Form. Das Ganze funktioniert nun aber nur, wenn in den ersten zwei Zeilen der Tabelle schon etwas steht. Wenn das Tabellenblatt ganz leer ist oder erst eine Titelzeile da steht, dann bekomme ich eine Fehlermeldung.
Woran kann das liegen?
Besten Dank für euere Hilfe.
Gruss
Tinu
Anzeige