Kopie und Speicherung eines Tabellenblatts
04.10.2016 21:28:16
Andreas
ich suche nach einem Makro für die Kopie und Speicherung eines Tabellenblatts aus einer anderen Arbeitmappe und in eine geöffnetete Arbeitsmappe.
Habe schon verschiedene Code ausprobiert, jedoch Endet das immer mit Laufzeitfehler.
Nun komme ich so nicht weiter.
Vielleicht kann jemand einen funktionstüchtigen Code bereitstellen?
Ich versuch es mal genau zu Beschreiben.
CMD1 Mit einer "CMD Kopie aus" möchte ich das "Tabellenblatt1" aus einer anderen Datei vor das "Tabellenblatt1" in der geöffneten Mappe kopiert einfügen.
Muss dazu die andere Datei unbedingt geöffnet sein oder man das auch über ein Makro im Hintergrund erledigen- ohne die Datei erst zu öffnen?
Würde dazu ein Abfragefenster benötigen- "welche Datei soll eingefügt werden?"-
um dann in das Explorer Fenster zu gelangen- das mir z.B. den Windows-Explorer anbietet- um meine Datei auszuwählen. Aus der ausgewählten Datei soll nun die "Tabelle1" vor mein aktives Tabellenblatt Kopiert und umbenannt werden in " Bearbeitung ".
CMD2 Mit einer weiteren "CMD Kopie Bearbeitung" möchte ich das Tabellenblatt "Bearbeitung" der aktiven Mappe Kopieren und ans Ende der aktiven Mappe aber mit dem aktuellen Datum als Namen abspeichern.
Als aktive Mappe meine ich die, in dr ich mich befinde.
Sollte die Datei noch nicht existieren habe ich schon eine funktionierende Meldung.
Option Explicit
Sub GeheZu() 'Tabelle Bearbeitung
Dim i As Integer
Dim TabName As String
Dim gefunden As Boolean
TabName = "Bearbeitung"
For i = 1 To Sheets.Count
If Sheets(i).Name = TabName Then
Sheets(TabName).Select
gefunden = True
Exit For
End If
Next i
If Not gefunden Then
MsgBox "Die Tabelle " & Chr(34) & TabName & Chr(34) _
& " existiert nicht in dieser Mappe!", vbCritical + vbOKOnly, _
"Fehler in Zelle C1"
End If
End Sub
Also kurz gesagt:
CMD1 "CMD Kopie aus" aus anderer ungeöffneten Datei die Tabelle1 in meine aktive Mappe vor Tabellenblatt1 umbenannt in "Bearbeitung" kopieren / über Explorerfenster für Auswahl
CMD2 " Kopie Bearbeitung" in der gleichen Mappe, wo ich mich befinde, eine Kopie der Tabelle "Bearbeitung" (wenn existiert) und Umbenannt mit "Datum" als Name
Ist dies möglich- oder wird das gar nix.