Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren zwischen zwei Sheets mit Makro

Forumthread: Kopieren zwischen zwei Sheets mit Makro

Kopieren zwischen zwei Sheets mit Makro
01.02.2007 16:29:10
Thomas
Liebe Excelianer
Ausgangslage:
Ich habe eine Vorlage "Vorlage.xls". Von dieser möchte ich aus dem Tabellenblatt "Prämien" einen Teil (Zeile 26-48) in viele andere gleichaufgebaute Sheets mit unterschiedlichen Namen "NameXY.xls" ebenfalls im Tabellenblatt "Prämien" einfügen.
Problem:
Alle zu korrigierenden Dokumente "NameXY.xls" haben unterschiedliche Namen. Die Vorlage "Vorlage.xls" bleibt jedoch immer die gleiche.
Nehme ich ein Makro auf (eine andere Art der VBA-Programmierung kenne ich kaum), orientiert sich dieses am Namen des programmierten Sheets.
Wenn das nächste Dokument aber "NameZZ.xls" heisst, wird dies nicht erkannt, weil das Makro auf "NameXY.xls" aufgenommen wurde.
Frage:
1. Wie kann ich dieses Marko schreiben, ohne dass es auf den "falschen" Namen zugreift?
2. Wo hinein muss ich das Makro schreiben, wenn ich es anschliessend jemand anderem zur Verarbeitung geben möchte?
Danke für die Hilfe
Thomas
Der Code:

Sub einfügen()
' einfügen Makro
Windows("NameXY.xls").Activate
Sheets("Prämien").Select
Windows("Vorlage.xls").Activate
Rows("26:48").Select
ActiveWindow.SmallScroll Down:=3
Selection.Copy
Windows("NameXY.xls").Activate
Range("A28").Select
ActiveSheet.Paste
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren zwischen zwei Sheets mit Makro
02.02.2007 09:04:41
marcl
Halle Thomas,
versuch mal das. Alle Tabellen, wo reinkopiert werden soll öffnen und die Quelldatei zuletzt.
Dann dieses Makro nehmen:

Sub Makro1()
quelldatei = ActiveWorkbook.Name
Rows("26:48").Copy
ActiveWindow.WindowState = xlMinimized
Do While ActiveWorkbook.Name <> quelldatei
Range("A28").Select
ActiveSheet.Paste
ActiveWindow.Close savechanges = yes
Loop
ActiveWorkbook.Close
End Sub

Gruß
marcl
Anzeige
AW: Kopieren zwischen zwei Sheets mit Makro
05.02.2007 14:53:50
Thomas
Das Makro läuft perfekt, danke für die Arbeitsersparnis!
Gruss, Thomas
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige