Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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)
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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