Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Variable auf Zeichenfolge überprüfen

Variable auf Zeichenfolge überprüfen
03.04.2009 12:49:23
Berger
Hallo liebe Forumsmitglieder,
ich überprüfe den Inhalt einer Zelle auf bestimmte teilinhalte ab. Wenn diese vorhanden sind
soll eine bestimmte Reaktion erfolgen.
If InStr(1, tarC, errArr(i)) > 0 Then
Jetzt möchte ich noch überprüfen ob in der Variable tarC mind. 3 aufeinaderfolgende Zeichen in Großbuchstaben enthalten sind.
Ist so etwas überhaupt möglich?
Wenn ja wie lautet der die entsprechende Abfrage.
Vielen Dank.
Grüße Alf
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variable auf Zeichenfolge überprüfen
03.04.2009 13:07:29
D.Saster
Hallo,

Function CheckString(strTest As String) As Boolean
Dim i As Integer, j As Integer, strTmp As String
For i = 1 To Len(strTest)
strTmp = Mid(strTest, i, 1)
If strTmp = UCase(strTmp) Then
j = j + 1
Else
j = 0
End If
Next
CheckString = j >= 3
End Function


Gruß
Dierk

Anzeige
AW: Variable auf Zeichenfolge überprüfen
03.04.2009 13:48:54
Berger
Hallo Dierk,
irgenwo ist da noch der Wurm drin.
Es klappt wunderbar, wenn die Zeichen am Schluß stehen.
Probleme gibt es wenn die Zeichenkette mit Drei Großbuchstaben beginnt und
anschließend mit kleinen Zeichen weiter geht.
Gruß Alf
AW: Variable auf Zeichenfolge überprüfen
03.04.2009 13:55:39
D.Saster
Hallo,
stimmt.

Function CheckString(strTest As String) As Boolean
Dim i As Integer, j As Integer, strTmp As String
For i = 1 To Len(strTest)
strTmp = Mid(strTest, i, 1)
If strTmp = UCase(strTmp) Then
j = j + 1
ElseIf j = 3
End Function


Gruß
Dierk

Anzeige
AW: Variable auf Zeichenfolge überprüfen
03.04.2009 13:09:23
ransi
HAllo Alf
Teste mal dies:
If InStr(1, tarC, errArr(i)) > 0 Then
    If pruefe(tarC) = True Then
        'Dein Code
    End If
End If


Public Function pruefe(str_text As String) As Boolean
Dim RegEx As Object
Set RegEx = CreateObject("Vbscript.RegExp")
With RegEx
    .Pattern = "[A-ZÄÖÜ]{3,}"
    pruefe = .test(str_text)
End With
End Function

ransi
Anzeige
AW: Variable auf Zeichenfolge überprüfen
03.04.2009 14:00:06
Berger
Hallo Ransi,
das funktionier Spitze. Und bei 60000 Datensätzten auch noch wunderbar schnell.
Vielen Dank.
AW: Variable auf Zeichenfolge überprüfen
03.04.2009 13:28:58
Berger
Hallo Saster,
irgenwo ist da noch der Wurm drin.
Es klappt wunderbar, wenn die Zeichen am Schluß stehen.
Probleme gibt es wenn die Zeichenkette mit Drei Großbuchstaben beginnt und
anschließend mit kleinen Zeichen weiter geht.
Gruß Alf
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige