Excel Suche mit Ausgabe

[ScyX]

HI,

ich habe eine Frage und hoffe ihr könnt mir mit dem Code helfen oder mir direkt sagen wie das überhaupt funktioniert und ob es überhaupt funktioniert.

Zu meinem Problem.

Ich habe eine Excel Tabelle

Aufbau:

A | B | C

1 | Wert 3 | TEXT | Nummern

2 | Wert 5 | TEXT | Nummern

3 | Wert 8 | TEXT | Nummern

4 | Wert 5 | TEXT | Nummern

5 | Wert 3 | TEXT | Nummern


______________________

Das geht weiter ca. 500 Spalten nach unten.

So in der zweiten registerkarte möchte ich gerne eine Zelle haben in die ich z.B. "Wert 3" eingebe und in die Spalte daneben einen Button "Suche" einfüge.

Wenn ich dann auf Suche klicke soll das ca so aussehen

Wert 3 TEXT Nummern
Wert 3 TEXT Nummern


_______________________

Heißt also ich brauche irendwelche befehle (kenne mich eig nicht damit aus), die die erste Registerkarte durchsuchen und die Suchergebnisse in der zweiten Registerkarte ausgeben.

Hoffe ihr könnt mir helfen

LG Philipp

 

[FrozenFlame6]

Das Steuerelement müsste dann z.B. mit diesem Makro hinterlegt werden:

Sub FindenUndKopieren()

Dim rng As Range
Dim loDeinWert As Long
Dim sFirstAdress As String


loDeinWert = Worksheets("Tabelle2").Range("B1") 'gesuchter Wert

Set rng = Worksheets("Tabelle1").Range("A:C").Find(loDeinWert)

If rng Is Nothing Then
MsgBox "Wert " & loDeinWert & " nicht gefunden!"
Else
sfirstaddress = rng.Address
Do
rng.EntireRow.Copy
Worksheets("Tabelle2").Cells(Rows.Count, "A").End(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Set rng = Worksheets("Tabelle1").Range("A:C").FindNext(rng)
Loop While Not rng Is Nothing And rng.Address <> sfirstaddress
End If

End Sub

---

In Tabelle 2 muss das "Suchfeld" dann B1 sein (lässt sich natürlich ändern).

Probiers mal aus, sollte aber funktionieren. Das Makro erkennt, wenn bereits bei vorherigen Suchen Werte gefunden wurden und fügt die neuen Werte unterhalb dieser ein.

 

[ScyX]

Das Makro hinterlege ich dann unter meinen Suchknopf richtig?

 

[FrozenFlame6]

Das Makro hinterlege ich dann unter meinen Suchknopf richtig?

Genau
Und nicht vergessen, die Arbeitsmappe mit Makros (.xlsm) abzuspeichern, sonst werden die makros alle gelöscht

 

[DerVollo]

Ist es nicht einfacher, auf dem Originalblatt einfach das pulldown-Menü für Spalte A zu verwenden? Dann stehen dort auch nur die Werte, wo in Spalte A "Wert 3" steht. (Ist halt ohne den schicken Suchbutton in einer extra Zelle; aber Du brauchst dafür kein extra Tabellenblatt)

Grüße
Der Vollo