Tabellenwechsel per Dropdown-ComboBox

[IchBinIch]

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

[TimoK]

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.

[IchBinIch]

Ja habe ich :32:

Ich klemme mich mal dahinter wenn Du willst. Aber das kann ein paar Tage dauern.

Gruß
Ich

[TimoK]

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:

[Ego]

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:

[TimoK]

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?

[Kuwer]

Hallo,

teste mal damit:
  Wochenplanung change_Kuwer.xlsm (Größe: 41,8 KB / Downloads: 7)

Gruß Uwe

[TimoK]

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.

[TimoK]

Hallo,

teste mal damit:

Gruß Uwe

Das funktioniert gut, aber leider nicht mit 52 Tabellenblättern. Ich schicke die Datei mal rein.