Anzeige
Archiv - Navigation
960to964
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
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

In Excel Sheet nach String suchen

In Excel Sheet nach String suchen
17.03.2008 10:18:30
Sebastian
Hallo,
ich habe ein Problem
ich habe einen String in einer Variable
Jetzt habe ich in einer Excel Tabelle eine Liste mit Werten wo dieser Wert vorkommt. Jetzt möchte ich die Zeile ermitteln in der dieser Wert steht? Wie geht das?
Jetzt gibt es dazu noch ein Problem. In der Excel Tabelle kann vor oder hinter diesem Wert noch was stehen. Also in der Variable steht abc. Aber in der Excel Tabelle kann 01abc oder abc01 z.B. stehen oder auch 01abc01. Kann man so ne ar Platzhalter davor und dahinter setzen oder wie macht man das?

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In Excel Sheet nach String suchen
17.03.2008 10:51:00
Heiko
Hallo Sebastian,
z.B. so:

Sub SuchenVBA()
Dim rngWo As Range
Dim strWasSuchen As String
strWasSuchen = "abc"
Set rngWo = ActiveWorkbook.ActiveSheet.UsedRange.Find(strWasSuchen, LookIn:=xlValues, Lookat:= _
xlPart)
If Not rngWo Is Nothing Then
MsgBox rngWo.Address
MsgBox rngWo.Row
End If
End Sub


Gruß Heiko
PS: Rückmeldung wäre nett !

AW: In Excel Sheet nach String suchen
17.03.2008 11:00:13
Tino
Hallo,
hier eine version die alle sucht.

Sub test()
Dim Anz As Long, a As Long, SuchIN As Range
Dim MeinTXT As String, Zelle As Range
MeinTXT = "Tin" 'Mein Suchtext
Set SuchIN = Sheets("Tabelle1").Cells 'Wo soll gesucht werden
'Zähle Zellen mit diesen Textinhalt
Anz = Application.WorksheetFunction. _
CountIf(SuchIN, "*" & MeinTXT & "*")
With SuchIN
For a = 1 To Anz
If a = 1 Then
'Suche erste
Set Zelle = .Find(what:="*" & MeinTXT & "*", _
After:=.SpecialCells(xlCellTypeLastCell), LookIn:=xlValues)
MeinTXT = Zelle.Address & Chr(13)
Else
'Suche nächste
Set Zelle = .FindNext(After:=Zelle)
MeinTXT = MeinTXT & Zelle.Address & Chr(13)
End If
Next a
End With
Set Zelle = Nothing
Set SuchIN = Nothing
MsgBox MeinTXT 'Ausgabe der Info
End Sub


Gruß
Tino

Anzeige
AW: In Excel Sheet nach String suchen
17.03.2008 11:33:50
Sebastian
Hallo,
hab mal das Beispiel von Tino versucht.
Die anzahl der Zellen zu zählen wo der text drinnen steht geht.
Bekomme aber bei

Set rngwo = .Find(what:="*" & sstring & "*", After:=.SpecialCells(xlCellTypeLastCell), LookIn:=xlValues)


einen Fehler. Und zwar bei SpecialCells
Da bekomme ich die Meldung


Unzulääsiger oder nicht ausreichend definierter Verweis


AW: In Excel Sheet nach String suchen
17.03.2008 12:08:00
Tino
Hallo,
wird wohl nicht in Office 2000 unterstützt.
Versuche mal,
„MeineTabelle” noch den Richtigen Tabellennamen eintragen.
After:= sheets("MeineTabelle").Range("A65500")
Gruß
Tino

Anzeige
AW: In Excel Sheet nach String suchen
17.03.2008 12:13:27
Mag
Hi,

After:=Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1)


Gruss

AW: In Excel Sheet nach String suchen
17.03.2008 12:37:58
Sebastian
ok das geht
jetzt die gleiche Fehlermeldung bei .Find

AW: In Excel Sheet nach String suchen
17.03.2008 12:51:00
Mag
Hi,
warum? - Kopier 'mal den modifizierten Code unten in Dein Projekt:

Option Explicit
Sub test()
Dim Anz As Long, a As Long, SuchIN As Range
Dim MeinTXT As String, Zelle As Range
MeinTXT = "abc" 'Mein Suchtext
Set SuchIN = Sheets("Tabelle1").Cells 'Wo soll gesucht werden
'Zähle Zellen mit diesen Textinhalt
Anz = Application.WorksheetFunction.CountIf(SuchIN, "*" & MeinTXT & "*")
With SuchIN
For a = 1 To Anz
If a = 1 Then
'Suche erste
Set Zelle = .Find(what:="*" & MeinTXT & "*", _
After:=Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1), _
LookIn:=xlValues)
MeinTXT = Zelle.Address & Chr(13)
Else
'Suche nächste
Set Zelle = .FindNext(Zelle)
MeinTXT = MeinTXT & Zelle.Address & Chr(13)
End If
Next a
End With
Set Zelle = Nothing
Set SuchIN = Nothing
MsgBox MeinTXT 'Ausgabe der Info
End Sub


Gruss

Anzeige
AW: In Excel Sheet nach String suchen
17.03.2008 13:16:00
Tino
Hallo,
so sollte das ergebnis aussehen.
Userbild
Gruß
Tino

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige