Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon BenjaminM vom 10.11.2021, 12:32 Options

commandbutton mit Passwortabfrage danach Makro ausführen

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

Antwort schreiben

Antwort 1 von Charlotte_S vom 10.11.2021, 15:48 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken