Clever-Excel-Forum - Multiselect in Zellen übernehmen

Guten Abend miteinander,

ich würde gern die Daten aus meiner Multiselect Auswahl in Zellen meines Tabellenblatts übernehmen.

Folgenden Code habe ich dazu gefunden bzw versucht anzupassen.
Was müsste ich ändern, damit die Daten erst ab Zelle CE7 eingetragen werden?

Code:
Dim lListBox  As Long

Dim lZeile    As Long

   With ThisWorkbook.Worksheets("Tabelle1")

      .Range("CE7:CE" & .Cells(Rows.Count, 83).End(xlUp).Row).ClearContents

      For lListBox = 0 To ListBox3.ListCount - 1

         If ListBox3.Selected(lListBox) Then

            lZeile = lZeile + 1

            .Range("CE" & lZeile).Value = ListBox3.List(lListBox, 0)

         End If

      Next lListBox

   End With

End Sub

Vielen Dank schon im Voraus

Hallo Klaus

setzt die Variable lZeile nach Dim und vor For Next auf den Wert 6, du erhöhst ja nochmal um 1! lZeile = 6

mfg Gast 123

Hallo Gast,
ich danke Dir für deine Hilfe.

Nur versuche ich die Antwort zu verstehen. Sorry das ich das so amateurhaft zerpflücke.

"setzt die Variable lZeile nach Dim und vor For Next..."

"For Next"?
ich vermute du meinst "Next"

dann wäre das diese Zeile?
lZeile = lZeile + 1

Aber egal wo ich dann =6 einbaue kommt nur Unsinn raus.

Kannst du mir nochmal einen Tipp geben bitte?

...schnief... ich kriegs nicht hin...
please help me :22:

Code:
...

Dim lZeile    As Long

lZeile = 6

  With ThisWorkbook.Worksheets("Tabelle1")

...

lZeile ist ansonsten erst mal 0. Daher legst du vor der Schleife ("For Next") fest, wie groß lZeile sein soll.

Guten Abend MisterBurns,

ich danke Dir herzlich.

Es funktioniert nun wie angedacht.
Auf diese Zeile wäre ich ja nun gar nicht gekommen. Dim und As Long weg zu lassen... nee nee... das hatte ich mangels Ahnung ausgeschlossen.

Nochmals besten Dank.
Liebe Grüße
Klaus