Schleifen begrenzen
Jeron
ich habe folgendes Problem bei einem Userform:
Ich möchte ein Makro kreieren, das den Zellenbereich H12:J16 auf Einträge überprüft.
Sobald eine Leere Zelle gefunden, soll der Wert aus ComboBox1 eingetragen werden, aber nur so oft wie
in ComboBox2 (Werte "1-4") ausgewählt.
Beispiel:
Eingabe:
ComboBox1: Hallo
ComboBox2: 4
Ausgabe:
H12: hier ist schon ein Wert vorhanden, deswegen wird nichts eingetragen
H13: hier ist schon ein Wert vorhanden, deswegen wird nichts eingetragen
Erst ab H14 kann Hallo eingegeben werden und zwar dann viermal
H14 Hallo
H15 Hallo
H16 Hallo
I12 Hallo
Ich habe für die Prüfung der Zellen auf Inhalt folgenden Code:
Private Sub CommandButton1_Click()
With Sheets("Jahresplanung")
Dim c As Range
For Each c In Range("H12:J16").Cells
If c.Value = Empty Then c.Value = ComboBox1
Next
End With
Nur weiß ich nicht wie ich den Schleifendurchlauf auf die Eingabe von ComboBox2(Werte von 1-4) begrenzen kann.
Hat jemand für euch vielleicht bitte einen guten Tipp für mich?
Beste Grüße aus München,
Jeron