Supportnet / Forum / Tabellenkalkulation

Hallo erst mal, Mein Problem: Wie kann man aus einer Excelliste mehrere Zeilen angezeigt bekommen, die einem Suchkriterium entsprechen? Normale Standardsuche liefert mir nur den Standort der evtl. Daten, leider jedoch nicht die ganze Zeile in der das Ergebnis steht. So soll am besten ein Schkriterium eingegeben werden können und Excel zeigt mir die Zeilen an, die dem Suchbegriff entsprechen. Dass mir Excel eine Zeile rausfindet ist nicht mein Problem, sondern mehrere Zeilen angezeigt zu bekommen, die dieses Suchkriterium enthalten.

Hallo,

schon mal mit "Daten""Filter""Autofilter" versucht.

Leider sind die Angaben nicht so, dass ich sagen kann ob es funktioniert, da beim Autofilter alle gesuchten Daten in der gleichen Spalte stehen müssen.

Gruß

Helmut.

hi all :)

ein beispiel :)

gruss nighty

Sub suchen()
Dim zaehler1 As Long
Dim zaehler2 As Boolean
Dim suche1 As Range
Dim wert As String
wert = InputBox("Suchbegriff")
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Set suche1 = Worksheets(1).Range("A" & zaehler1 & ":IV65535").Find(wert)
If Not suche1 Is Nothing Then
If Range(suche1.Row & ":" & suche1.Row).Interior.ColorIndex <> 3 Then
Rem Range(suche1.Row & ":" & suche1.Row).Interior.ColorIndex = xlNone
Range(suche1.Row & ":" & suche1.Row).Interior.ColorIndex = 3
zaehler1 = suche1.Row
zaehler2 = True
End If
If Range(suche1.Row & ":" & suche1.Row).Interior.ColorIndex = 3 And zaehler2 = False Then
Range(suche1.Row & ":" & suche1.Row).Interior.ColorIndex = xlNone
End If
End If
Next zaehler1
End Sub

hi all :)

oh korrigiert wollt noch wechselwirkung einbauen oben,so faerbt er erstmal nur

gruss nighty

Sub suchen()
Dim zaehler1 As Long
Dim suche1 As Range
Dim wert As String
wert = InputBox("Suchbegriff")
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Set suche1 = Worksheets(1).Range("A" & zaehler1 & ":IV65535").Find(wert)
If Not suche1 Is Nothing Then
If Range(suche1.Row & ":" & suche1.Row).Interior.ColorIndex <> 3 Then
Rem Range(suche1.Row & ":" & suche1.Row).Interior.ColorIndex = xlNone
Range(suche1.Row & ":" & suche1.Row).Interior.ColorIndex = 3
zaehler1 = suche1.Row
End If
End If
Next zaehler1
End Sub

Puuh bin ich froh, dass mir jemand weiterhelfen will
Vielen Dank euch da draußen.


Das mit dem Auto Filter hatte ich bereits ausprobiert.
Der Filter zeigt mir aber auch nur ein Ergebnis obwohl
mehrere möglich wären.

Hallo Nighty
Dein Makro probier ich auf jeden fall aus.
Ich meine Du hast auch mal nen Freund von mir
weiterhelfen können also warum sollte das nicht
klappen. Ich glaub an Dich. Was sollte ich sonst tun.

Hallo,

sind in derTabelle Leerzellen? Autofilter funktioniert nur bis zur ersten Leerzelle

Gruß

Helmut

Hallo Helmut mein treuer Helfer,

dein Vorschlag mit dem Auto-Filter funktioniert
natürlich einwandfrei. Bitte vielmals um Entschuldigung. Leider ist die Datenbank
nicht nur für mich sondern, sondern auch für andere,
die womöglich überhaupt keine Ahnung von Excel
haben. Für solche Benutzer ist es jedoch zu kompliziert
die entsprechenden Befehle zu kennen und zusätzlich noch die richtigen Bereiche auszuwählen.
Wäre das nur für mich gedacht so wäre das wie gesagt kein Problem.

Auch mit dem Makro von Nighty komme ich noch nicht so richtig klar. Ich bekomme zwar eine Suchbox erstellt
aber gebe ich zum Bsp. eine Zahl od. einen String ein,
so passiert gar nichts also mein Excel Arbeitsblatt ist
unverändert.

Also so sollte am besten in z.B. C3 mein Wert od. die Zeichenkette stehen und Excel zeigt mir in den folgenden unteren Zeilen die Trefferzeilen an.

• Excel; Automatisches Makro
• Wie öffne ich im Access eine bestimmte Excel-Datei
• Formatierung in Excel
• Excel, bestimmte Zahlen markieren
• Kalender für bestimmte Wochentage