schumger
Goto Top

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

Content-Key: 202249

Url: https://administrator.de/contentid/202249

Printed on: April 19, 2024 at 20:04 o'clock