Variable Range
23.09.2013 19:12:14
Ludger
Jetzt habe ich hier folgende Syntax:
Sub kopieren()
Dim wsAkt As Worksheet, wkb As Workbook
Set wsAkt = ActiveSheet
Application.ScreenUpdating = False
For Each wkb In Workbooks
If Not wkb Is wsAkt.Parent Then
wkb.Sheets(1).Range("A1:O42").Copy _
wsAkt.Cells(Rows.Count, 1).End(xlUp).Offset(1)
wkb.Close False
End If
Next
End Sub
Der Ausdruck "wkb.Sheets(1).Range("A1:O42").Copy _" in Zeile 7 ist aber immer noch Explizit was die Range angeht, gibts da vllt noch nen einfachen Trick diese variabel zu machen? Die Datensätze fangen grundsätzlich bei A1 an, aber die Spaltenbreite soll nicht vordefiniert sein.
Anzeige