Office: VBA #NV in variable schreiben

Muecke.1982 · 11. November 2015

hallo miteinander,

ich bin gerade dabei verschiedene Zellen auf Fehler etc. zu Prüfen und teste da gerade das ein oder andere.

Angenommen in der Zelle AG11 auf dem Blatt "Übersicht" steht #NV in der Zelle da der SVerweis das nun mal ausgibt.

Würde ich gerne die Zelle in eine Variable einlesen.
Dann den Inhalt Prüfen, wenn ein Fehler in der Variablen Steht die Variable leeren

Jedoch habe ich das Problem wenn ein Fehler in der Zelle ist das ich den nicht in die Variable schreiben kann :-(
ich bekomme immer den Fehler:

Laufzeilenfehler 13
Typ unverträglich
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das wäre der Code
Code:

Dim ID_ASP_2 As String
' Zellen Inhalt einlesen
ID_ASP_2 = Worksheets("Übersicht").Range("AG11")

' Prüfen auf #NV
If CStr(ID_ASP_2) = "Fehler 2042" Then
MsgBox "ASP 2 hat einen #NV Fehler"
ID_ASP_2 = ""
Else

End If
' Prüfen auf 0
If ID_ASP_2 = 0 Then
MsgBox "ASP 2 hat 0 drin stehen"
ID_ASP_2 = ""
End Iff
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich kann denn Code natürlich auch so schreiben.

Code:

' Prüfen auf #NV
If CStr(Worksheets("Übersicht").Range("AG11")) = "Fehler 2042" Then
MsgBox "ASP 2 hat einen #NV Fehler"
ID_ASP_2 = ""
Else
ID_ASP_2 = Worksheets("Übersicht").Range("AG11")
End If
' Prüfen auf 0
If ID_ASP_2 = 0 Then
MsgBox "ASP 2 hat 0 drin stehen"
ID_ASP_2 = ""
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Doch dann habe ich wider zwei mal den teil "Worksheets("Übersicht").Range("AG11")" zu schreiben es wäre schöner wenn ich dafür ID_ASP_2 verwenden könnte, würde auch zumindest für mich die Lesbarkeit des Codes verbessern.

hat jemand eine Idee?

oder geht das nicht wie ich mir das vorstelle?

gruß
Mücke

:)

Muecke.1982 · 13. November 2015

ich glaube ich wies wie ich das machen kann:

Code:

ID_ASP_2 = CStr(Worksheets("Übersicht").Range("AG11"))

If ID_ASP_2 = "Fehler 2042" Then
MsgBox "ASP 2 hat einen #NV Fehler"
ID_ASP_2 = ""
End If
If ID_ASP_2 = "0" Then
MsgBox "ASP 2 hat 0 drin stehen"
ID_ASP_2 = ""
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ich hoffe das ist soweit richtig was ich mache.

da das zu Test Zwecken auseinander ist, würde der zusammen gesätzte Code dann so ausschauen.

Code:

' Prüfen auf #NV & 0
If ID_ASP_2 = "Fehler 2042" Or ID_ASP_2 = "0" Then ' "Fehler 2042" = #NV
ID_ASP_2 = "" ' Variable Leeren
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 13. November 2015

Hi,

weshalb nicht einfach so:

Code:

Sub InhaltPruefen()
Dim ID_ASP_2 As Variant
ID_ASP_2 = Worksheets("Übersicht").Range("AG11")
If IsError(ID_ASP_2) Or ID_ASP_2 = 0 Then
MsgBox "ASP 2 enthält einen #NV-Fehler oder 0"
Else
MsgBox "Alles Ok"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Muecke.1982 · 16. November 2015

Hey,

Die Text Ausgabe war nur für meine Kontrolle damit ich weis was wann wirklich passiert.

ich würde das gerne abkürzen und dachte mir das ich da ein Funktion daraus mache.

ich habe mal eine Übung Datei erstellt. und genau die eine Funktion zu erstellen und zu Testen.

Zelle A1 hat den Wert 100
zelle A2 hat einen #NV Fehler aus einer Sverweis Formel.
Zelle A3 hat einen 0 Ausgabe aus einem Sverwis

mein SUB und Funktion sieht dann so aus:

Code:

Sub Start()

Dim Zelle_A1 As String
Dim Zelle_A2 As String
Dim Zelle_A3 As String

Zelle_A1 = CStr(Worksheets("Tabelle1").Range("A1"))
Zelle_A2 = CStr(Worksheets("Tabelle1").Range("A2"))
Zelle_A3 = CStr(Worksheets("Tabelle1").Range("A3"))

MsgBox "Zelle A1 = " & Zelle_A1 & vbCrLf & _
"Zelle A2 = " & Zelle_A2 & vbCrLf & _
"Zelle A3 = " & Zelle_A3

Zelle_A1 = NV_0_P(CStr(Worksheets("Tabelle1").Range("A1")))
Zelle_A2 = NV_0_P(CStr(Worksheets("Tabelle1").Range("A2")))
Zelle_A3 = NV_0_P(CStr(Worksheets("Tabelle1").Range("A3")))

MsgBox "Zelle A1 = " & Zelle_A1 & vbCrLf & _
"Zelle A2 = " & Zelle_A2 & vbCrLf & _
"Zelle A3 = " & Zelle_A3

