Leere Zelle auswählen
Volker
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
Gruß
Volker