IF Then Prüfung

Forumthread: IF Then Prüfung

IF Then Prüfung

11.04.2024 09:58:07

Erik

Hallo liebe VBA Profis,

wie muss ich den Code ändern, damit er richtig funktoniert?
Es soll geprüft werden, ob in der Spalte A der Text prüfen! steht. Ist das der Fall soll die zweite IF Überprüfung nicht mehr ausgeführt werden und die nächste Zeile überprüft werden.
Wurde ein prüfen! gefunden soll die zweite IF Abfrage abgefragt werden.

Sub bedingung_pruefen()



Dim i As Integer

With Sheets("Tabelle1")

    For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row

        If .Range("A" & i) Like "*prüfen!*" Then 'keine weitere Prüfung mehr und nächste Zeile prüfen > ansonsten weiter zur nächsten If Bedingung

        If .Range("A" & i) Like "*geprüft!" Then .Range("B" & i) = "erledigt"

        

    Next i

 

End With

End Sub

Vielen Dank und Gruß Erik

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: IF Then Prüfung

11.04.2024 10:06:15

Oberschlumpf
AW: IF Then Prüfung

11.04.2024 10:33:10

Erik
freut mich...

11.04.2024 10:56:05

Oberschlumpf
AW: IF Then Prüfung

11.04.2024 10:13:16

{Boris}
AW: IF Then Prüfung

11.04.2024 10:20:27

Oberschlumpf

AW: IF Then Prüfung

11.04.2024 10:06:15

Oberschlumpf

Hi Erik,

Ich würde mich freuen, wenn du (jeder andere auch) vor Absenden einer Hilfsanfrage diese noch mal auf (Tipp/Rechtschreib/Grammatik/sonstige) Fehler überprüft und bei Bedarf korrigiert.

Du schreibst...
"...ob in der Spalte A der Text prüfen! steht. Ist das der Fall soll die zweite IF Überprüfung nicht mehr ausgeführt werden..."
und
"Wurde ein prüfen! gefunden soll die zweite IF Abfrage abgefragt werden..."

Ich frag mich: "Ähh, was denn nun?? JA oder doch JA???"

eine Idee...
Änder diesen Code...



If .Range("A" & i) Like "*prüfen!*" Then 'keine weitere Prüfung mehr und nächste Zeile prüfen > ansonsten weiter zur nächsten If Bedingung

If .Range("A" & i) Like "*geprüft!" Then .Range("B" & i) = "erledigt"

...um in...



If Not .Range("A" & i) Like "*prüfen!*" Then

        If .Range("A" & i) Like "*geprüft!" Then 

            .Range("B" & i) = "erledigt"

        End If

End If

Hilfts?

Ciao
Thorsten

AW: IF Then Prüfung

11.04.2024 10:33:10

Erik

Hallo Thorsten,

sorry, da hast Du Recht

"Wurde ein prüfen! gefunden soll die zweite IF Abfrage abgefragt werden..."

sollte natürlich Wurde ein geprüft! gefunden heißen.

Vielen Dank!
So funktioniert der Code

LG
Erik

freut mich...

11.04.2024 10:56:05

Oberschlumpf

Hi Erik,

...dass ich helfen konnte.

Boris hat übrigens auch recht:
Meine erste If-Kontrolle kannst du eigtl löschen, weil ja eigtl NUR geprüft werden soll, OB in A "geprüft!" enthalten ist; und NUR DANN soll der Inhalt in B auf "erledigt" geändert werden - alles andere ist ja egal.

Ach so, wird dein...



Sub bedingung_pruefen()

...

End Sub

...bei jeder Zellwertänderung gestartet?
Dann würde dein Makro auch bei Änderung durch VBA gestartet werden, was ja nicht notwendig wäre.

Hier noch mal eine Optimierung deines Codes:



Sub bedingung_pruefen()



Dim i As Integer



Application.EnableEvents = False 'schaltet Ereignisverfolgung aus



With Sheets("Tabelle1")

    For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row

        If .Range("A" & i) Like "*geprüft!" Then 

            .Range("B" & i) = "erledigt"

        End If

    Next i

 

End With



Application.EnableEvents = True 'schaltet Ereignisverfolgung ein



End Sub

Ciao
Thorsten

AW: IF Then Prüfung

11.04.2024 10:13:16

{Boris}

Hi,

also ich hab Dein Anliegen glaube ich verstanden ;-)

Schmeiß einfach diese Codezeile raus:

If .Range("A" & i) Like "*prüfen!*" Then 'keine weitere Prüfung mehr und nächste Zeile prüfen > ansonsten weiter zur nächsten If Bedingung

VG, Boris

AW: IF Then Prüfung

11.04.2024 10:20:27

Oberschlumpf

Moin,

ich denke, ich hab's auch verstanden^^ :-P:-)

Aber mich ärgert es schon, wenn jemand, der Hilfe braucht, sich über kompetente Antworten freut, dass die Fragestellung dann nicht genau so kompetent gestellt wird; wie in diesem Fall.

Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Forumthread: IF Then Prüfung

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread