VisualBasic Wennfehler Bedingung in VBA Code einbauen

uboot · 15. März 2017

Hallo,

ich habe im Netz einen VBA Code gefunden, der mir im aktiven Arbeitsblatt alle Zellen mit einem frei definierbaren Wert markiert.
Mein Problem ist nun, dass wenn es Zellen mit einem "'#NV" gibt, dass ich einen Laufzeitfehler 13 erhalte (Typen unverträglich), und zwar auf die Zeile 6.
Ich möchte nun gerne der Prüfung in Zeile 6 hinzufügen, dass Wennfehler, mache weiter mit der nächsten Zelle.

Code:

Sub AlleZellenMitWertenVonBisMarkieren(Wert1 As Single, Wert2 As Single)
Dim Zelle As Range
Dim lngZ As Long
Dim rngBereich As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Value >= Wert1 And Zelle.Value <= Wert2 Then
If lngZ = 0 Then
Set rngBereich = Zelle
lngZ = 1
Else
Set rngBereich = Union(rngBereich, Zelle)
End If
End If
Next Zelle
rngBereich.Select
End Sub

HominiLupus · 15. März 2017

Ich bin kein VBA Programmierer, aber was du willst ist "exception handling". Es passiert eine Ausnahme, grober Fehler und du willst diese abarbeiten ohne daß dein Programm abbricht.

Suche nach VBA exception handling:
http://www.cpearson.com/excel/errorhandling.htm
Suche nach "VBA Wert N/A" gibt:
http://www.herber.de/forum/archiv/1...Bedingung_ausloesen_wenn_Zellwert_NV_ist.html

Für dich ist zweiteres relevant.

uboot · 15. März 2017

Hilft mir leider nicht. Habe es mit IF IsError (Zelle.Value >= Wert1) Then Next probiert, aber dann kommen immer Fehlermeldungen wie Next ohne IF. Bin leider unfähig so einen VBA Code zu schreiben. In Excel wäre es mir ein leichtes, aber in VBA bin ich leider zu blöd...

X__ · 15. März 2017

VBA bin ich auch lange raus, ich meine aber, es gab da die Funktion

If IsNumeric(Zelle.Value) Then
....
End If

mit der du den Wert vorher prüfen könntest, ob er vorhanden und numerisch ist.
Erst dann solltest du den Wertevergleich machen.

Gruß...

uboot · 15. März 2017

Das klappt sogar. Yay.

Wie könnte ich jetzt noch einbauen, dass wenn kein Wert zwischen Wert1 und Wert2 in dem Sheet vorhanden ist, dass er dann einfach nichts macht?

X__ · 15. März 2017

Wie meinst du das genau ?

uboot · 16. März 2017

Die Lösung ist:

Code:

Sub AlleZellenMitWertenVonBisMarkieren(Wert1 As Single, Wert2 As Single)
Dim Zelle As Range
Dim lngZ As Long
Dim rngBereich As Range
For Each Zelle In ActiveSheet.UsedRange
 If IsNumeric(Zelle.Value) Then
   If Zelle.Value >= Wert1 And Zelle.Value <= Wert2 Then
   If lngZ = 0 Then
   Set rngBereich = Zelle
   lngZ = 1
   Else
   Set rngBereich = Union(rngBereich, Zelle)
   End If
   End If
 End If
Next Zelle

If Not rngBereich Is Nothing Then rngBereich.Select

End Sub

Suche

VisualBasic Wennfehler Bedingung in VBA Code einbauen

uboot

Captain

HominiLupus

Banned

uboot

Captain

X__

Lieutenant

uboot

Captain

X__

Lieutenant

uboot

Captain

Ähnliche Themen