Mit Userform Zellen auf Inhalt pruefen
Jeron
ich bräuchte bitte eure Hilfe bei der Erstellung eines Codes für ein Userform.
Die Spalte H12:I17 auf Tabellenblatt "Jahresplanung" soll auf Inhalt überpüft werden.
Sobald eine Zelle keinen Inhalt aufweist, soll der Eingabewert von ComboBox1 eingetragen werden.
Das dachte ich bekomme ich auch noch selbst hin, der Code funktioniert aber nicht.
Zusätzlich möchte ich auch noch, dass die Eingabe von ComboBox 2 berücksichtigt wird.
Dort kann man Zahlen von 1 - 4 auswählen.
Wenn ich jetzt eine Eingabe in ComboBox1 mache, z.B. Hallo und in ComboBox2 die Zahl "2" auswähle
soll der Code "Hallo" in H12 und H13 eintragen, wenn diese Zellen leer sind.
Hier mein Code:
Private Sub CommandButton1_Click()
' hier soll der Wert in den Tabellenbereich H12:I17 ausgegeben werden,
'so oft wie hoch die Zahl in ComboBox2 ist
'Soll heißen wenn Auswahl von ComboBox2 = "2" dann soll zweimal die Eingabe von ComboBox1
'in den Zellenbereich H12:I17 eingetragen werden
With Sheets("Jahresplanung")
Dim c As Range
For Each c In Range("H12:I17").Cells
If c.Value Empty Then c.Value = ComboBox1
Next
End With
End Sub
Beste Grüße aus München,
Jeron
Anzeige