title image


Smiley Re: Blattnamen in Array angeben und dann per Schleife
Hallo, nein geht nicht. Es erscheinen die Daten aus "Daueraufträge" 2x untereinander. Hier der vollständige Code:



Private Sub FillListBox2(Suchbegriff As String)





Dim anzahlZeilen As Long

anzahlZeilen = Worksheets(4).Cells(Worksheets(4).Rows.Count, Worksheets(4).Range("A2").Column).End(xlUp).Row

'anzahlZeilen2 = Worksheets(5).Cells(Worksheets(5).Rows.Count, Worksheets(5).Range("A2").Column).End(xlUp).Row

Tabelle4.Activate

ListBox2.Clear



Dim z As Range





tblsuche = Array("Daueraufträge", "Lastschriften") 'Blattnamen angeben

For tbl = 0 To UBound(tblsuche)

For Each z In Worksheets(tblsuche(tbl)).Range("A2:A" & anzahlZeilen)

'Deine Anweisungen

If Month(z) = Month(Date) + 1 Then

ListBox2.AddItem z.Address

ListBox2.List(Zeile, 0) = Cells(z.Row, z.Column + 0)

ListBox2.List(Zeile, 1) = Cells(z.Row, z.Column + 1)

ListBox2.List(Zeile, 1) = Format(Cells(z.Row, z.Column + 1), "#0.00 €")

'ListBox2.List(Zeile, 1) = VertikalAlignment = xlRight

ListBox2.List(Zeile, 2) = Cells(z.Row, z.Column + 2)



Zeile = Zeile + 1

End If



Next

Next







If ListBox2.ListCount = 0 Then

MsgBox ("nichts gefunden")

Exit Sub

End If





End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: