Dropdownlisten
02.06.2022 11:46:10
Yannik
kurz zu dem an was ich Arbeite:
Ich schreibe alle Existierende und in der Zukunft erstellte Tabellen in Spalte A1 fortlaufend, aus dieser Liste erstelle ich eine Dropdownliste die sich entsprechend anpasst bei neu hinzugefügten Tabellen. Mit der Hyperlink Funktion wechsle ich dann auf die in der Dropdownliste ausgewählte Tabelle
Hab einiges an Code entfernt da er das ganze nur unnötig kompliziert.
Private Sub Worksheet_Activate()
Dim TocSheet As Worksheet
Dim j, i As Integer
i = 1
Set TocSheet = Tabelle1
For j = 2 To Sheets.Count
If TocSheet.CodeName = "Tabelle1" Then
If IsNumeric(Sheets(j).Name) Then
Cells(i, 1).NumberFormat = "@"
Cells(i, 1).HorizontalAlignment = xlLeft
End If
Cells(i, 1) = Sheets(j).Name
End If
i = i + 1
Next j
End Sub
Das TocSheet ist in diesem Fall die Tabelle 1 "Macro"Die Dropdownlisten werden gleich erstellt.
Quelle:
=Macro!$A:$A
für die Dropdownliste in der Tabelle Monat in der Zeile K1Quelle:
=$A:$A
für die Dropdownliste in der Tabelle Monat in der Zelle L1 Die Hyperlinks befinden sich genau darunter in K2 und L2
Der unterschied ist nur das eben bei der Ersten das auf Werte einer Anderen Tabelle zugegriffen wird und bei der zweiten auf Werte in der selben Tabelle
Ich bin mir nicht sicher warum, aber wenn ich diesen Code laufen lasse funktioniert die Dropdownliste ohne leere Zellen welche in einer anderen Tabelle ist, wenn jedoch die Dropdownliste in der gleichen Tabelle ist wie das TocSheet dann wird die Dropdownliste mit allen leeren Zellen ausgegeben. Warum und wie kann ich dies beheben?
Link zur Datei: https://www.herber.de/bbs/user/153383.xlsx
Danke im Voraus