Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Blattauswahl/ListBox

Betrifft: Blattauswahl/ListBox von: Max
Geschrieben am: 19.09.2004 16:35:27

Hallo,
ist das machbar?

In der unten beigefügten Beispieldatei, wird bei Auswahl eines
ListBoxElements das entsprechende Sheet ausgewählt und der
Blattname beim Aktivieren des Blattes neu eingelesen. Dies trifft
auch dann zu, wenn ein neues Blatt eingefügt wird.

https://www.herber.de/bbs/user/11063.xls

Nun mein Wunsch:
Unabhängig davon, wie viele Blätter ich neu Einfüge, der Blattname
soll sich immer aus den Eintrag in A1 des jeweiligen Blattes ergeben
und die ListBox soll nur mit Blattnamen gefüllt werden, die ein
„V“ als Anfangsbuchstaben enthalten z.B. „V_Einträge“,
„V_Ausgaben“ usw..

Option Explicit

Private Sub lstWks_Click()
   Worksheets(lstWks.Value).Select
End Sub


Private Sub Worksheet_Activate()
   Dim wks As Worksheet
   lstWks.Clear
   For Each wks In Worksheets
      If wks.Name <> "Versicherungen" Then
         lstWks.AddItem wks.Name
      End If
   Next wks
End Sub



Leider bekomme ich das alleine nicht hin .
Gruß
Max
  


Betrifft: AW: Blattauswahl/ListBox von: Bert
Geschrieben am: 19.09.2004 16:43:22

Private Sub Worksheet_Activate()
Dim wks As Worksheet
lstWks.Clear
For Each wks In Worksheets
  If UCase(wks.[a1]) Like "V*" Then
    lstWks.AddItem wks.[a1]
  End If
Next wks
End Sub


Bert


  


Betrifft: Funktioniert noch nicht richtig von: Max
Geschrieben am: 19.09.2004 17:04:12

Hallo Bert,
vielen Dank erst einmal.

Bei Namensgebung mit "V" als Anfangsbuchstaben in A1 erfolgt der gewünschte
Eintrag in der ListBox.
Jedoch, bei Auswahl in der ListBox erscheint dann
"Index außerhalb des gültigen Bereichs", was läuft hier Falsch?

Ist es außerdem nicht möglich, den Namen aus A1 auch im Blattreiter erscheinen
zu lassen?
Gruß
Max


  


Betrifft: AW: Funktioniert noch nicht richtig von: Bert
Geschrieben am: 19.09.2004 17:18:24

da stimmen dann die Blattnamen nicht mit den Texten in A1 überein.
Siehe Beispiel:

https://www.herber.de/bbs/user/11064.xls

Bert


  


Betrifft: Der kleine, aber feine Unterschied von: Max
Geschrieben am: 19.09.2004 17:47:51

Hallo Bert,
der kleine, aber feine Unterschied:

Worksheets(lstWks.Text).Select

statt

Worksheets(lstWks.Value).Select

Danke für Deine Hilfe

Gruß
Max