Liste per Makro vervollständigen - HELP!
13.08.2008 09:50:13
stephan
Ich habe eine riesige Excelliste, die leider noch angepasst werden muss um sie Pivot-Table tauglich zu machen. Hier nun mein Problem:
Liste:
Name Ergebnis
A 1
leer 2
leer 5
leer 6
B 5
leer 4
leer 3
leer 8
Mit dieser Auflistung bekäme ich in der Pivot-Tabelle nicht alle Ergebnisse von A. Daher sollte die Tabelle so aussehen:
Liste:
Name Ergebnis
A 1
A 2
A 5
A 6
B 5
B 4
B 3
Ich möchte dies nun mit einem Makro automatisieren, so dass der Name runterkopiert wird, bis der nächste Name erscheint. Dazu habe ich folgenden Code:
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Range("D130:D135").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Range("D136:D145").Select
ActiveSheet.Paste
Mein Problem ist nun, dass das Makro den Bereich ("D130:D135") festlegt und ihn nicht variabel lässt. So kann ich das nicht für die ganze Liste verwenden.
Hat mir jemand einen Tipp wie ich das machen muss, damit sich die Liste per Makro vervollständigt?
Vielen Dank!
Stephan