Ich benötige eure Hilfe. Ich möchte ein Makro schreiben, dass einzelne Worksheets aus einer anderen Datei untereinander zusammenkopiert. Anfangen soll er in der Zelle AJ16.
Der NAme der Datei soll sich in der Zelle B2 meines Variablenblatts befinden und in dieser Datei soll er auch als weiteres Arbeitsblatt die Zusammenfassung reinkopieren.
Für ein Blatt funktioniert es, allerdings stehe ich gerade vor dem Problem zu sagen, dass er das nächste Sheet unter den bereits kopierten Werten in der Zusammenfassung ablegen soll.
Ist es auch möglich in dem Variablensheet die Namen der Arbeitsblätter zu nennen und das Makro dann darauf hin zu verweisen. Somit könnte es einfach erweitert werden.
Momentan wähle ich nur irgendwelche Arbeitsblätter an.
Über jegliche Hilfe wäre ich sehr dankbar.
Sub untereinanderkopieren()
Dim i As Integer
Dim r As Range
Dim letzteZeile As Long
Dim lngLastRow As Long
Dim letzteZelle As Range
Range("B2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
With ActiveWorkbook
For i = 2 To .Worksheets.Count
For Each r In ActiveSheet.UsedRange
If r.Rows.Hidden = False Then
letzteZeile = r.Row
End If
Next
Range("AJ16:AW" & letzteZeile).Copy
Windows("Menu").Activate
Sheets("rohdaten").Select
lngLastRow = Sheets(ActiveWorkbook.Sheets.Count).Cells(1, 1).End(xlUp).Row + 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
End With
End Sub