Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1060to1064
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
1060to1064
1060to1064
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String finden ohne " "

String finden ohne " "
21.03.2009 17:35:35
Dirk
Hallo Excelgemeinde!
Ich brauche eure Hilfe!
Ich habe folgendes Problem:
Ich muss in Spalte A nach einem String suchen. In meinem Beispiel suche ich nach "Kontrollperson*" und erhalte die Zeile des Suchtreffers.
Leider kann es auch sein, das in der Spalte der String anders eingegeben wurde. Z. B.:
"K o n t r o l l p e r s o n :"
Wie schaffe ich es, dass mein Code dies auch erkennt.
Ich kann leider nicht in der Spalte alle " " entfernen, da ich mit dem String nachher noch arbeiten muss.
Hier mein Code:

Sub Test()
strWasSuchen = "Kontrollperson*"
Set rngWo = ActiveWorkbook.ActiveSheet.Range("A:A").Find(strWasSuchen, LookIn:=xlValues, Lookat: _
_
=xlPart)
If Not rngWo Is Nothing Then MsgBox (rngWo.Row)
End Sub


Für Hilfe wäre ich dankbar!
Gruß
Dirk R.

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String finden ohne " "
21.03.2009 17:40:33
Jochen
Hi,
mach eine temporäre Kopie der Seite, entfern die Leerzeichen und such dort,
der Fundort ist ja identisch mit dem Originalblatt.
mfg Jochen
AW: String finden ohne " "
21.03.2009 17:43:59
Dirk
Hallo Jochen,
danke für deine schnelle Antwort!
Deine Idee ist gut, das bekomme ich auch hin.
Aber gibt es nicht eine elegantere Lösung?
LG
Dirk
AW: String finden ohne " "
21.03.2009 17:44:10
Daniel
Hi
was hindert dich daran, erst nach "Kontrollpersonen*" zu suchen und wenn diese Suche erfolglos war, nochmal nach "K o n t r o l l p e r s o n :"`?
ob die suche Erfolgreich war, kannst du ja mit "if rngWo is Nothing Then..." prüfen.
andere Möglichkeit ist, eine Spalte einzufügen, die Daten der alten Spalte A in die neue zu kopieren, anschließend mit REPLACE die Leerzeichen zu entfernen und dann in der Hilfsspalte nach "Kontrollperson" zu suchen.
Anschließend kannst du die Hilfsspalte ja wieder löschen.
Gruß, Daniel
Anzeige
"K*o*n*t*r*o*l*l*p*e*r*s*o*n*"
21.03.2009 17:53:50
ransi
HAllo Dirk
strWasSuchen = "K*o*n*t*r*o*l*l*p*e*r*s*o*n*"
?
ransi
AW: "K*o*n*t*r*o*l*l*p*e*r*s*o*n*"
21.03.2009 18:04:30
Dirk
Hallo Ransi!
Dein Code funzt Perfekt.
Vielen Dank für deine Antwort.
LG
Dirk R.
AW: String finden ohne " "
21.03.2009 17:50:46
Tino
Hallo,
hier noch eine Version, es wird zwischen jedem Buchstaben ein Stern eingefügt.
Private Function StringMitStern(strWasSuchen As String)
Dim A As Integer
Dim tempString As String
    For A = 1 To Len(strWasSuchen)
     tempString = tempString & Mid(strWasSuchen, A, 1) & "*"
    Next A
StringMitStern = tempString
End Function


Sub Test()
Dim strWasSuchen As String
Dim rngWo As Range
strWasSuchen = "Kontrollperson"

Set rngWo = Range("A:A").Find(StringMitStern(strWasSuchen), , xlValues, 2, 1, 1, False, False, False)

If Not rngWo Is Nothing Then
 MsgBox (rngWo.Row)
End If

End Sub


Gruß Tino

Anzeige
AW: String finden ohne " "
21.03.2009 17:58:50
Dirk
Hallo Tino,
Es funzt PERFEKT. Das habe ich mit eleganter Lösung gemeint.
SUPER!!!
vielen Dank
LG
Dirk
ohne Schleife.
21.03.2009 18:21:02
Tino
Hallo,
habe mal noch etwas experimentiert, hier eine Variante ohne Schleife.
Private Function StringMitStern(strWasSuchen As String)
Dim tempString As String
    tempString = String(Len(strWasSuchen), "@")
    tempString = Replace(tempString, "@", "@ ")
    tempString = Format(strWasSuchen, tempString)
    StringMitStern = Replace(tempString, " ", "*")
End Function


Sub Test()
Dim strWasSuchen As String
Dim rngWo As Range
strWasSuchen = "Kontrollperson"

Set rngWo = Range("A:A").Find(StringMitStern(strWasSuchen), , xlValues, 2, 1, 1, False, False, False)

If Not rngWo Is Nothing Then
 MsgBox (rngWo.Row)
End If

End Sub


Gruß Tino

Anzeige
AW: ohne Schleife.
22.03.2009 21:02:01
Dirk
Hallo Tino,
der Code Funktioniert super, vielen Dank
Lg
Dirk R.
zu
22.03.2009 21:10:30
zu
zu

299 Forumthreads zu ähnlichen Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Anzeige
Untergenze in VBA
Axel

Hallo alle miteinander,
ich nicht weiß einfach nicht wie ich die Untergrenze Funktion in mein UserForm einbinden kann.
Kurze Erklärung:
Ich habe ein UserForm mit einem Drehfeld zum durchblättern der Zeilen, in Spalte 27 ist ein Zahlenwert mit zwei Kommastellen eingetragen, das nach...
11.08.2008 10:10:47
Thread-ID: 1000733
7 Beiträge
Mit VBA umrechnen Stunden Minuten Dezimal
chris


Hallo zusammen,
erst einmal allen einen schönen guten morgen.
Jetzt zu meinem problem.Ich habe mir ein VBA Programm erstellt das mir auswertungen macht.
Aber ich verzweifle mit der richtigen umrechnung Stunden minuten und der Dezimalangabe der zeit.
habe unten einen teil me...
12.08.2008 08:12:00
Thread-ID: 1001041
3 Beiträge
Anzeige
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
Eingabemaske für Tabelle via VBA ?
kiwi279

Hi Ihr,
habe eine größere Adressdatenbank als Excel-Datei.
Der Inhalt sind normale Adressen, zu denen in jeder Spalte separat bestimmte Informationen (Nachname, Vorname, Email, Geburtstag, Beruf etc.) abgelegt sind.
Da die Datensätze immer wieder ergänzt und aktualisiert werden, ist...
13.08.2008 21:10:00
Thread-ID: 1001661
17 Beiträge
mit Find (VBA) nach Datum suchen
Werner

Hi!
Ich habe folgendes Problem:
Ich habe eine Spalte mit Datumseinträgen (z.B.:13.04.1953, 17.12.1970, ...)
Suche ich mit
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(What:="17")
bekomme ich ein Ergebnis
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(W...
13.08.2008 23:54:00
Thread-ID: 1001685
8 Beiträge
Liste "definierter Namen" per VBA?
David

Hallo zusammen,
ist es per VBA möglich, die in einer Tabelle definierten Namen auszulesen, in einem neuen Sheet aufzulisten und daneben den/die mit dem Namen verbundene(n) Bereich bzw. Formel?
Ich würde mir gern bei umfangreichen Namensdefinitionen das Nachschauen im Menü ersparen, da j...
14.08.2008 12:15:44
Thread-ID: 1001809
5 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
2
6
2
5
3
12
16
7
4
1
3
1
1
7
2
16
1
1
6
5
2
16
11
4