Select Case Leerer String?

[silentwolf]

Hi hab mal eine function geschrieben die folgendermaßen aussieht.

Code [Auswählen] Erweitern

Function TestSelectCase(strWort As String) As String
    Select Case True
        Case strWort Like "Wüs*"
            TextMitSelectCase = "Wüstenrot Versicherung"
           
        Case strWort Like "A1*"
            TextMitSelectCase = "A1 Telekom"
           
        Case strWort Like "Uniq*"
            TextMitSelectCase = "Uniqa Versicherung"

'        Case strWort = ""
'            TextMitSelectCase = ""

    End Select

End Function

Leider habe ich eine Fehler #Fehler wenn die Zeile leer ist..
Habe mit is Null und is Empty probiert aber bekomme den Fehler leider nicht weg.

Könnte mir jemand bitte mal sagen wie dieser Code geändert werden muss damit diese Fehlermeldung nicht mehr aufträten würde.
Hab schon gesucht aber leider vieles nur für If statements gesehen und vieles nur für Excel.

Danke für Eure Hilfe!

LG
Albert

[MzKlMu]

Hallo,
versuche es so:

Code [Auswählen] Erweitern

Function TestSelectCase(strWort As [color=red]Variant[/color]) As String
If IsNull(strWort) Then
    Exit Sub
End If
    Select Case True
.
.

[silentwolf]

Hallo,
danke für Deine Antwort!
Leider funktioniert es so nicht..
Wenn ich es strWort zu Variant ändere dann functioniert der nachfolgende Code leider nicht mehr.

Ich verwende diese Funktion in einer Abfrage und das berechnete Feld zeigt mir #Fehler ... na klar da es eben in der anderen Spalte Zeilen ohne Inhalt gibt.
Darum dachte ich das ich einen Leerstring einfach im berechneten Feld bekommen sollte wenn diese Zeile leer ist.

Danke
LG

[DF6GL]

Hallo,

ruf die Funktion in der Abfrage etwa so auf:

Feld:  TestSelectCase(nz([Tabellenfeld];""))

[silentwolf]

Hall Franz,

ja so funktioniert es! Vielen Dank!!

Super!

Lg

[silentwolf]

Eine Frage hätte ich leider noch.

Wenn das Feld Umsatztext leer ist würde ich gerne das Feld von Buchungstext in die neue Spalte aufnehmen.

So habe ich es probiert.... keine Fehlermeldung aber auch keine Felder eingefügt

UmsText: TextMitSelectCase(Nz([Umsatztext];[Buchungstext]))

kann man es überhaupt so in einer auswahlabfrage realisieren?

LG
Albert

[DF6GL]

Hallo,

das geht doch nicht mit einer Auswahlabfrage....
Dazu ist eine AKTUALISIERUNGS-Abfrage erforderlich:

update tblDeineTabelle set Umsatztext = Buchungstext where Umsatztext is null and Buchungstext is not null

[silentwolf]

Hallo Franz,
ja war etwas unglücklich formuliert .. dachte ob man es in einem rutsch machen kann..
Aber danke ich werde es so wie Du es beschrieben hast erledigen!