Kommentare mittels Makro in eine Arbeitsmappe kopieren
Hallo liebe Excel Speziallisten,
ich, VBA Neuling habe folgendes Problem.
Ich habe eine kopiergeschützte Quell-Arbeitsmappe (VM.xlsm) mit 12 Tabellenblätter (Jan – Dez.), wo in jedem Monatsblatt in insgesamt 4 Bereichen (4 Arbeitsgruppen) Kommentare eingefügt sind.
Diese Kommentare möchte ich in die jeweils zugehörigen Arbeitsmappen der Gruppen mittels Makro kopieren.
Das heißt:
Bereich 1 kopieren der Tabelle Jan. von Quell-Arbeitsmappe in Tabelle Jan. von Arbeitsmappe der Gruppe 2 (WG2.xlsm),
Bereich 2 kopieren der Tabelle Jan. von Quell-Arbeitsmappe in Tabelle Jan. von Arbeitsmappe der Gruppe 3 (WG3.xlsm), usw.
Feb - Dez. in gleicher Weise.
Mittels Makrorecorder habe ich folgendes erstellt:
Sub Kommentare()
'
' Kommentare Makro
' Kopiert Kommentare in die Gruppenmappe
'
' Tastenkombination: Strg+f
'
Application.Run "VM.xlsm!Kopieren_Aktivieren"
Range("C6:AG11").Select
Selection.Copy
Windows("WG 2.xlsm").Activate
Range("C13:AG18").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Application.Run "'VM.xlsm'!Kopieren_Deaktivieren"
End Sub
Das Makro schreibt mir aber z. B. Kommentare vom März immer in den Januar.
Was habe ich falsch gemacht.
Für eine Lösung wäre ich sehr dankbar.
Viele Grüße
Schumger
ich, VBA Neuling habe folgendes Problem.
Ich habe eine kopiergeschützte Quell-Arbeitsmappe (VM.xlsm) mit 12 Tabellenblätter (Jan – Dez.), wo in jedem Monatsblatt in insgesamt 4 Bereichen (4 Arbeitsgruppen) Kommentare eingefügt sind.
Diese Kommentare möchte ich in die jeweils zugehörigen Arbeitsmappen der Gruppen mittels Makro kopieren.
Das heißt:
Bereich 1 kopieren der Tabelle Jan. von Quell-Arbeitsmappe in Tabelle Jan. von Arbeitsmappe der Gruppe 2 (WG2.xlsm),
Bereich 2 kopieren der Tabelle Jan. von Quell-Arbeitsmappe in Tabelle Jan. von Arbeitsmappe der Gruppe 3 (WG3.xlsm), usw.
Feb - Dez. in gleicher Weise.
Mittels Makrorecorder habe ich folgendes erstellt:
Sub Kommentare()
'
' Kommentare Makro
' Kopiert Kommentare in die Gruppenmappe
'
' Tastenkombination: Strg+f
'
Application.Run "VM.xlsm!Kopieren_Aktivieren"
Range("C6:AG11").Select
Selection.Copy
Windows("WG 2.xlsm").Activate
Range("C13:AG18").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Application.Run "'VM.xlsm'!Kopieren_Deaktivieren"
End Sub
Das Makro schreibt mir aber z. B. Kommentare vom März immer in den Januar.
Was habe ich falsch gemacht.
Für eine Lösung wäre ich sehr dankbar.
Viele Grüße
Schumger
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 202249
Url: https://administrator.de/forum/kommentare-mittels-makro-in-eine-arbeitsmappe-kopieren-202249.html
Ausgedruckt am: 20.06.2025 um 09:06 Uhr