Ich habe folgenden VBA-Code geschrieben, der nicht ganz funktioniert
Private Sub CommandButton2_Click()
Dim s As Integer
On Error GoTo fehler
s = InputBox("Geben Sie die Vertreternummer ein, dessen Arbeitsmappe neu erstellt werden soll!")
If s = 1 Then
Sheets("01 Seidenschwarz").Select
Sheets("01 Seidenschwarz").Unprotect "aaa"
Application.OnTime Now + TimeValue("00:00:01"), "FormelTeil1"
End If
If s = 2 Then
Sheets("02 Frey").Select
Sheets("02 Frey").Unprotect "aaa"
Application.OnTime Now + TimeValue("00:00:01"), "FormelTeil1"
End If
fehler:
MsgBox "Achtung!"
Exit Sub
End Sub
Der Code soll folgendes bewirken.
Durch Drücken des Commandobutton soll die Input-Box kommen,
was auch funktioniert.
Danach habe ich die Auswahl zwischen 1 und 2.
Tippe ich 1 oder 2 ein, so wird der Makro ausgeführt.
Jedoch kommt zusätzlich auch die Meldung "Achtung". Das soll nicht sein,
weil ich ja 1 oder 2 vorgegeben habe.
Gebe ich nichts ein, oder breche ab, so kommt die Fehlermeldung "Achtung!".
Das ist wieder richtig.
Wie muß der Quellcode richtig lauten, damit, wenn ich ich 1 oder 2
eingebe, der Makro ohne Meldung "Achtung" ausgeführt wird.
Außerdem soll, wenn ich gar nichts eingebe oder abbreche ebenfalls "Achtung"
erscheinen und der Makro dann natürlich nicht ausgeführt werden.
Danke für die Hilfe
Thomas