Von |
Michael63 |
Am |
19. Februar 2008 um 12:41:06 |
Frage |
hallo Forum, benötige nochmal eure Hilfe! Lasse mir eine Listbox füllen mit:
For Each wks In ActiveWorkbook.Worksheets ListBox1.AddItem wks.Name Next das klappt auch wunderbar.
Weiterhin wird in dem ausgewählten Worksheet der Listbox ein Bereich in dem Worksheet markiert:
Dim lngZeile As Long For lngZeile = 1 To Range("A56536").End(xlUp).Row Rows(lngZeile).Interior.ColorIndex = xlNone Select Case Cells(lngZeile, 5).Text Case "AAQ", "ABA", "ABZ" das klappt auch... nur möchte ich nun, das immer der erste Eintrag in der Listbox gewählt werden muss und dann die angezeigten Worksheets in der Listbox nacheinander mit der Prozedur für markieren abgearbeitet werden. Zur Zeit muss ich immer erst einen Eintrag aus der Listbox wählen und dann wird nur die gewählte Seite markiert.
Hoffe das Problem wurde verstanden. Danke schonmal für eure Hilfe.
Gruß Michael
|
|