Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Do Until mit Str ohne Funktion |
13.09.2011 12:57:57 |
Nico Schulz |
|
|
|
13.09.2011 16:49:30 |
Dekor |
|
|
|
13.09.2011 17:49:54 |
Nico Schulz |
|
|
|
13.09.2011 19:45:16 |
Dekor |
|
|
|
14.09.2011 08:33:49 |
Nico Schulz |
|
|
Von:
Nico Schulz |
Datum:
13.09.2011 12:57:57 |
Views:
1776 |
Rating:
|
Antwort:
|
Thema:
Do Until mit Str ohne Funktion |
Hallo werte Gemeinde,
ich bin einer der vielen VBA-Frischlinge hier an Bord und qäuale mich schon seit einer Woche an den untenstehenden Code.
Kurz zur Erklärung des Ganzen: im beschriebenen Sheet(6) stehen in den angegebenen Ranges Dezimalzahlenwerte. Diese sollen ausgelesen und mit gegebenen max Werten verglichen werden. Wenn die bereits vorhanden Werte der Bestimmung entsprechen, soll in der darauffolgenden Spalte ein i.O. oder n.i.O. als Text erscheinen.
Dem Fehler 13 nach (dieser wird mir beim Ausführen immer mitgeteilt) handelt es sich hierbei um einen Datentypfehler, den ich allerdings aufgrund meiner wenigen Erfahrung nicht erkennen bzw. beseitigen kann.
Über Hilfe Eurerseits wäre ich super dankbar - auch Tipps und Tricks zum allgemeinen vereinfachen sollcher Codezeilen sind mir willkommen!!!
Herzlichen Dank im Voraus, Nico
zeile = 70
Do Until Str(Range("E70:E2500")) = "" _
And Str(Range("F70:F2500")) = "" _
And Str(Range("G70:G2500")) = ""
If IsNumeric(Sheets(6).Range("E70:E2500")) _
And IsNumeric(Sheets(6).Range("F70:F2500")) _
And IsNumeric(Sheets(6).Range("G70:G2500")) _
And Val(Sheets(6).Range("G70:G2500")) > 0.5 _
And Val(Sheets(6).Range("F70:F2500")) > 300 _
And Val(Sheets(6).Range("E70:E2500")) > 240 _
Then Sheets(6).Range("H70:H2500") = "i.O." Else Sheets(6).Range("H70:H2500") = "fehlerhaft"
zeile = zeile + 1
Loop
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Do Until mit Str ohne Funktion |
13.09.2011 12:57:57 |
Nico Schulz |
|
|
|
13.09.2011 16:49:30 |
Dekor |
|
|
|
13.09.2011 17:49:54 |
Nico Schulz |
|
|
|
13.09.2011 19:45:16 |
Dekor |
|
|
|
14.09.2011 08:33:49 |
Nico Schulz |
|
|