Suche evtl. mit Makro zur Ausgabe einer Liste

Hallo,

In einer Tabelle sollen nach Eingabe in eine Suchmaske bestimmte Daten zurückgegeben werden.
Das Problem: Mit SVERWEIS kann ich wohl nicht arbeiten, da identische Nummern jeweils verschiedene Vornummern (Spalte A = Vornummer) haben können. Wenn ich mit SVERWEIS arbeite, zeigt er mir immer nur die erste gefundene Nummer mit den entsprechenden Namen an.
Es sollte aber eine Liste mit allen Entsprechnungen ausgegeben werden

Ich habe die Testdatei hochgeladen, in der auch das Wunschergebnis erläutert ist.
https://www.herber.de/bbs/user/761.xls

Kann ich dies nur mit einem Makro bewerkstelligen? Da ich keine VBA-Kenntnisse habe, weiss ich nicht weiter.

Das Ergebnis sollte dann z.B. so aussehen, wie in der Lasche 2 dargestellt

Ist dies mit Excel machbar?

Karl-Heinz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Karl-Heinz,
probier mal das folgende Makro, bei mir liefs.
Gruß
Reinhard
ps: du bist in Excel gut steht da, wie sprech ich nochmal Zellen in anderen Arbeitsblättern an, also mit dem Namen nicht mit Tabelle2.cells...
Die Basics kann ich nicht so gut :-)
und ("Suche")!.cells und ähnliches wolte excel nicht :-(


Sub SucheStarten()
' Diesen Makro in Tablle2(Suche) einbauen, in Tabelle2(Suche) in Zeile 1
' noch die Überschriften reinschreiben...
Dim s As String 'Eingagewert
Dim zNum As Integer ' aktuelle Zeile in "Nummern"
Dim zSuc As Integer ' aktuelle Zeile in "Suche"
Dim sNum As Integer ' Suchspalte in "Nummern"
Range("a2:g100").Delete
s = InputBox("Geben Sie bitte Namen oder Nummer ein.", "Auswahl")
If s = "" Then Exit Sub
sNum = 3
If IsNumeric(s) Then sNum = 2
zNum = 2
zSuc = 2
t = Tabelle1.Cells(zNum, sNum).Value
While Tabelle1.Cells(zNum, sNum).Value <> ""
x = Tabelle1.Cells(zNum, sNum).Value
If (InStr(1, x, s) > 0 And sNum = 3) Or (sNum = 2 And x = s) Then
Tabelle2.Cells(zSuc, 1).Value = Tabelle1.Cells(zNum, 3).Value
Tabelle2.Cells(zSuc, 2).Value = Tabelle1.Cells(zNum, 1).Value
Tabelle2.Cells(zSuc, 3).Value = Tabelle1.Cells(zNum, 2).Value
Tabelle2.Cells(zSuc, 4).Value = Tabelle1.Cells(zNum, 4).Value
Tabelle2.Cells(zSuc, 5).Value = Tabelle1.Cells(zNum, 5).Value
Tabelle2.Cells(zSuc, 6).Value = Tabelle1.Cells(zNum, 6).Value
Tabelle2.Cells(zSuc, 7).Value = Tabelle1.Cells(zNum, 7).Value
zSuc = zSuc + 1
End If
zNum = zNum + 1
Wend
End Sub

Beliebteste Forumthreads (12 Monate)

Suche evtl. mit Makro zur Ausgabe einer Liste

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread