Multiselect in Zellen übernehmen

[Klaus]

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

[Gast 123]

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

[Klaus]

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?

[Klaus]

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

[MisterBurns]

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.

[Klaus]

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