Bereich in listbox eintragen

[michel34497]

Halo Leute,
brauche mal wieder eure Hilfe.
Über einen Code den ich schon habe, möchte ich in der Tabelle einen wert suchen das funktiniert auch.

Code:

                   KurzW = Vorschau.lst_Anzeige.List(Vorschau.lst_Anzeige.ListIndex, 1)
                       auswahl = Vorschau.lst_Masch.List(Vorschau.lst_Masch.ListIndex)
                           Set rngZelle = Sheets(auswahl).Range("M2:CP3").Find(KurzW, lookat:=xlWhole, LookIn:=xlValues)   'Nach Kürzel suchen

Danach sollen alle werte die darunter stehen in ein ListBox (lst_Anzeige2)eingetragen werden
Versucht habe ich es damit

Code:

       With Vorschau.lst_Anzeige2
               Do While Sheets(auswahl).Cells(rngZelle.Row + 1, rngZelle.Column).Value <> ""
                     If z = 0 Then
                        .AddItem Sheets(auswahl).Cells(rngZelle.Row + 1, rngZelle.Column)
                        .List(.ListCount - 1, 1) = Sheets(auswahl).Cells(rngZelle.Row + 1, rngZelle.Column + 1)
                         z = z + 1
                       Else
                         .AddItem Sheets(auswahl).Cells(rngZelle.Row + 1, rngZelle.Column)
                         .List(.ListCount - 1, 1) = Sheets(auswahl).Cells(rngZelle.Row + 1, rngZelle.Column + 1)
                     End If
                 'rngZelle.Row = rngZelle.Row + 1
                 lngC = lngC + 1
               Loop
       End With

Das ist das was ich erarbeitet habe aber nicht mit den richtigen erfolg.
Ich bekomme es aber nicht hin das die Spallte bis zur letzten beschrieben Zelle in die listbox eingetragen wird
Ich brauche mal einen Tip!

Das ganze ist in der Vorschau/Filter/lst_Masch/lst_Anzeige

[schauan]

Hallo,

Deine Datei habe ich mir jetzt nicht angeschaut.
In Deiner geposteten Schleife habe ich nix gefunden, was Deine Zeilennummer verändert.

Ich finde überall nur rngZelle.Row + 1

Entsprechend "schleifst" Du nur in der gleichen Zelle. Du hast zwar einen Zähler z und einen lngC, aber die verarbeitest Du nicht bei den Zellangaben.

Wenn Du eine Spalte nach unten durchgehen willst, müsstest Du z.B. überall z mitnehmen
rngZelle.Row + 1 + z
und z auch im else-Zweig um 1 erhöhen. Allerdings hätten beide Zweige dann keinen Unterschied mehr und Du könntest Dir If und Else und den zweiten Zweig sparen.