Tabelle in andere Arbeitsmappe verschieben
15.12.2003 12:42:58
Jürgen
wäre schön, wenn mir jemand helfen könnte.
Problem: Ich öffne per Makro eine neue Arbeitsmappe; per InputBox wird diese unter einem Namen abgespeichert. Nun wechsel ich in eine andere Arbeitsmappe und möchte das aktive Tabellenblatt in die neu erstellte Arbeitsmappe an letzter Stelle verschieben. Der Name der neu erstellten Arbeitsmappe ist immer unterschiedlich.
Bis jetzt sieht mein Makro wie folgt aus:
Sub Abfrage_Datei()
Dim Meldung
Dim Titel
Dim Voreinstellung
Dim Wert2
Workbooks.Add
Meldung = "Dateiname?"
Titel = "Auswertung Januar"
Voreinstellung = ""
Wert2 = InputBox(Meldung, Titel, Voreinstellung)
ActiveWorkbook.SaveAs FileName:=Wert2, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
Windows("Januar.xls").Activate
und irgendwo hier beginnen die Probleme
AktiveSheets.Select ???
Sheets.Move after:=Workbook = Wert2
End Sub
Für Hilfe wäre ich sehr dankbar.
Gruß Jürgen