Thema: Leere Zelle auswählen | Herbers Excel-Forum

Guten Morgen zusammen,
ich versuche in eine Tabelle mittels Userform-Combobox Daten zu übergeben.
Ich möchte die Daten nebeneinander aufgelistet haben. Das versuche ich mittels unten stehendem Code.
Anscheinend habe ich irgendwo einen (Denk)-Fehler, denn es funktieniert nur bis zur zweiten Zelle
Also:Wenn in B4 ein Wert steht, schickt die Userform die Daten nach C4 soweit korrekt.
Aber wenn in C4 ein Wert steht, wird C4 überschrieben.
Nun zwei Fragen: Wo liegt der Fehler? Kann man diese Problematik auch eleganter Lösen?

Private Sub CommandButton2_Click()
If ActiveCell.Offset(0, 1) <> "" Then
ActiveCell.Offset(0, 2) = ComboBox1
Else: ActiveCell.Offset(0, 1) = ComboBox1
If ActiveCell.Offset(0, 1) And ActiveCell.Offset(0, 2) <> "" Then
ActiveCell.Offset(0, 3) = ComboBox1
Else: ActiveCell.Offset(0, 2) = ComboBox1
If ActiveCell.Offset(0, 1) And ActiveCell.Offset(0, 2) And ActiveCell.Offset(0, 3) <> "" Then
ActiveCell.Offset(0, 4) = ComboBox1
Else: ActiveCell.Offset(0, 3) = ComboBox1
End If
End If
End If
End Sub

Danke für Eure Mühe
Gruß
Volker

Hallo Volker,
bei sowas hilft es, den Code in Einzelschritten durchlaufen zu lassen.
Deine erste IF-Bedingung ist auch TRUE, wenn in der 2. Zelle schon was steht.
Gruß
Björn B

Hallo Björn B.
als erstes Danke für Deine Antwort. Das leuchtet ein. aber wie kann ich das verhindern? bzw. wie muß ich den Code ändern? Würdest Du mir bitte einen Ansatz geben?
Danke und Gruß
Volker

Hallo,

Dim i As Integer
Do
If ActiveCell.Offset(0, i) = "" Then
ActiveCell.Offset(0, i) = ComboBox1
Exit Sub
Else
i = i + 1
End If
Loop While ActiveCell.Offset(0, i - 1) <> ""

Gruß
Björn B.

Hallo Björn B.
Danke das funktioniert!
Gruß
Volker