möchte hinter Tabelle1 noch andere eintragen was für ein zeichen muss ich dazwischen setzen , ; geht nicht ?
Sheets(Array("Tabelle4", "Tabelle3")).Copy Before:=Sheets(1)
gruß
ae
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Copy
Gruß Lutz
Sub Tech()
Sheets(Array("Tabelle4", "Tabelle3")).Copy Before:=Sheets(1)
ActiveSheet.OLEObjects.Delete
With ActiveSheet.UsedRange
.Value = .Value
End With
With ActiveSheet.Parent.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
On Error GoTo ERRORHANDLER
ActiveWorkbook.SaveAs Range("B1").Value & "\test4.xls"
Exit Sub
ERRORHANDLER:
MsgBox "Die Datei konnte nicht gespeichert werden!"
End Sub
Also ich habe die Funktion zum Kopieren einer Tabelle in eine neue xls Datei. Ich will aber mehrere Tabellen kopieren.
"Index außerhalb des gültigen Bereichs"