Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1884to1888
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

Teile von Blatt in andere Datei kopieren

Teile von Blatt in andere Datei kopieren
30.05.2022 11:32:58
Blatt
Hallo,
ich habe eine Datei überarbeitet (Projektstunden-Tracking pro Mitarbeiter) und würde gerne aus der aktuell gepflegten Datei die Einträge in die neue Übertragen. Als einmalige Sache, aber da es >50 Blätter sind etwas zeitaufwändig. Da ich unerfahren bin was VBA mit mehrere Datei angeht brauche ich etwas Unterstützung.
Wir haben also zwei Dateien. Diese können beide gleichzeitig geöffnet sein
Datei 1 = NEU
Datei 2 = ALT
Ablauf wäre für mich
1. in ALT - Kopieren von Bereich B3 bis AJ 183
2. in ALT - kopieren vom Blattnamen
3. in NEU - Blatt "Vorlage" kopieren, ans Ende stellen und einfügen des Bereichs als Formel (gleiche Stelle B3 bis AJ183)
4. in NEU einfügen von Blattname aus ALT
Repeat bis alle Blätter aus ALT durchgegangen sind
Beispielmappe:
https://www.herber.de/bbs/user/153318.xlsx
So sieht ALT und NEU aus. (ALT mit etwas anderer Formatierung und bedingter Formatierung, daher einfügen als Formel)

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teile von Blatt in andere Datei kopieren
30.05.2022 13:34:40
Blatt
Hallo
in ein normales Modul in der Datei Alt.xlsm.

Sub kopieren()
Dim Wb1 As Workbook, WB2 As Workbook, Sh, TB As Worksheet
Dim RNG As String
Set Wb1 = Workbooks("Alt.xlsm") ' ist offen
Set WB2 = Workbooks("Neu.xlsx") ' ist offen
RNG = "B3:AJ183"
For Each Sh In Wb1.Sheets
WB2.Sheets("Vorlage").Copy after:=WB2.Sheets(WB2.Sheets.Count)
Set TB = WB2.ActiveSheet
'prüfen, ob Blattname schon vorhanden
If IsError(Evaluate("'[" & WB2.Name & "]" & Sh.Name & "'!A1")) Then
'noch nicht
TB.Name = Sh.Name
Sh.Range(RNG).Copy
TB.Range(RNG).Cells(1, 1).PasteSpecial Paste:=xlPasteFormulas
Else
MsgBox Sh.Name & ":   bereits in ' " & WB2.Name & "' vorhanden"
TB.Name = Sh.Name & " " & CDbl(Time) 'ggf Ersatzname
End If
Next
End Sub
LG UweD
Anzeige
AW: Teile von Blatt in andere Datei kopieren
31.05.2022 08:29:05
Blatt
Super! Vielen Dank. Funktioniert 1a
Danke für die Rückmeldung (owT)
31.05.2022 09:18:58
UweD

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige