Microsoft Excel

Herbers Excel/VBA-Archiv

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

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"