Herbers Excel/VBA-Archiv

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

Blattauswahl/ListBox

• Blattauswahl/ListBox von Max vom 19.09.2004 16:35:27
• AW: Blattauswahl/ListBox - von Bert am 19.09.2004 16:43:22
  • Funktioniert noch nicht richtig - von Max am 19.09.2004 17:04:12
    • AW: Funktioniert noch nicht richtig - von Bert am 19.09.2004 17:18:24
      • Der kleine, aber feine Unterschied - von Max am 19.09.2004 17:47:51

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