|
Hallo,
ich komme gerade bei einem Problem nicht weiter.
Ich möchte eine bestimmte Range aus einer Tabelle kopieren und in ein anderes Excelsheet kopieren.
Das Macro startet per Klick auf eine Schaltfläche und spricht ein anderes Tabellenblatt an.
Problem: Das Sheet "Tabelle1" kann auch "Tabelle2", "Tabelle3" etc heißen, da die Tabellen per Datenabfrage aus einer Pivottabelle entstehen.
Wir ändere ich mein Macro, damit auch Tabellenblätter mit fortlaufender Nummer angesprochen werden?
Es gibt immer nur ein Tabellenblatt mit dem Namen"Tabelle(X)"
Gruß
Tim
Sub UebernahmeDaten()
'
' UebernahmeDaten Makro
'
'
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Characters.Text = "Übernahme Daten in Übergabebeleg"
End With
Sheets("Tabelle1").Select
Range("I2:K7").Select
Selection.Copy
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
Application.WindowState = xlMinimized
Workbooks.Open Filename:= _
"C:\Übergabebeleg.xls"
Range("A26").Select
ActiveSheet.Paste
Windows("Ausgabeliste.xlsx").Activate
Sheets("Tabelle1").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
End Sub
|