ich fange gerade an mich mit Vba zu beschäftigen und versuche gerade ein einfaches Userform zu generieren.
Dies soll wie folgt aussehen.
- 1 Combobox mit verschiedenen Nummern (Spalte H) -> eine Nummer bzw. Reihe wird ausgewählt.
- 1 Button der nach Auswahl der Nummer gedrückt wird. In die Spalte E soll nun das aktuelle Datum eingefügt werden.
Die Nummer kann auch öfter vorkommen, hier sollten alle Zeilen aktualisiert werden.
Ich habe es geschafft die Combobox mit meinen benötigten Nummern zu füllen, weiß aber leider nicht mehr weiter :D
Für Hilfe währe ich super dankbar.
Mein Code bisher
Private Sub UserForm_Initialize()
Dim Zelle As Range
ComboBox1.Clear
With ActiveSheet
For Each Zelle In .Range(.Range("H6"), .Range("H550").End(xlDown))
If Zelle.Value "" Then ComboBox1.AddItem Zelle.Value
Next
End With
End Sub
Grüße
Leon