Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Text finden mit VBA

Betrifft: Text finden mit VBA von: barbara
Geschrieben am: 15.09.2004 15:48:28

Gibt es eine VBA-Routine, mit der ein bestimmter Textstring innerhalb eines Bereiches von Zellen gefunden wird?

Es soll dabei die aktive Zelle nicht bewegt werden oder sonst irgend was in der Tabelle zu sehen sein. Denn dann könnte ich es ja mit der Excel-Funktion "Suchen" machen, was nicht so elegant wäre. Am liebsten wäre mir eine Funktion, die die Zelle zurückgibt, in der der String gefunden wurde.

Vielleicht gibt es sogar eine fertige Funktion dazu?

LG, B.

  


Betrifft: AW: Text finden mit VBA von: Ulf
Geschrieben am: 15.09.2004 15:54:09

Sub such_was()
On Error GoTo NIX
MsgBox Cells.Find("DeinBegriff").Address(0, 0)
Exit Sub
NIX:
MsgBox "Nichts gefunden!"
End Sub


Ulf


  


Betrifft: AW: Text finden mit VBA von: Mac4
Geschrieben am: 15.09.2004 15:54:58

Hallo Barbara,

hier mal ein Beispiel:

Sub test()
Dim Treffer
Set Treffer = Range("A1:E12").Find("hallo", LookIn:=xlValues, lookat:=xlPart)
If Not Treffer Is Nothing Then
MsgBox Treffer.Address
Else
MsgBox "Suchstring nicht gefunden"
End If
End Sub


Marc


  


Betrifft: AW: Text finden mit VBA von: barbara
Geschrieben am: 15.09.2004 16:22:12

Danke. Hab noch Schwierigkeiten mit der Find-Funktion und seinen Attributen, die Du verwendet hast.

Kann man das vielleicht irgendwo nachlesen?


  


Betrifft: AW: Text finden mit VBA von: Mac4
Geschrieben am: 15.09.2004 16:31:26

Hallo Barbara,

markiere in VBA-Editor das Wort find und dann F1. Die Onlinehilfe hat hier ein schönes Beispiel!

Marc


 

Beiträge aus den Excel-Beispielen zum Thema "Text finden mit VBA"