Herbers Excel/VBA-Archiv

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

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

Zelle nach Inhalt suchen

• Zelle nach Inhalt suchen von Basti vom 17.08.2004 14:23:11
• AW: Zelle nach Inhalt suchen - von Alex am 17.08.2004 14:35:54
  • AW: Zelle nach Inhalt suchen - von nighty am 17.08.2004 15:07:15
    • Danke - von Basti am 17.08.2004 15:11:34
  • AW: Zelle nach Inhalt suchen - von Basti am 17.08.2004 15:08:14
    • AW: Zelle nach Inhalt suchen - von nighty am 17.08.2004 16:36:14

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"