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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen