Ohne Select
Heinz
Habe einen Code in der UF stehen.
Nach eintragungen der Werte möchte ich in den Sheets "Schichtliste"A1 wechseln.
Mit Select funkt.es
Ich möchte es aber ohne Select.
Hätte bitte jemand eine Hilfe ?
Gruß
Heinz
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Unload Me
Sheets("Schichtliste").Unprotect Password:="test"
Sheets("Schichtliste").Range("Q5") = ComboBox1 'Datum
Sheets("Schichtliste").Range("U5") = ComboBox2 'Schicht
Sheets("Schichtliste").Range("F7") = ComboBox21 'Schichtmeister
Sheets("Schichtliste").Range("F32") = TextBox15 'Schrumpfer
Sheets("Schichtliste").Range("D27") = TextBox17 'QS
Sheets("Schichtliste").Range("K5") = TextBox3 'Vorarbeiter
'Sheets("Schichtliste").Select
'Range("A1").Select
Sheets("Schichtliste").Range ("A1")
ActiveSheet.Protect Password:="test"
End Sub