|
Guten Tag
Ausgangslage:
Ich habe eine Excelvorlage wo ich Daten (mehrere gleiche Exceldateien) bekomme und möchte diese mit dem untenstehenden Makro in einem 2. Excel sammeln.
Wie kann ich im 2. Excel jeweils bei der nächsten freien Zelle der entsprechenden Spalte die Daten beim Export aus dem 1. Excel anhängen?
Ich denke für Spalte A müsste bei => Range("A5").Select etwas anderes stehen weiss aber nicht wie programmieren!?
Kann mir da jemand weiterhelfen?
Freue mich auf eure Antworten.
Gruss
ch79
Sub Makro3()
'Daten exportieren in Basis
'
Range("A13:A20").Select
Selection.Copy
Application.WindowState = xlNormal
Windows("Mappe1").Activate
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Resultate.xlsm").Activate
Range("B13:B20").Select
Selection.Copy
Application.WindowState = xlNormal
Windows("Mappe1").Activate
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Resultate.xlsm").Activate
Range("C13:C20").Select
Selection.Copy
Application.WindowState = xlNormal
Windows("Mappe1").Activate
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Resultate.xlsm").Activate
End Sub
|