VBA, Wenn Dann Prüfung
03.05.2022 10:18:59
Mani
Ich möchte einen bereits funktionierenden VBA Code mit einer zusätzlichen Prüfung erweitern.
Mein Code ist einem CommandButton zugewiesen, der
1. ein Passwort prüft und wenn das Passwort stimmig ist,
2. das tagesaktuelle Datum (Format MMDD) mit einem Datum im aktiven Arbeitsblatt prüft. Wenn hier die Kriterien erfüllt sind, dann rufe ein bestimmtes Modul auf.
Bis hier funktioniert alles.
Und hier möchte ich dann noch eine Prüfung bzw. Zwischenschritt einfügen.
Und zwar, wenn bereits ein bestimmtes Blatt mit dem Namen "2023" vorhanden ist, dann mache nichts, ansonsten rufe dieses bestimmte Modul auf.
Hier mein funktionierender Code:
Sub CommandButton1_Click()
If Application.InputBox("Passwort eingeben", "PasswortBox", , , , , 2) "xyz" Then
MsgBox "Passwort falsch"
Exit Sub
End If
If ActiveWorkbook.Sheets("Deckblatt").Range("J1").value > Format(Date, "MMDD") Then
MsgBox "Du musst noch warten"
Exit Sub
End If
Call Code_neuesKalenderjahr_Endfassung
End Sub
Dim wsAct As Worksheet
Set wsAct = Sheets("2023")
Set wsAct = Sheets("AA_JJJJ")
wsAct.Copy After:=Sheets(Sheets.Count)
Err.Clear
On Error Resume Next
ActiveSheet.Name = Range("h2")
If Err 0 Then
MsgBox "Kalenderblatt bereits vorhanden"
Application.DisplayAlerts = False
Worksheets(Worksheets.Count).Delete
Application.DisplayAlerts = True
End If
On Error GoTo 0
Set wsAct = Nothing
Vielen Dank für eure Hilfe.
Gruß, Mani