If-Bedingung wir nicht erkannt
16.11.2014 11:10:16
Thomas
Der u.a. Code soll dafür sorgen, dass in Abhängigkeit eines Wertes in der Zelle AB2 entweder das Formular verlassen wird oder bei Erfüllung der Bedingung zur Sprungmarke Export gesprungen wird.
Leider wird die Sprungmarke unabhängig von meinen Bedingungen ausgeführt.
Wer kann mir helfen?!
If Sheets("Blatt1").Range("AB2").Value = "wahr" Then
Unload Form_Suche
Else
GoTo Export
End If
Export:
Dim q As Long
Application.ScreenUpdating = False
For q = Cells(Rows.Count, 1).End(xlUp).Row To 10 Step -1
If Cells(q, 1) = "Export" Then Rows(q).Delete
Next q
Application.ScreenUpdating = True
Unload Form_Suche