Hi Michael,
das Tabellenblatt "Karten" fehlt, aber
Hier mal der Code der Userform1
Vielleicht bringt das jemanden auf Ideen....
Gruß, Margarete
Private Sub cmbdrucken_Click()
' Auswahl/aktivieren des Blattes das gedruckt werden soll
Sheets("Breit").Select ' Auswahl des Blattes
' Auswahlfenster Drucker
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$14"
Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PageSetup.PrintArea = False
' Auswahl/aktivieren des Blattes das wieder angezeigt werden soll
Sheets("Eingabefeld").Select ' Springen zurück zur Übersicht
'Blattschutz aufheben
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi" ' Blattschutz in Reiter Eingabefeld aufheben
'Löschen der Eingaben in Tabellenblatt1 "Eingabefeld"
With Worksheets(1)
.Range("C3,E3,G3,I3").Value = ClearContents
.Range("C4,E4,G4,I4").Value = ClearContents
.Range("C5,E5,G5,I5").Value = ClearContents
.Range("C6,E6,G6,I6").Value = ClearContents
.Range("C7,E7,G7,I7").Value = ClearContents
.Range("C8,E8,G8,I8").Value = ClearContents
.Range("C9,E9,G9,I9").Value = ClearContents
.Range("C10,E10,G10,I10").Value = ClearContents
End With
'Löschen der Eingaben in Tabelle UserForm1
Unload Me
'Starten/neues Hochladen der Eingabemaske UserForm1
UserForm1.Show
'Blattschutz aktivieren
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_Name_Change()
'Blattschutz aufheben
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi" ' Blattschutz in Reiter Eingabefeld aufheben
'Übertragen der Daten vom Eingabefenster ComoBox1 in das Tabellenblatt 1 "Eingabefeld" C3
With Worksheets(1)
.Range("C3,E3,G3,I3").Value = UserForm1.ComboBox1_Name.Value
End With
'Blattschutz aktivieren
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub
Private Sub Image1_Click()
End Sub
Private Sub TBOrdner_Nr_Change()
'Blattschutz aufheben
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi" ' Blattschutz in Reiter Eingabefeld aufheben
'Übertragen der Daten vom Eingabefenster TBCharge in das Tabellenblatt 1 "Eingabefeld" C4
With Worksheets(1)
.Range("C4,E4,G4,I4").Value = UserForm1.TBOrdner_Nr.Value
End With
'Blattschutz aktivieren
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub
Private Sub Register_1_Change()
'Blattschutz aufheben
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi" ' Blattschutz in Reiter Eingabefeld aufheben
'Übertragen der Daten vom Eingabefenster tbAuftragsnummer in das Tabellenblatt 1 "Eingabefeld" _
C5
'----------------------------------------------------------------------------------------------- _
With Worksheets(1)
.Range("C5,E5,G5,I5").Value = UserForm1.Register_1.Value
End With
'Blattschutz aktivieren
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub
Private Sub Register_3_Change()
'Blattschutz aufheben
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi" ' Blattschutz in Reiter Eingabefeld aufheben
'Übertragen der Daten vom Eingabefenster TBLackierer in das Tabellenblatt 1 "Eingabefeld" C7
With Worksheets(1)
.Range("C7,E7,G7,I7").Value = UserForm1.Register_3.Value
End With
'Blattschutz aktivieren
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub
Private Sub Register_2_Change()
'Blattschutz aufheben
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi" ' Blattschutz in Reiter Eingabefeld aufheben
'Übertragen der Daten vom Eingabefenster ComoBox2 in das Tabellenblatt 1 "Eingabefeld" C6
With Worksheets(1)
.Range("C6,E6,G6,I6").Value = UserForm1.Register_2.Value
End With
'Blattschutz aktivieren
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub
Private Sub Register_4_Change()
'Blattschutz aufheben
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi" ' Blattschutz in Reiter Eingabefeld aufheben
'Übertragen der Daten vom Eingabefenster TBStueckzahl in das Tabellenblatt 1 "Eingabefeld" C8
With Worksheets(1)
.Range("C8,E8,G8,I8").Value = UserForm1.Register_4.Value
End With
'Blattschutz aktivieren
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub
Private Sub Register_6_Change()
'Blattschutz aufheben
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Unprotect Password:="123Michi" ' Blattschutz in Reiter Eingabefeld aufheben
'Übertragen der Daten vom Eingabefenster TBStueckzahl in das Tabellenblatt 1 "Eingabefeld" C8
With Worksheets(1)
.Range("C9,E9,G9,I9").Value = UserForm1.Register_6.Value
End With
'Blattschutz aktivieren
Sheets("Eingabefeld").Select ' Auswahl des Reiters Eingabefeld
ActiveSheet.Protect Password:="123Michi", DrawingObjects:=True, Contents:=True, Scenarios:= _
True ' Blattschutz in Reiter Eingabefeld aktivieren
Application.ScreenUpdating = True
End Sub