Private Sub CommandButton1_Click()
'Schreibt Auftrags-Nr. in nächste leere Zelle in Spalte D
Dim WkSh As Worksheet
Set WkSh = Worksheets("Tabelle1")
With Range("D7").End(xlDown).Offset(7, 0)
.Value = TextBox1
End With
End Sub
Cells(Rows.Count, 1).End(xlup).offset(1, 0).Value = Textbox1.Text
columns(1).find(what:="", lookat:=xlwhole, lookin:=xlformulas).value = Textbox1.Text
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