Hallo zusammen,
ich versuche mich gerade ein bisschen in VBA und taste mich langsam voran. Habe mit dem Makrorekorder ein Makro aufgezeichnet, das ich gerne weiterbearbeiten möchte und hierbei brauche ich ein bisschen Hilfe.
Ich habe eine Tabelle mit 5 Blättern. In jedem Blatt sind jeweils 7 "Datensätze", bestehend aus insgesamt 7 Zellen die nicht zusammenhängen.
Es sollen nur die Werte jedes "Datensatzes" in einer anderen Tabelle auf jeweils 1 Blatt kopiert werden = insgesamt werden es dann bis zu 35 Blätter.
Workbooks.Open Filename:= _"C:\Excel\Fahrauftrag.xls"
Windows("Tagesplanung.xls").Activate
Sheets("Tabelle1").Select
Range("a9").Select
Selection.Copy
Windows("Fahrauftrag.xls").Activate
Sheets("1").Select
Range("i3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("Tagesplanung.xls").Activate
Range("D12").Select
Selection.Copy
Windows("Fahrauftrag.xls").Activate
Range("D11").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
usw.
Das Makro wird auf diese Weise furchtbar lang und ich möchte wissen, wie ich es kürzer fassen kann. Vielleicht kann mir das jemand an meinem Beispiel erklären.
Sicherlich könnte ich das Problem auch mit einfachen Bezügen lösen, aber ich möchte im nächsten Schritt nur Blätter in der Mappe Fahrauftrag haben, die auch wirklich mit Daten befüllt sind. Und wenn ich dann noch mag, sollen die Tabellen blätter in der Mappe Fahrauftrag dann jeweils den Namen eines Feldes aus dem "Datensatz" erhalten (aber da hab ich im Archiv schon was gefunden) :-)
Vielen Dank
Kati