28. März 2024, 13:07
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0405
  E02: Listbox
 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

[ VB-/VBA-Forum | Archiv 0405 | Archiv-Übersicht ]
 Antworten
E02: Listbox - Michael63 19. Februar 2008 um 12:41:06
Re: Listbox - Detlev Schubert 19. Februar 2008 um 15:02:43

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum