Hallo an Alle,
ich habe mir ein Makro gestrickt,welches mir die Daten aus allen vorhandenen Tabellen ab der 2. Zeile in die Datei "Mappe1Tabelle1
kopiert. Ich muß aber immer den Namen der Tabelle in A--.xls ändern. Wie bekomme ich es hin, daß die jeweils geöffnete Tabelle angesprochen wird?
Dim iSheet As Integer
Dim iLastShet As Integer
Application.ScreenUpdating = False
iLastShet = ThisWorkbook.Sheets.Count
Windows("A--.xls").Activate
For iSheet = 1 To iLastShet
'iLastShet = ThisWorkbook.Sheets.Count
Workbooks("A--.xls").Worksheets(iSheet).Activate
b = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:J" & b).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Mappe1").Activate
Sheets("Tabelle1").Select
Cells(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Activate
ActiveSheet.Paste
Next
lmstr = "Es wurden " & iLastShet & " Blätter rumgeholt!!"
MsgBox lmstr
End Sub
Für Eure Verbesserungen dankt
wim