commandbutton mit Passwortabfrage danach Makro ausführen

Question

Hallo @ all,

hab da mal ne Frage:

Ich habe einen Commandbutton mit einer Passwortabfrage.

Private Sub CommandButton1_Click()
Dim passwd As String
passwd = InputBox("Bitte Passwort eingeben.")
If passwd <> "test" Then
MsgBox ("Passwort ist falsch!")
Exit Sub
End If

MsgBox ("Wirklich den alten Kalender löschen?")
End Sub

Das funzt prima!

nun soll ein Makro dach der letzten MsgBox ausgeführt werden.
Dieses hier:

Sheets("Januar").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Februar").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Maerz").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("April").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Mai").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Juni").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Juli").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("August").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("September").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Oktober").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("November").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Dezember").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Januar").Select
Range("A1").Select

(habe die Starts und ends entfernt)

Wenn ich ihn einfach anhänge, so:

Private Sub CommandButton1_Click()
Dim passwd As String
passwd = InputBox("Bitte Passwort eingeben.")
If passwd <> "test" Then
MsgBox ("Passwort ist falsch!")
Exit Sub
End If

MsgBox ("Wirklich den alten Kalender löschen?")
Sheets("Januar").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Februar").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Maerz").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("April").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Mai").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Juni").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Juli").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("August").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("September").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Oktober").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("November").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Dezember").Select
Range("C4:C34,E4:E34").Select
Range("E34").Activate
Selection.ClearContents
Range("A1").Select

Sheets("Januar").Select
Range("A1").Select
End Sub

bekomme ich die Fehlermeldung
Laufzeitfehler 1004
Die Select-Methode des Range-Objektes ist fehlerhaft

Was mache ich falsch?

Lieben Gruß Benjae

Answer 1

Hallo Benjamin,

versuche es einmal mit diesem etwas verkürzten Code, denn ich kann Deinen Fehler im Moment nicht nachvollziehen.

...
Sheets("Januar").Range("C4:C34,E4:E34").ClearContents
Sheets("Januar").Range("A1").Select
Sheets("Februar").Range("C4:C34,E4:E34").ClearContents
Sheets("Februar").Range("A1").Select
...
Sheets("Dezember").Range("C4:C34,E4:E34").ClearContents
Sheets("Dezember").Range("A1").Select

Wenn das nicht hilft, dann füge nach der MsgBox ("Wirklich .. eine Zeile mit dem Befehl

Stop

ein, und nachdem das Makro während der Abarbeitung dort angehalten hat, gehe schrittweise mit [F8] weiter, um zu sehen, wann und wo der Fehler kommt (gelb unterlegte Zeile).

MfG Charlotte