ich benötige Hilfe bei folgendem Vorhaben:
Ausgangssituation:
Beim Drücken auf eine Schaltfläche 1 werden bestehende Zeilen und Spalten über ein Makro kopiert und neben der letzten bestehenden Spalte eingefügt (Schritt 1). Nun habe ich ein weiteres Makro angelegt, welches per Drücken auf eine Schaltfläche 2 aus drei Excel-Dateien-B genau definierte Werte aus einer Spalte in ein Arbeitsblatt in einer Excel-Datei-A kopiert (Schritt 2).
Ziel soll nun sein, dass dieser Vorgang mehrere Male wieder holt wird: Man kopiert über Schaltfläche 1 einen vorgegebenen Bereich aus Zeilen und Spalten, fügt ihn an die nächste freie Spalte an und kann im nächsten Schritt über die Schaltfläche 2 die Daten in den angelegten Bereich kopieren.
Schritt 1 funktioniert einwandfrei. Ich habe es allerdings nicht geschafft, dass mein Makro beim Schritt 2 ebenfalls in den nächsten freien Bereich - in dem sich noch keine Werte befinden - kopiert.
Ich hoffe ihr habt mein Problem verstanden und ihr könnt mir helfen. Gerne gebe ich auch den _ Code bekannt, den ich bereits programmiert habe:
Sub AImportXXX ()
' AImportXXX
' Tastenkombination: Strg+i
Dim strPfad As String
strPfad = Tabelle29.Cells(1, 1) 'TODO_ Hier die richtige Tabelle, Zeile und Spalte _
eintragen
If Right(strPfad, 1) "\" Then strPfad = strPfad & "\"
Range("H9:K127").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-96
GetNextFreeCell.Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
ChDir strPfad
Workbooks.Open Filename:=strPfad & "XXX1.xlsx"
Range("D4:D46").Select
Application.CutCopyMode = False
Selection.Copy
Windows("XXX.xlsm").Activate
Range("M12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:=strPfad & "XXX2.xlsx"
Range("D4:D13").Select
Application.CutCopyMode = False
Selection.Copy
Windows("XXXKopie7.xlsm").Activate
ActiveWindow.SmallScroll Down:=36
Range("M62").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks.Open Filename:=strPfad & "XXX3.xlsx"
Range("D4:D50").Select
Application.CutCopyMode = False
Selection.Copy
Windows("XXXKopie7.xlsm").Activate
ActiveWindow.SmallScroll Down:=15
Range("M79").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Vielen Dank!
MfG,
Philipp