Makro/VBA Sheets kopieren und einfügen
Thomas
ich würde gerne wissen, ob ihr mir bei folgendem Anliegen weiterhelfen könntet:
Ich habe eine EXCEL-Datei erstellt, in der Schaltflächen hinterlegt sind, die spezielle Aufgaben erfüllen, u.a. Dateien öffnen, dann fragen, wo man sie speichern möchte, um so BackUps zu erstellen, welches sich in den einzelnen Dateien befindet, die überschrieben werden sollen.
Hier das Makro:
Sub saveas()
Dim var_Speichere As Variant
Dim str_FileName As String
str_FileName = Worksheets("frm").Cells(1, 1).Text & ".xls"
var_Speichere = Application.GetSaveAsFilename( _
InitialFileName:=str_FileName, _
FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", _
Title:="Datei speichern unter...")
If var_Speichere = False Then Exit Sub
ActiveWorkbook.saveas var_Speichere
End Sub
Mein Hauptanliegen besteht aber in einem Fehler an der o.a. Vorgehensweise. Wenn ich nun die Datei überschreibe, in der sich das Makro befindet, habe ich ja nichts mehr davon.
Deshalb frage ich mich, ob ihr eine Idee habt, wie ich die *.*txt Datei in die Datei "plan.xls" (Tabellenblatt "plan2010" - in dem anderen Sheet befindet sich das o.a. Makro, welches ich wiederum mit einem anderen Makro ausführe) einfügen kann.
Also kurz gesagt gehts darum,
1) eine *.*txt Datei zu öffnen
2) alles zu markieren
3) kopieren
4) "plan.xls" öffnen
5) inhalte in das Tabellenblatt "plan2010" einzufügen
Für Tipps danke ich euch sehr!!