Erste Freie Zeile ab Zeile X

[LCohen]

j = "Test"
If [E9] = "" Then [E9] = j Else If [E10] = "" Then [E10] = j Else Range("E9").End(xlDown).Offset(1, 0) = j

ungetestet
[E9:E10] sind so zu behandelnde Ausnahmen, wenn man es mit .End() erledigt.

[PhilippB]

Läuft. Wow geil danke.

Kannst du mir noch bitte verraten wie ich die IF Anweisung jetzt mit in den Code einpflegen könnte ?

Code:

j = ComboBox1
If [I5] = "" Then [I5] = j Else If [I6] = "" Then [I6] = j Else Range("I5").End(xlDown).Offset(1, 0) = j


If ComboBox1 = "Technik" Then
Worksheets("Berechnungsblatt").Range("I5").Value = ""
Else
Worksheets("Berechnungsblatt").Range("I5").Value = ComboBox1
End If

[schauan]

Hallöchen,

Kopieren und an passender Stelle einfügen?
Aus dem bisherigen Threadverlauf geht leider nicht hervor, ob Du mit der Lösung einen vorhandenen Code ersetzen willst, oder eine zusätzliche Aktion ausführen oder das eventuell an Bedingungen knüpfen willst. Oder ich habe da was übersehen