End Sub

' Prüfen ob der übergebene text einen Fehler beinhaltet oder eine 0 ist
' wenn ja, dann text Löschen und Leer zurück geben
' wenn nein, dann text behalten
Function NV_0_P(Pruef_Zelle As String) As String
If IsError(Pruef_Zelle) Or Pruef_Zelle = 0 Then
NV_0_P = ""
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider bekomme ich beim Durchlaufen der Funktion einen Fehler :-(

"Laufzeilenfehler 13
Typ unerträglich."

was mache ich Falsch?

ich würde mal drauf Tippen das ich die Variablen nicht korrekt Deklariert habe.
Wäre super wenn Ihr da mal drüber schauen könntet.

Gruß Mücke

[EDIT]
die Zellen die ich prüfen möchte können Text wie auch Zahlen enthalten.
jedoch Rechne ich nie mit den Zahlen !!!! sprich sie dürfen gerne auch als Text ausgegeben werden.
[/EDIT]

Muecke.1982 · 16. November 2015

ich habe eine Lösung gefunden *tongue.gif*

ich hoffe das was ich da mache auch richtig ist.

Code:

Sub Start()

Dim Zelle_A1 As String
Dim Zelle_A2 As String
Dim Zelle_A3 As String

Zelle_A1 = CStr(Worksheets("Tabelle1").Range("A1"))
Zelle_A2 = CStr(Worksheets("Tabelle1").Range("A2"))
Zelle_A3 = CStr(Worksheets("Tabelle1").Range("A3"))

MsgBox "Zelle A1 = " & Zelle_A1 & vbCrLf & _
"Zelle A2 = " & Zelle_A2 & vbCrLf & _
"Zelle A3 = " & Zelle_A3

Zelle_A1 = NV_0_P(CStr(Worksheets("Tabelle1").Range("A1")))
Zelle_A2 = NV_0_P(CStr(Worksheets("Tabelle1").Range("A2")))
Zelle_A3 = NV_0_P(CStr(Worksheets("Tabelle1").Range("A3")))

MsgBox "Zelle A1 = " & Zelle_A1 & vbCrLf & _
"Zelle A2 = " & Zelle_A2 & vbCrLf & _
"Zelle A3 = " & Zelle_A3

End Sub

' Prüfen ob der übergebene text einen Fehler beinhaltet oder eine 0 ist
' wenn ja, dann text Löschen und Leer zurück geben
' wenn nein, dann text behalten
Function NV_0_P(Pruef_Zelle As String) As String
If Pruef_Zelle = "Fehler 2042" Or Pruef_Zelle = "0" Then
NV_0_P = ""
Else
NV_0_P = Pruef_Zelle
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 16. November 2015

Hi,

weshalb arbeitest du mit Strings?? Siehe Variablendeklaration in meinem Code.

Code:

Sub Start()
Dim Zelle_A1 As Variant
Dim Zelle_A2 As Variant
Dim Zelle_A3 As Variant
Zelle_A1 = NV_0_P(Worksheets("Tabelle1").Range("A1"))
Zelle_A2 = NV_0_P(Worksheets("Tabelle1").Range("A2"))
Zelle_A3 = NV_0_P(Worksheets("Tabelle1").Range("A3"))
MsgBox "Zelle A1 = " & Zelle_A1 & vbCrLf & _
"Zelle A2 = " & Zelle_A2 & vbCrLf & _
"Zelle A3 = " & Zelle_A3
End Sub

' Prüfen ob der übergebene text einen Fehler beinhaltet oder eine 0 ist
' wenn ja, dann text Löschen und Leer zurück geben
' wenn nein, dann text behalten
Function NV_0_P(Pruef_Zelle As Variant) As Variant
If IsError(Pruef_Zelle) Or Pruef_Zelle = 0 Then
NV_0_P = ""
Else
NV_0_P = Pruef_Zelle
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Muecke.1982 · 12. Januar 2021

von Beverly

Hi,

weshalb arbeitest du mit Strings?? Siehe Variablendeklaration in meinem Code.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Weil, ... ja, ... gute Frage, ... ich kannte "Variant-Datentyp" noch nicht, habe es aber gerade nachgeschlagen. Danke´.

EarlFred · 16. November 2015

Hallo,

wo ein eindeutiger Typ allerdings bekannt ist, sollte dieser auch verwendet werden. Willst Du ausdrücklich auf "#NV" prüfen, ergänze den Code entsprechend:
Code:

Option Explicit

Function NV_0_P(Pruef_Zelle As Range) As Variant

If IsError(Pruef_Zelle) Then
If Pruef_Zelle.Value = CVErr(xlErrNA) Then
NV_0_P = Empty 'oder "", je nach Anwendung entscheiden
Else
NV_0_P = "anderer Fehler"
End If
Else
NV_0_P = Pruef_Zelle.Value
End If

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Office: VBA #NV in variable schreiben

VBA #NV in variable schreiben

VBA #NV in variable schreiben

VBA #NV in variable schreiben

VBA #NV in variable schreiben

VBA #NV in variable schreiben - Similar Threads - VBA #NV variable

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder über VBA Größe und DPI ändern für Webshop

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

#NV ersetzen mit "Text" per VBA