Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen aus Array in String vorhanden?

Zeichen aus Array in String vorhanden?
27.11.2007 13:46:09
Oliver
Hallo zusammen,
gibt es eine Möglichkeit einen String zu untersuchen, ob in diesem ein Zeichen aus einem Array vorhanden ist?
String: "Hallo!"
String-Array: Array("\","!")
Die Möglichkeit das komplette Array durchzugehen und per Instr zu vergleichen ist mir zu umständlich. Ich suche eine Funktion wie "Schnittmenge" oder so ähnlich.
Gruß,
Oliver.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichen aus Array in String vorhanden?
27.11.2007 14:11:04
Peter
Hallo Oliver,
z. B. so:


Public Sub Suchen()
Dim aWerte     As Variant
Dim sText      As String
Dim iIndex     As Integer
Dim bGefunden  As Boolean
   aWerte = Array("\", "!")
   sText = "Hallo!"
   For iIndex = 0 To UBound(aWerte)
      If InStr(sText, aWerte(iIndex)) > 0 Then
         bGefunden = True
         Exit For
      End If
   Next iIndex
   If bGefunden = True Then
      MsgBox "Das Zeichen  """ & aWerte(iIndex) & """  wurde im Text gefunden.", _
         , "   Hinweis für " & Application.UserName
    Else
      MsgBox "Im text ist keines der gesuchten Zeichen enthalten.", _
         , "   Hinweis für " & Application.UserName
   End If
End Sub 


Gruß Peter
Anzeige
AW: Zeichen aus Array in String vorhanden?
27.11.2007 14:33:00
Oliver
Hallo Peter,
so in der Art habe ich das schon gelöst. Würde aber gerne als eine Fehlerabfrage bestimmte Zeichen nicht zulassen. Bei einem neuen Worksheet sollten ja z.B. kein "\", "/", usw. vorkommen. Und jetzt möchte ich gerne folgendes Abfragen:
if "Ist in String ein Zeichen aus String-Array vorhanden?"=true then
'MeineFehlerRoutine
End IF
Gruß,
Oliver.

AW: Zeichen aus Array in String vorhanden?
27.11.2007 14:46:05
Peter
Hallo OLiver,
dann brauchst du doch nur hier anzusetzen:


For iIndex = 0 To UBound(aWerte)
      If InStr(sText, aWerte(iIndex)) > 0 Then ' Zeichen gefunden ?
 '       deine Fehler-Routine
      End If
   Next iIndex 


Gruß Peter
Anzeige
AW: Zeichen aus Array in String vorhanden?
27.11.2007 17:01:00
Peter
Hallo OLiver,
welche Zeichen willst du denn zulassen, bzw. welche Zeichen NICHT zulassen?
Vielleicht wäre eine RegEx-Lösung ja etwas für dein Problem.
Gruß Peter

AW: Zeichen aus Array in String vorhanden?
27.11.2007 18:19:00
Josef
Hallo Oliver,
suchst du das?
Public Function IsValidSheetName(ByVal strName As String) As Boolean
Dim objRegExp As Object

Set objRegExp = CreateObject("vbscript.regexp")

With objRegExp
    .Global = True
    .Pattern = "^[^\/\\:\*\?\[\]]{1,31}$"
    .IgnoreCase = True
    IsValidSheetName = .test(strName)
End With

Set objRegExp = Nothing

End Function


Sub test()
Debug.Print IsValidSheetName("/?")
End Sub

Gruß Sepp

Anzeige

329 Forumthreads zu ähnlichen Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Zeichen in String einfügen
Dieterlem

Hallo Excelfreunde,
ich möchte mit einer Formel Zeichen in einen String einfügen. Der String soll wie folgt umgewandelt werden:
121245f12345 = 121245-F-12345
Es soll also vor und hinter dem Buchstaben ein Bindestrich eingefügt werden. Der Buchstabe soll in ein Großbuchstaben gewande...
12.12.2008 15:08:00
Thread-ID: 1032419
14 Beiträge
Anzeige
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 Beiträge
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Tausenderzeichen in Textbox
Stefen

Hi Leute
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1=Format(TextBox1,"#,##0.00") End Sub
eingebe sollte doch in Verbindung mit Controlsource in der TextBox die Tausenderzeichen stehen.
Warum geht das nicht.
Es zeigt mir immer nur den Betrag 50000...
31.01.2009 16:44:00
Thread-ID: 1045681
12 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
3
4
13
4
2
2
5
2
11
4
4
4
5
11
1
2
2
14
8
4
2
12
2
7