title image


Smiley Listbox (Excel 2003) in Userform soll über 2 Tabellenblätter suchen
Hallo Forum, ich brauche eure Hilfe. Ich will in der Schleife über 2 Tabellenblätter suchen, "Daueraufträge" und "Lastschriften". Der Aufbau der Tabellenblätter ist identisch. Wie muss ich die Schleife erweitern, damit ich über die 2 Blätter suchen kann?



For Each z In Worksheets("Daueraufträge").Range("A2:A" & anzahlZeilen)

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

Vielen Dank im voraus, Thomas

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: