Thema Datum  Von Nutzer Rating
Antwort
Rot If Else-If macht nicht das Gewünschte
22.06.2021 09:43:19 Axl
NotSolved
22.06.2021 10:09:05 Der Steuerfuzzi
****
Solved
22.06.2021 10:58:16 Axl
NotSolved
22.06.2021 11:47:09 Der Steuerfuzzi
NotSolved
22.06.2021 12:12:05 Gast81418
NotSolved
23.06.2021 07:22:13 Axl
NotSolved

Ansicht des Beitrags:
Von:
Axl
Datum:
22.06.2021 09:43:19
Views:
96
Rating: Antwort:
  Ja
Thema:
If Else-If macht nicht das Gewünschte

Hallo liebe Forumsmitglieder,

anbei der Code, im dem ich versucht habe, wenn vorbestimmte Zahlen in einer bestimmten Zelle E10 auftreten soll eine bestimmte Zahl in 

AB3 Zelle  erscheinen,

bei weiteren vorbestimmten Zahlen in derselben Zelle E10, sollte eine weitere Zahl in AB3 Zelle erscheinen, und das gleiche 5xMal.

 

Ich werde mich freuen wenn jemand helfen könnte!

 

Freundliche Grüße

Axl

 

Code:

Option Explicit
Sub spalte()
Dim iRow As Long
Dim ws As Worksheet
Dim wb As Workbook


Set wb = ThisWorkbook
Set ws = wb.Worksheets(2)

For iRow = 10 To Cells(Rows.Count, 10).End(xlUp).Row

    If ws.Cells(iRow, 10).Value = "5,0" Or "5,9" Or "2,8" Or "3,5" Or "1,0" Or "3,8" Or "5,0" Then  
    wb.Worksheets("Freigabeantrag").Range("AB3") = "8" 

    ElseIf ws.Cells(iRow, 10) = "5,7" Or "6,3" Or "3,0" Or "5,7" Or "5,3" Or "2,2" Or "5,5" Then
    wb.Worksheets("Freigabeantrag").Range("AB3") = "9"
   
   End If
 
Next

End Sub


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 Else-If macht nicht das Gewünschte
22.06.2021 09:43:19 Axl
NotSolved
22.06.2021 10:09:05 Der Steuerfuzzi
****
Solved
22.06.2021 10:58:16 Axl
NotSolved
22.06.2021 11:47:09 Der Steuerfuzzi
NotSolved
22.06.2021 12:12:05 Gast81418
NotSolved
23.06.2021 07:22:13 Axl
NotSolved