IF - Anweisung verschachteln
Bernd
man lernt nie aus. Deswegen wüsste ich gerne, ob man die folgende Prozedur noch verbessern kann. Mir geht es dabei hauptsächlich um die weitere Verschachtelung der IF-Anweisungen. Aber nur wenn es auch Sinn macht.
Meine Versuche in dieser Richtung haben nicht so richtig funktioniert. Die Prozedur ist nur ein Teil des gesamten Makros
Sub BJV()
Dim y1$
' Festlegung des Berechnungsjahres als Variable y1
Berechnungsjahr1:
y1 = Application.InputBox("Bitte geben Sie das Berechnungsjahr ein!" & _
Chr(10) & "- immer vierstellig, zum Beispiel 2008 -" & _
Chr(10) & "" & Chr(10) & _
"Die anschließende Berechnung benötigt etwas Zeit," & Chr(10) & _
"aber am Ende erscheint automatisch ein Hinweis.", "Berechnungsjahr", , Type:=2)
If y1 = "Falsch" Then Exit Sub
If IsNumeric(y1) Then
y1 = CLng(y1)
Else
MsgBox "Leider ist Ihre Eingabe keine gültige vierstellige Jahreszahl"
GoTo Berechnungsjahr1
End If
If y1 2020 Then
MsgBox "Leider ist Ihre Eingabe keine gültige vierstellige Jahreszahl"
GoTo Berechnungsjahr1
End If
End Sub
Schöne Grüße
Bernd