Tabelle sortieren und nach Kriterien aufschlüsseln
12.02.2004 13:16:21
S.Schrader
leider komme ich (mal wieder) nicht weiter, weshalb ich mich vertrauensvoll an das werte Forum wende.
Folgendes Problem:
Aus einer Tabelle mit verschiedenen Informationen (zB Spalte A: Nachname, Spalte B: Wohnort, Spalte C: Adresse etc...) soll eine Auswertung auf einem anderen Tabellenblatt erstellt werden. Das Kriterium soll der "Nachname" sein, welcher nur eine bekannte Menge umfasst.
Auf dem Auswertungsblatt steht zB in Zelle A1 der Nachname Müller, in Zelle A4 der Nachname Meier und in Zelle A7 der Nachname Schulze. Nun benötige ich ein Makro, welches in dem Blatt mit den Informationen sucht und bei Übereinstimmung des Nachnamens aus dieser Zeile die Werte der Spalten B,C und E unter den entsprechenden Namen im Auswertungsblatt schreibt.
Bisher habe ich versucht, das Ganze über einen Autofilter zu lösen. Zusätzlich habe ich den Zellen im Auswertungsblatt einen Namen gegeben, der ihrem Inhalt entspricht (Müller für Müller, Meier für Meier...).
Das Ganze sieht dann so aus:
Sub Variabler_Filter()
Selection.AutoFilter Field:=4, Criteria1:="=*" & Range("Müller") & "*"
Range("A1").CurrentRegion.Copy
Application.Goto Reference:="Müller"
ActiveSheet.Paste
End Sub
Dass ich diesen Ablauf für jeden Nachnamen neu machen muss ist kein Thema. Jedoch kopiere ich dadurch erstens die gesamte Tabelle und zweitens werden keine neuen Zeilen eingefügt.
Wer kann helfen?
Vielen Dank schonmal im Voraus für Eure Mühen!