Zelle nach Inhalt suchen
Betrifft: Zelle nach Inhalt suchen
von: Basti
Geschrieben am: 17.08.2004 14:23:11
Hallo!
Ich möchte in meiner Tabelle eine Zelle suchen, die einen bestimmten Inhalt hat. Ich dachte, das das mit der .find - Funktion machbar sei, aber leider bekomme ich es net hin, kann mir einer Helfen??
Danke
Mfg
Basti
Betrifft: AW: Zelle nach Inhalt suchen
von: Alex
Geschrieben am: 17.08.2004 14:35:54
Hi Basti,
füge die Formel in ein Modul ein ordne es einem Bild oder Button zu und Du kannst Deine ganze Arbeitsmappe Durchsuchen nach einem Bergriff mußt nur bei der Suche am ende immer ein "*" einsetzten dan such er alle ergebnisse mit dem gesuchten Wert.
Sub suchen()
Dim Tabelle As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
Dim blatt
'**
blatt = Application.ActiveSheet.Name
SBegriff = InputBox("Bitte Suchbegriff eingeben")
'**********Abbbruch*******
If SBegriff = "" Then
MsgBox "Suche wurde abgebrochen!"
ThisWorkbook.Sheets(blatt).Activate
Exit Sub
End If
'*********Abbruch ende*****
For Each Tabelle In Worksheets
Tabelle.Activate
Set GZelle = Tabelle.Cells.Find("*" & SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("Weitersuchen?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.FindNext(After:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Tabelle
ThisWorkbook.Sheets(blatt).Activate
MsgBox "Suche beendet - keine weiteren Einträge gefunden !"
End Sub
Gruß Alex
Betrifft: AW: Zelle nach Inhalt suchen
von: nighty
Geschrieben am: 17.08.2004 15:07:15
hi alle :)
oder so
Sub makro01()
Dim suche1 As Range
Set suche1 = Worksheets(1).Range("A1:IV65535").Find("DeinSuchbegriff")
If Not suche1 Is Nothing Then
Cells(suche1.Row, suche1.Column).Select
End If
End Sub
gruss nighty
Betrifft: Danke
von: Basti
Geschrieben am: 17.08.2004 15:11:34
Super, der zweite Vorschlag funktioniert wie ich das will...
Danke!!
Mfg
Basti
Betrifft: AW: Zelle nach Inhalt suchen
von: Basti
Geschrieben am: 17.08.2004 15:08:14
Das ist mir ein bissel zu kompliziert, er kann nur 1 Ergebnis finden, weil dieser Eintrag nur einmal in der Tabelle steht, und in die Zelle, in der er das Ergebnis findet soll dann etwas anderes rein geschrieben werden!
Betrifft: AW: Zelle nach Inhalt suchen
von: nighty
Geschrieben am: 17.08.2004 16:36:14
hi basti :)
:)
gruss nighty
Sub makro01()
Dim suche1 As Range
Set suche1 = Worksheets(1).Range("A1:IV65535").Find("DeinSuchbegriff")
If Not suche1 Is Nothing Then
Cells(suche1.Row, suche1.Column)="DeinText"
rem bzw uebernahme einer zelle
rem Cells(suche1.Row, suche1.Column)=cells(1,1)
End If
End Sub
Beiträge aus den Excel-Beispielen zum Thema "Zelle nach Inhalt suchen"