Wie kann ich ein Eintrag im Textfeld1 an Tabelle1 in Spallte B2 eintragen
Die Daten sollen nur eingetragen werden, wenn der Einfüge Button betätigt wurde.
Danke
Worksheets("Tabelle1").Range("B2") = Textbox1
With Worksheets("Tabelle1")
.Cells(.Cells(.Rows.Count, 2).End(xlUp).Row + 1, 2) = Textbox1
End With
Worksheets("Tabelle1").Range("B2") = Textbox1
Private Sub CommandButton_Einfügen_Click()
Dim ID As Label
ID = TextBox_MyPortal_ID
' Beginn in Zelle B3
Range("B3").Select
' wenn active Zelle nicht leer ist ("")
If ActiveCell "" Then
' dann von aktiver Zelle eine weiter nach unten
Ich möchte über ein Textfeld ein Eintrag in einer Tabelle vornehmen
Bedingungen sind: 1. Active Zelle B3
Sollte B2 voll sein, dann Eintrag in B4 u.s.
In meinem Code bekomme ich die Meldung
Objektvariabloe oder With Blockvariable nicht festgelegt
ActiveCell.Offset(1, 0).Select
' hier kann dann der Wert aus der Textbox eingetragen werden (eine Zeile tiefer)
ActiveCell = ID
' wenn die Zelle leer ist, dann
Else
' hier kann dann der Wert aus der Textbox eingetragen werden (gleiche Zeile)
ActiveCell = ID
' beendet die wenn, sonst Abfrage
End If
' beendet das Makro
End Sub