Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1540to1544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sheet in andere Datei speichern

Sheet in andere Datei speichern
22.02.2017 18:21:13
Kurt
Guten Abend,
vielleicht hat jemand so eine Möglichkeit als Makro-Beispiel.
Ich möchte eine Sheet in einer Datei anklicken bzw. aktivieren.
In der Sheet Button drücken und nun sollte die aktive Sheet in eine andere
offene Datei kopiert werden.
Geht das ?
gruß
kurt k

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheet in andere Datei speichern
22.02.2017 19:09:55
Michael
Hallo!
zB so (in einem allgemeinen Modul in Mappe 1):
Sub BlattHinueber()
Dim WbQ As Workbook: Set WbQ = ThisWorkbook
Dim Ws As Worksheet: Set Ws = WbQ.Worksheets("Tabelle1")
Dim WbZ As Workbook: Set WbZ = Application.Workbooks("DieAndereMappe.xlsx")
With Ws
.Copy after:=WbZ.Worksheets(WbZ.Worksheets.Count)
End With
End Sub
Die zweite Mappe muss hier natürlich bereits geöffnet sein, das hab ich jetzt nicht abgefangen.
LG
Michael
Fehlermeldung Laufzeitfehler 9
22.02.2017 19:20:46
Kurt
Hallo Michael,
das die 2. Datei geöffnet ist ist gewährleistet.
Leider Fehlermeldung Laufzeitfehler 9 , bleibt hier stehen:
Set Ws = WbQ.Worksheets("Tabelle1")
aber es ist Tabelle1
gruß
kurt k
Anzeige
kleiner Wunsch ...
22.02.2017 19:24:58
Kurt
Hallo Michael,
es sollte die aktive Sheet kopiert werden und in die aktive offene
Datei auswählen ?gruß
kurt k
AW: kleiner Wunsch ...
22.02.2017 19:43:56
Daniel
Hi
Sicher?
wichtig ist, was auf dem Tabellenblattreiter steht.
Bzw, im Projekt-Explorerbaum IN der Klammer.
Achte auch auf Leerzeichen.
"Tabelle1" ist was anderes als "Tabelle 1"
Gruß Daniel
AW: kleiner Wunsch ...
22.02.2017 21:40:08
Kurt
Hallo Daniel,
bin ganz sicher es steht Tabelle1 (Name) drin.
gruß
kurt k
WbQ.ActiveSheet
22.02.2017 22:52:58
KlausF
Hi,
versuch mal in der 2. Zeile:
Dim Ws As Worksheet: Set Ws = WbQ.ActiveSheet
Ändert sich dann etwas?
Gruß
Klaus
AW: WbQ.ActiveSheet
23.02.2017 09:47:47
Kurt
Guten Morgen Klaus,
werde im laufe des Tages probieren,
gruß
kurt k
Anzeige
Danke Klaus -)
24.02.2017 11:55:20
Kurt
Danke Klaus -)
24.02.2017 11:58:11
Kurt
Danke Klaus -)
24.02.2017 13:40:06
Kurt

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige