Code Probleme
Norbert
ich hab da etwas streß mit meiner Excelmappe. Ich blende einige Tabellen aus so das nur die da sind die ich brauche. Jetzt ist mein Problem das wenn die Tabellen ausgeblendet sind und ich will das datum über eine UF eintragen dann bekomme ich eine fehlermeldung. Es geht nur wenn alle Tabellen eingeblendet sind. Gibt es vieleicht noch eine möglichkeit den Code schneller zu machen? Bitte um hilfe.
mfg Norbert
Tabellen Ausblenden:
Sub Schicht_A()
Sheets("Schicht A Untereinander").Visible = True
Sheets("Schicht A").Visible = True
Sheets("Kleine Pläne Schicht A").Visible = True
Sheets("Alle Schichten").Visible = True
Sheets("Schicht B Untereinander").Visible = False
Sheets("Schicht B").Visible = False
Sheets("Kleine Pläne Schicht B").Visible = False
Sheets("Schicht C Untereinander").Visible = False
Sheets("Schicht C").Visible = False
Sheets("Kleine Pläne Schicht C").Visible = False
Sheets("Schicht D Untereinander").Visible = False
Sheets("Schicht D").Visible = False
Sheets("Kleine Pläne Schicht D").Visible = False
Sheets("Früh & Mittag").Visible = False
Sheets("F & M").Visible = False
End Sub Sub Schicht_B()
Sheets("Schicht A Untereinander").Visible = False
Sheets("Schicht A").Visible = False
Sheets("Kleine Pläne Schicht A").Visible = False
Sheets("Alle Schichten").Visible = True
Sheets("Schicht B Untereinander").Visible = True
Sheets("Schicht B").Visible = True
Sheets("Kleine Pläne Schicht B").Visible = True
Sheets("Schicht C Untereinander").Visible = False
Sheets("Schicht C").Visible = False
Sheets("Kleine Pläne Schicht C").Visible = False
Sheets("Schicht D Untereinander").Visible = False
Sheets("Schicht D").Visible = False
Sheets("Kleine Pläne Schicht D").Visible = False
Sheets("Früh & Mittag").Visible = False
Sheets("F & M").Visible = False
End Sub Sub Schicht_C()
Sheets("Schicht A Untereinander").Visible = False
Sheets("Schicht A").Visible = False
Sheets("Kleine Pläne Schicht A").Visible = False
Sheets("Alle Schichten").Visible = True
Sheets("Schicht B Untereinander").Visible = False
Sheets("Schicht B").Visible = False
Sheets("Kleine Pläne Schicht B").Visible = False
Sheets("Schicht C Untereinander").Visible = True
Sheets("Schicht C").Visible = True
Sheets("Kleine Pläne Schicht C").Visible = True
Sheets("Schicht D Untereinander").Visible = False
Sheets("Schicht D").Visible = False
Sheets("Kleine Pläne Schicht D").Visible = False
Sheets("Früh & Mittag").Visible = False
Sheets("F & M").Visible = False
End Sub Sub Schicht_D()
Sheets("Schicht A Untereinander").Visible = False
Sheets("Schicht A").Visible = False
Sheets("Kleine Pläne Schicht A").Visible = False
Sheets("Alle Schichten").Visible = True
Sheets("Schicht B Untereinander").Visible = False
Sheets("Schicht B").Visible = False
Sheets("Kleine Pläne Schicht B").Visible = False
Sheets("Schicht C Untereinander").Visible = False
Sheets("Schicht C").Visible = False
Sheets("Kleine Pläne Schicht C").Visible = False
Sheets("Schicht D Untereinander").Visible = True
Sheets("Schicht D").Visible = True
Sheets("Kleine Pläne Schicht D").Visible = True
Sheets("Früh & Mittag").Visible = False
Sheets("F & M").Visible = False
End Sub Sub Schicht_Früh_Mittag()
Sheets("Schicht A Untereinander").Visible = False
Sheets("Schicht A").Visible = False
Sheets("Kleine Pläne Schicht A").Visible = False
Sheets("Alle Schichten").Visible = True
Sheets("Schicht B Untereinander").Visible = False
Sheets("Schicht B").Visible = False
Sheets("Kleine Pläne Schicht B").Visible = False
Sheets("Schicht C Untereinander").Visible = False
Sheets("Schicht C").Visible = False
Sheets("Kleine Pläne Schicht C").Visible = False
Sheets("Schicht D Untereinander").Visible = False
Sheets("Schicht D").Visible = False
Sheets("Kleine Pläne Schicht D").Visible = False
Sheets("Früh & Mittag").Visible = True
Sheets("F & M").Visible = True
End Sub Sub Alle_Schichten()
Sheets("Schicht A Untereinander").Visible = True
Sheets("Schicht A").Visible = True
Sheets("Kleine Pläne Schicht A").Visible = True
Sheets("Alle Schichten").Visible = True
Sheets("Schicht B Untereinander").Visible = True
Sheets("Schicht B").Visible = True
Sheets("Kleine Pläne Schicht B").Visible = True
Sheets("Schicht C Untereinander").Visible = True
Sheets("Schicht C").Visible = True
Sheets("Kleine Pläne Schicht C").Visible = True
Sheets("Schicht D Untereinander").Visible = True
Sheets("Schicht D").Visible = True
Sheets("Kleine Pläne Schicht D").Visible = True
Sheets("Früh & Mittag").Visible = True
Sheets("F & M").Visible = True
End Sub Blattschutz:
Sub Blattschutz_Setzen()
Sheets("Schicht A Untereinander").Select
ActiveSheet.Protect ("merlin")
Sheets("Schicht A").Select
ActiveSheet.Protect ("merlin")
Sheets("Kleine Pläne Schicht A").Select
ActiveSheet.Protect ("merlin")
Sheets("Schicht B Untereinander").Select
ActiveSheet.Protect ("merlin")
Sheets("Schicht B").Select
ActiveSheet.Protect ("merlin")
Sheets("Kleine Pläne Schicht B").Select
ActiveSheet.Protect ("merlin")
Sheets("Schicht C Untereinander").Select
ActiveSheet.Protect ("merlin")
Sheets("Schicht C").Select
ActiveSheet.Protect ("merlin")
Sheets("Kleine Pläne Schicht C").Select
ActiveSheet.Protect ("merlin")
Sheets("Schicht D Untereinander").Select
ActiveSheet.Protect ("merlin")
Sheets("Schicht D").Select
ActiveSheet.Protect ("merlin")
Sheets("Kleine Pläne Schicht D").Select
ActiveSheet.Protect ("merlin")
Sheets("Früh & Mittag").Select
ActiveSheet.Protect ("merlin")
Sheets("F & M").Select
ActiveSheet.Protect ("merlin")
Sheets("Alle Schichten").Select
ActiveSheet.Protect ("merlin")
End Sub Code für Datum :
Private Sub CommandButton1_Click()
With Worksheets("Listen")
Call Blattschutz_Löschen
.Cells(1, 2) = ComboBox1.Value
kommentarlöschen
kommentarlöschen_1
kommentarlöschen_2
kommentarlöschen_3
kommentarlöschen_4
kommentar
kommentar_1
kommentar_2
kommentar_3
kommentar_4
Call Blattschutz_Setzen
End With
Me.Hide
Range("A3").Select
End Sub