Private Sub CommandButton1_Click()
Dim raZelle As Range
Dim loLetzte As Long
Set raZelle = Rows(1).Find(ComboBox1, lookat:=xlWhole)
loLetzte = IIf(IsEmpty(Cells(Rows.Count, raZelle.Column)), Cells(Rows.Count, raZelle.Column).End(xlUp).Row, Rows.Count)
Cells(loLetzte + 1, raZelle.Column).Offset(0, 1) = CDbl(TextBox1)
Cells(loLetzte + 1, raZelle.Column).Offset(0, -1) = Date
Set raZelle = Nothing
End Sub
Textbox nicht beschreibbar
Sonnelein 24.09.2009 - 279 Hits - 4 Antworten
variable textbox
gerrryy 14.10.2009 - 127 Hits - 4 Antworten
von Listbox in Textbox kopieren
humline 15.10.2009 - 260 Hits - 1 Antwort
ComboBox Dropdown Liste
fedjo 28.11.2009 - 248 Hits - 7 Antworten
Textbox Eingabe in Tabelle2 eintragen
clancy 09.02.2010 - 334 Hits - 5 Antworten