Option Explicit
Private Sub CommandButton1_Click()
'Variable deklarieren
Dim erste_freie_Zeile As Integer
'erste freie Zeile in Blatt "Bestellplattform" ermitteln
'und in Variable "erste_freie_Zeile" schreiben
erste_freie_Zeile = Sheets("BPF").Range("A65536").End(xlUp).Offset(1, 0).Row
'In Blatt "Bestellplattform"
'With Sheets("BPF")
End Sub
'
Private Sub UserForm_Initialize()
'TextBox1 = Format(Date, "DD.MM.YYYY")
'End Sub
Das is der Code fetzen den ich bis jetzt habe...
so in das erste Feld soll das heutige (aktuelle) Datum. funktioniert ja ganz gut mit UserForm_Initialize()
entweder hab ich jetzt n Brett vo dem Kopf oder isses wirklich so schwer, wie bekomme ich nun dieses Datum in die nächste freie Zelle von Spalte 12?
so hatte ich es bisher gelöst:
'Spalte L_DATUM
'Sheets("BPF").Cells(erste_freie_Zeile, 12) = CDate(TextBox1.Text)
Musste aber hier ja das Datum von hand eingeben. Will ich nicht mehr, bin faul :)
Das nächste Problem vor dem ich steh betrifft Textbox 2 in dem eine fortlaufende Zahl eingetragen sein soll.
So in etwa:
Schau in Spalte 1 was die letzte Zahl war und addiere +1 und trage in die nächste freie Zelle von Spalte 1 bei click auf Übernehmen mit ein.
Kann jemand helfen?
Vielen Dank
Gerhard