Hallo,
will folgendes realisieren. Und zwar soll jede Zelle in einer Zeile geprüft werden, ob diese ein Inhalt hat. Ist diese leer, soll sich eine Combobox mit einer Auswahl öffnen, wo man dort dann den Zelleninhalt eintragen kann. Komme mit meinen Code nur bis zum öffnen der Userform bei der ersten Zelle.
sub leer()
Dim i As Long
i = 1
Do While Tabelle1.Cells(1, i) = ""
If Tabelle1.Cells(1, i) = "" Then
UserForm1.Show
End If
i = i + 1
Loop
End sub
Sub CommandButton1_Click()
ActiveCell.Value = ComboBox1.Value
UserForm1.Hide
End Sub
Geht das überhaupt mit einer Schleife? Bin über jede Hilfe dankbar.
|