Mein Name ist Stephan ich bin neu hier! Ich mache momentan eine Ausbildung zum IT-Systemkaufmann und wir haben in BDVA einen Kalender mit Excel erstellt. Gibt man in die Zelle G3 das Jahr ein errechnet Excel den Kalender. Ich habe mir gedacht diese Arbeitsmappe mit Makros zu belegen. Beim öffnen der Arbeitsmappe wird automatisch eine Inputbox gestartet in der man das Jahr für den Kalender eingeben soll, wenn man dies nicht tut kommt ein vbcritical in dem steht das man keine Zahl eingegeben hat. Drückt man auf o.k. so kommt man wieder zur Inputbox. Mein Problem ist nun eigentlich das ich gerne die Arbeitsmappe schliessen lassen wollen würde, wenn man auf Abrechen drückt. Wäre auch toll wenn es schon bei der Inputbox klappt. Ich stelle das Scriptchen mal hier rein! Wäre toll wenn ihr mir helfen könntet...Danke...(-;
Sub Auto_open()
' Jahreseingabe Makro
' Makro am 15.11.2005 von Kedziora aufgezeichnet
Dim Antwort As String
Range("G3").Select
1 Antwort = InputBox("Geben Sie eine Jahreszahl ein!", "Eingabe!")
ActiveCell = Antwort
If Antwort = Empty Then
Message = "Sie haben kein Jahr eingegeben!"
Title = "Fehler!"
MsgBox Message, vbCritical + vbOKCancel, Title
GoTo 1
Else
Message = "Der Kalender wird für das eingegebene Jahr berechnet!"
Title = "Ausgabe!"
MsgBox Message, vbInformation + vbOKOnly, Title
End If
End Sub