(12.09.2016, 13:10)IchBinIch schrieb: Dann sind das die Informationen die Du pro Bauvorhaben erfasst:
Arbeitsblatt mit dem Namen 'Tabelle1'
A
B
C
D
E
F
G
1
Jahr
KW
Datum
Wochentag
Bauvorhaben
Auto
Monteur
Ja, Genau. Monteur und Auto per Dropdownauswahl. Hast du vielleicht gesehen. Den Monteuren ist noch eine Farbe hinterlegt um den Führerschein anzuzeigen den sie besitzen. Doppelte Werte werden Rot.
du hattest ja schon die Überschrift und die Weiterleitung getrennt. Ich würde es optisch noch anders aufteilen.
Dein Problem ist dann nur noch, dass man von einem Kalenderwochenblatt nicht zweimal hintereinander zum gleiche andern Kalenderwochenblatt springen kann, da ja kein Change-Ereignis anspringt.
Das kann man beheben, indem man vor dem Wechsel des Arbeitsblattes den Inhalt der Box zurücksetzt.
Code:
Option Explicit
Private Sub ComboBox1_Change()
Dim strName As String
strName = ComboBox1.Value
ComboBox1.Value = ActiveSheet.Name
Worksheets(strName).Activate
End Sub
Siehe Anlage:
helmut
Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität. Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen."
Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.
Folgende(r) 1 Nutzer sagt Danke an Ego für diesen Beitrag:1 Nutzer sagt Danke an Ego für diesen Beitrag 28 • TimoK
du hattest ja schon die Überschrift und die Weiterleitung getrennt. Ich würde es optisch noch anders aufteilen.
Dein Problem ist dann nur noch, dass man von einem Kalenderwochenblatt nicht zweimal hintereinander zum gleiche andern Kalenderwochenblatt springen kann, da ja kein Change-Ereignis anspringt.
Das kann man beheben, indem man vor dem Wechsel des Arbeitsblattes den Inhalt der Box zurücksetzt.
Code:
Option Explicit
Private Sub ComboBox1_Change()
Dim strName As String
strName = ComboBox1.Value
ComboBox1.Value = ActiveSheet.Name
Worksheets(strName).Activate
End Sub
Siehe Anlage:
Wow. Das klappt ja schon ganz gut. Aber ich muss jetzt alle 52 Tabellen eingeblendet lassen stimmts?
Super, die Versionen sind alle super. Jedoch hab ich noch eine Frage die ich am besten hier in dem Thread lasse.
Wie bekomm ich es hin, dass ich meinen erstellten Dropdownlisten jederzeit Einträge hinzu- bzw. entfernen kann, und dieser dann auch Farblich
für Führerschein gekennzeichnet ist. Momentan mache ich das über die Bedingte Formatierung aber dort muss ich ja immer die Formatierung neu
übertragen.
Wenn wir jetzt einen neuen Mitarbeiter bekommen, möchte ich ja nicht 52 Tabellenblätter neu formatieren.
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
