Microsoft Excel

Herbers Excel/VBA-Archiv

If-Bedingung wir nicht erkannt

Betrifft: If-Bedingung wir nicht erkannt von: Thomas
Geschrieben am: 16.11.2014 11:10:16

Hallo.

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

  

Betrifft: AW: If-Bedingung wir nicht erkannt von: Hajo_Zi
Geschrieben am: 16.11.2014 11:13:04

es fehlt Exit Sub vor der Sprungmarke.
So was benutzt man nicht mehr.

GrußformelHomepage


  

Betrifft: AW: If-Bedingung wir nicht erkannt von: Thomas
Geschrieben am: 16.11.2014 11:27:05

Ich habe das schon vielerorts gelesen, dass das nicht mehr gängig ist.

ich bin über moderne Vorschläge sehr dankbar! :)

die sprungmarke muss also ausserhalb des subs stehen???


  

Betrifft: AW: If-Bedingung wir nicht erkannt von: Hajo_Zi
Geschrieben am: 16.11.2014 11:32:12

Nein.

Gruß Hajo


  

Betrifft: AW: If-Bedingung wir nicht erkannt von: Crazy Tom
Geschrieben am: 16.11.2014 11:16:03

Hallo

steht denn in der Zelle wirklich der Text "wahr"?
oder steht da WAHR?

MfG Tom


  

Betrifft: AW: If-Bedingung wir nicht erkannt von: Thomas
Geschrieben am: 16.11.2014 11:25:53

Also, da steht genau genommen - WAHR . Auch wenn das einen Fehler darstellt, sollte der Code ja trotzdem richtig arbeiten, nur halt das "wahr" nur erkennen.


  

Betrifft: AW: If-Bedingung wir nicht erkannt von: Crazy Tom
Geschrieben am: 16.11.2014 11:33:46

Hallo

probiere es mal so

    If Sheets("Blatt1").Range("AB2").Value = True Then
        Unload Form_Suche
        Exit Sub
    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

MfG Tom


  

Betrifft: AW: If-Bedingung wir nicht erkannt von: Thomas
Geschrieben am: 16.11.2014 11:40:16

Vielen Dank. Jetzt läuft es :)


  

Betrifft: AW: If-Bedingung wir nicht erkannt von: Hajo_Zi
Geschrieben am: 16.11.2014 11:47:29

Hallo Tom,

lösche
GoTo Export
End If
Export:
und am Ende ergänzen
End If

Gruß Hajo