Hallo zusammen,
derzeit starte ich meine ersten Gehversuche in Sachen VBA und möchte eine Offene-Punkte-Liste (OPL) für ein Projekt erstellen.
Die erste Testdatei hat folgende Spalten: A - lfd. Nr., B - Datum, C - KW, D - Bearbeiter
Ich habe ein Formular zur Eingabe erstellt um möchte automatisch die lfd. Nr. von 0001 ab, das Datum, sowie die aktuelle Kalenderwoche
bereits im Forumlar eingetragen haben. Das Datum ist kein Problem... aber bei der lfd. Nr. sowie der Kalenderwoche komme ich nicht weiter.
Habt ihr eine Idee? Anbei der Code... Würde mich freuen, wenn ihr mir helfen könnt.
Gruß
Stefan
Private Sub cmdEingabe_Click()
'Fügt eingetragene Werte in Tabellenblatt und schließt das Formular frmMaske
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 1).Value = Me.txtLfdNr.Value
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = CDate(Me.txtDatum.Value)
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.txtKW.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txtBearbeiter.Value
Unload frmMaske
End Sub
|