Habe eine Frage welche sich darauf bezieht, ob es möglich ist über Userform, Listbox oder _ anderem in einem Makro den Text, im diesem Makro (siehe unten) z.B. den "November" Range A1 oder A15 wöchentlich zu ändern ohne es jedesmal öffnen zu müssen
Sub Copy_Zellbereiche_Variante()
Dim wkb_Q As Workbook, wks_Q As Worksheet
Dim wkb_Z As Workbook, wks_Z As Worksheet
Set wkb_Q = Application.Workbooks("Datei1.xlsx")
Set wks_Q = wkb_Q.Worksheets("Blatt 1")
Set wkb_Z = Application.Workbooks("Datei2.xlsx")
Set wks_Z = wkb_Z.Worksheets("November")
'Nur Formate und Werte kopieren
wks_Q.Range("A4:A14").Copy
wks_Z.Range("A1").PasteSpecial Paste:=xlPasteFormats
wks_Z.Range("A1").PasteSpecial Paste:=xlPasteValues
wks_Q.Range("A37:A56").Copy
wks_Z.Range("A15").PasteSpecial Paste:=xlPasteFormats
wks_Z.Range("A15").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
. Vielleicht habt Ihr eine Antwort darauf.Schon mal vielen Dank für die Hilfe
LG Robert