Thema Datum  Von Nutzer Rating
Antwort
Rot If Schleife fehlerhaft, Fehler nicht findbar
 16.03.2021 09:50:54 stef
NotSolved
16.03.2021 09:55:33 Gast97267
NotSolved
16.03.2021 10:14:05 Werner
NotSolved
16.03.2021 10:31:48 Nobody
NotSolved

Ansicht des Beitrags:
Von:
stef		 Datum:
16.03.2021 09:50:54		 Views:
809		 Rating:
     
Antwort:
  Ja
Thema:
If Schleife fehlerhaft, Fehler nicht findbar

Hallo,

hoffe mir kann jemand bei folgendem problem helfen:

Dim Zelle As Range
For Each Zelle In Range(Cells(2, 16), Cells(Rows.Count, 16).End(xlUp))
If Zelle = 220 Then Cells(Zelle.Row, 24) = "Yes" Else
If Zelle = 5940 Then Cells(Zelle.Row, 24) = "Yes" Else
If Zelle = 5950 Then Cells(Zelle.Row, 24) = "Yes" Else
Cells(Zelle.Row, 24) = "No"
Next

Die If-Schleife soll für jede Zeile in Spalte 16 überprüfen, ob einer der drei Werte vorkommt. 
Wenn ja, dann soll in Spalte 24 Yes geschrieben werden. 
Die If-Schleife funktioniert dabei auch soweit, jedoch wird trotzdem jedes mal durch Else No in die Zelle geschrieben.

Vielen Dank im Voraus und einen schönen Dienstag. 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot If Schleife fehlerhaft, Fehler nicht findbar
 16.03.2021 09:50:54 stef
NotSolved
16.03.2021 09:55:33 Gast97267
NotSolved
16.03.2021 10:14:05 Werner
NotSolved
16.03.2021 10:31:48 Nobody
NotSolved