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 |
(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.
Ja habe ich :32:
Ich klemme mich mal dahinter wenn Du willst. Aber das kann ein paar Tage dauern.
Gruß
Ich
(12.09.2016, 13:20)IchBinIch schrieb: [ -> ]Ja habe ich :32:
Ich klemme mich mal dahinter wenn Du willst. Aber das kann ein paar Tage dauern.
Gruß
Ich
Wow, das würdest du tun? Das wäre absolut Wahnsinn. :38: :71:
Hallo Timo,
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:
(12.09.2016, 13:26)Ego schrieb: [ -> ]Hallo Timo,
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.
(12.09.2016, 14:30)Kuwer schrieb: [ -> ]Hallo,
teste mal damit:
Gruß Uwe
Das funktioniert gut, aber leider nicht mit 52 Tabellenblättern. Ich schicke die Datei mal rein.