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
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 202249
Url: https://administrator.de/contentid/202249
Printed on: April 19, 2024 at 20:04 o'clock