If .... then End If
09.11.2005 12:00:09
HARRY
ich habe eine Datei mit vielen If-Abfragen die im
Private Sub Worksheet_Change(ByVal Target As Range)
automatisch ausgeführt werden.
Bei bestimmten If... elseif - Abfragen möchte ich, dass die If-Abfrage beendet wird, wenn die 1. Bedingung zutrifft.
Mit einer Sprungmarke zu end if habe ich es hinbekommen (siehe Beispiel).
Hierbei muss ich aber bei jeder If-Abfrage wieder neue Sprungmarken definieren (siehe Beispiel).
Sub Makro1()
If [A1] = "" Then
GoTo Sprung1
ElseIf [A1] = 1 Then
[B1] = 1
ElseIf [A1] = 2 Then
[B1] = 2
Sprung1:
End If
End Sub
Geht das Beenden der If-Abfrage auch einfacher ?
Vielen Dank im voraus.
Gruß, HARRY