Blattauswahl/ListBox
19.09.2004 16:35:27
Max
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