Office: Zelle prüfen auf Sonderzeichen

Hallöchen Leute,

ich suche eine Formel oder einen Code, der mir Überprüft, ob z. B. die
Zelle C5 folgende Zeichen enthält: / : \ * ? " < > |.

Hat jemand da eine Idee.

LG Robie

:)

 

Hi Robie,
es müsste eigentlich auch per Array funktionieren, aber irgendwie bekomme ich das nicht hin. So klappt es zwar, meiner Meinung nach, ist aber bestimmt optimierbar:
Code:

 

Hallo Robie,

anbei mal ein Versuch über eine Formellösung.
Beispiel

	A	B
1	Ich
2	Test "OK"	Zeichen gefunden
3	Wir
4	Test :	Zeichen gefunden
5	Hilft es ?	Zeichen gefunden
6	> 55	Zeichen gefunden
7	Ende

Zelle	Formel
B1	=WENN(ANZAHL(FINDEN({"/";":";"\";"*";"?";">";"<";"|";".";""""};A1))>0;"Zeichen gefunden";"")
B2	=WENN(ANZAHL(FINDEN({"/";":";"\";"*";"?";">";"<";"|";".";""""};A2))>0;"Zeichen gefunden";"")
B3	=WENN(ANZAHL(FINDEN({"/";":";"\";"*";"?";">";"<";"|";".";""""};A3))>0;"Zeichen gefunden";"")
B4	=WENN(ANZAHL(FINDEN({"/";":";"\";"*";"?";">";"<";"|";".";""""};A4))>0;"Zeichen gefunden";"")
B5	=WENN(ANZAHL(FINDEN({"/";":";"\";"*";"?";">";"<";"|";".";""""};A5))>0;"Zeichen gefunden";"")
B6	=WENN(ANZAHL(FINDEN({"/";":";"\";"*";"?";">";"<";"|";".";""""};A6))>0;"Zeichen gefunden";"")
B7	=WENN(ANZAHL(FINDEN({"/";":";"\";"*";"?";">";"<";"|";".";""""};A7))>0;"Zeichen gefunden";"")

Excel Tabellen im Web darstellen >>

 

_oT = "ohne Text"

 

Hi Leute und vielen Dank,

die letze Lösung ist wirklich ganz schön. Hatte mir schon
etwas programmiert, aber dies hier ist doch für mich jetzt
besser geeignet.

Falls es aber jemanden doch interessieren sollte:
Code:

 

Hallo NoNet,

VIELEN DANK *Smilie und weiterhin einen schönen FT !

 

Moin, Robie,

Code:

z.B. mit dem Aufruf
Code:

 

HAllo

Schau dir dazu auch mal diese 3 an.
Die machen alles das gleiche.
Das erste kommt sogar ohne Schleife und ohne MID() aus.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function Sonderzeichen_durch_Leerzeichen1(strText As String)
Dim Regex
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
.Pattern = "(\/|:|\\|\*|\?|""|<|>|\||\.)"
.Global = True
Sonderzeichen_durch_Leerzeichen1 = .Replace(strText, " ")
End With
End Function

Public Function Sonderzeichen_durch_Leerzeichen2(strText As String)
Dim arr
Dim L As Long
Redim arr(1 To Len(strText))
For L = 1 To Len(strText)
Select Case Mid(strText, L, 1)
Case "\", "/", ":", "*", "?", Chr(32), "<", ">", "|", ".", """"
arr(L) = " "
Case Else: arr(L) = Mid(strText, L, 1)
End Select
Next
Sonderzeichen_durch_Leerzeichen2 = Join(arr, "")
End Function

Public Function Sonderzeichen_durch_Leerzeichen3(strText As String)
Dim B() As Byte
Dim L As Long
B = StrConv(strText, vbFromUnicode)
For L = LBound(B) To UBound(B)
Select Case B(L)
Case 34, 42, 46, 47, 58, 60, 62, 63, 92, 124: B(L) = 32
End Select
Next
Sonderzeichen_durch_Leerzeichen3 = StrConv(B, vbUnicode)
End Function


ransi

 

Sorry wenn ich diesen alten Beitrag nochmals aufleben lasse,
aber ich hätte da noch ne kleine Frage zu zu ransis Antwort.

Wie wird denn die erste Funktion (Sonderzeichen_durch_Leerzeichen1) ausgeführt???
Hat sie noch gar keinen Zellbezug oder bin ich da noch zu unerfahren (was durchaus sein kann)um den zu sehen?

Ich danke schon mal im Vorraus für die Antworten.

Grüsse

seit kurzem VBA

 

Hallo,

wie du bereits selbst vermutest, hat die Funktion keinen Zellbezug. Der zu prüfende Text wird als Parameter an die Funktion übergeben. Wenn du die Funktion in einem Makro zum Beispiel mit Code:

aufrufst, prüft die Funktion den Text "Alles klar?" auf die angegebenen Sonderzeichen und ersetzt diese durch ein Leerzeichen.

In dem übergebenen Text wird das Fragezeichen gefunden. Damit wird dann aus "Alles klar?" der Text "Alles klar ", also mit einem Leerzeichen am Ende.

Das Ganze funktioniert natürlich auch mit einer Zelle, in der der Text steht. Der Aufruf würde dann so aussehen: Code:

Gruß Ingolf

 

Danke Ingolf für die ausführliche Antwort.
Die hilft mir sehr weiter und somit kann ich auch damit arbeiten!

 

Hallo seit kurzem VBA,

was auch geht: Du kannst die Funktionen als Formel in der Tabelle nutzen:
z. B.
Code:

Grüße
EarlFred

 

Ja würde normalerweise schon funktionieren aber bei mir bezieht sich die Formel auf die eigene Zelle und somit kommt immer die Meldung "Zirkelbezugswarnung" und dann kann ich in die Zelle nichts mehr reinschreiben.

Gruß seit kurzem VBA

 

Und ich bins nochmal. Irgendwie will die Funktion bei mir nicht wirklich funktionieren.
Und zwar:
Ich habe die Funktion Sonderzeichen_durch_Leerzeichen1 von Ransi bei mir in Modul2
In Tabelle1 möchte ich mit dem Befehl Worksheet_Change die Funktion ausführen lassen damit sie mir die Zelle G6 prüft und eine MsgBox öffnen.

Die MsgBox wird geöffnet aber die Sonderzeichen wrden nicht ersetzt

Zur Verständnis hier mein Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$6" Then
Modul2.Sonderzeichen_durch_Leerzeichen1 Range("G6").Value
MsgBox "hoffe es geht"
End If
End Sub

ich hoffe Ihr könntet mir nochmals helfen
Ich danke euch schonmals im Vorraus

Gruß seit kurzem VBA

 

Hallo,

du musst den veränderten Text auch wieder der Zelle zuweisen. Für die Zelle kannst du die Variable Target verwenden. Diese wird von VBA in diesem Ereignismarko automatisch erzeugt. Es handelt sich um eine Rangevariable, welche die Zelle(n) enthält, die verändert wurde(n) und so das Ereignismakro ausgelöst haben. Bei Makros, die in einem allgemeinen Modul stehen, kannst du auf den Verweis über den Modulnamen verzichten.