Thema Datum  Von Nutzer Rating
Antwort
30.01.2022 23:43:17 Gast335566
NotSolved
Blau Abbruchkriterium leere Zelle bei Loop
 31.01.2022 01:34:45 ralf_b
*****
Solved
31.01.2022 06:49:10 volti
NotSolved
31.01.2022 01:41:33 xlKing
*****
Solved
31.01.2022 01:46:02 xlKing
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
31.01.2022 01:34:45		 Views:
419		 Rating:
     
Antwort:
 Nein
Thema:
Abbruchkriterium leere Zelle bei Loop

versuchs mal damit. isempty() funktioniert nicht in jedem Fall. z.b. wenn der Datenbereich als Tabelle formatiert wurde. Zeilenzähler als Long und nicht als Integer. Zahlenbereich ist zu klein für 1 Milionen Zeilen. Greife so wenig wie möglich auf Range und Cells zu, das kostet Zeit. 

Sub Toleranz()

    'Variablen
    Dim Toleranz As Integer, Soll_Wert As Integer
    Dim n      As Long
    Dim dblVal As Double
    Dim strResult As String
    
    'Wertzuweisung
    Toleranz = 1
    Soll_Wert = 10
    
    Do While Cells(n, 1) <> ""
        dblVal = Cells(n, 1).Value        
        If dblVal = Soll_Wert Then            
           strResult = "Perfekt"            
        ElseIf dblVal >= Soll_Wert - Toleranz And _
               dblVal <= Soll_Wert + Toleranz Then
            strResult = "i.O."   
        Else         
           strResult = "n.i.O."
        End If
        Cells(n, 2) = strResult
        n = n + 1
    Loop
    
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
30.01.2022 23:43:17 Gast335566
NotSolved
Blau Abbruchkriterium leere Zelle bei Loop
 31.01.2022 01:34:45 ralf_b
*****
Solved
31.01.2022 06:49:10 volti
NotSolved
31.01.2022 01:41:33 xlKing
*****
Solved
31.01.2022 01:46:02 xlKing
NotSolved