hab das Problem, dass ich benutzerdefinerte Ansichten mit einem DropDown Menu in Verbindung bringen möchte.
seht euch meine Datei an, da wird euch das Problem schnell klar
https://www.herber.de/bbs/user/23205.xls
Schöne Grüsse
Matthias
Sub AnsichtWechseln()
Dim Wert As String
Wert = Sheets("Tabelle2").Range("A1").Text 'dort steht Monat1 - Monat2
Wert = Trim(Right(Wert, Len(Wert) - InStrRev(Wert, "-"))) 'Monat2 extrahieren
On Error Resume Next
ActiveWorkbook.CustomViews(Wert).Show
If Err.Number > 0 Then MsgBox "Ansicht " & Wert & " nicht gefunden.", vbCritical, "Fehler"
End Sub
In Zelle A1 der Tabelle2, welche zum Auslesen des gewählten DropDown- Textes genommen wird, schreibe : =INDEX(A4:A15;A16+1;1)
Gruss- Micha
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen