verschieden Wort im Code ändern

Guten Morgen Ihr lieben Exelfreunde
Ich habe ein Frage zu einem Problem, welches ich nicht alleine hinbekomme. Ich habe eine Makro _
zum Kopieren von Daten von einer Mappe in eine andere. Bestimmte Punkte in den Makro ändern _ sich wöchentlich. Habe jetzt 53 Makros für das Jahr für die jeweilige Woche geschrieben. Es wäre aber wesentlich einfacher wenn ich per Eingabe den Text im Code jede Woche ändern könnte. Geht das.


MakrosLohn2021_01_011_Klicken()
Dim wbZiel As Workbook
Set wbZiel = Workbooks.Open("N:\LOHN2021\LOHN2021.xlsm")
ThisWorkbook.Worksheets("Lohn aufbereitet").Range("AA1:AJ329").Copy
wbZiel.Worksheets("Januar").Range("x1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Set wbZiel = Nothing
End Sub

Einmal im Jahr sollte LOHN2021\LOHN2021 geändert werden, Monatlich Januar, und wöchentlich x1. Ist das möglich. Wenn ja wie.
Für Eure Hilfestellung wäre ich sehr dankbar.
LG Robert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub MakrosLohn_Klicken() Dim wbZiel As Workbook Dim strDatei as String, strMonat as String strDatei=Range("A1") strMonat=Range("A2") Set wbZiel = Workbooks.Open(strDatei) ThisWorkbook.Worksheets("Lohn aufbereitet").Range("AA1:AJ329").Copy wbZiel.Worksheets(strMonat).Range("x1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Set wbZiel = Nothing End Sub

Sub MakrosLohn_Klicken() Dim wbZiel As Workbook Dim strDatei as String, strMonat as String strDatei=Range("A1") strMonat=Range("A2") strRange=Range("A3") Set wbZiel = Workbooks.Open(strDatei) ThisWorkbook.Worksheets("Lohn aufbereitet").Range("AA1:AJ329").Copy wbZiel.Worksheets(strMonat).Range("x1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Set wbZiel = Nothing End Sub

Sub MakrosLohn_Klicken() Dim wbZiel As Workbook Dim strDatei As String, strMonat As String, strRange As String strDatei = Range("A1") strMonat = Range("A2") strRange = Range("A3") Set wbZiel = Workbooks.Open(strDatei) ThisWorkbook.Worksheets("Lohn aufbereitet").Range("AA1:AJ329").Copy wbZiel.Worksheets(strMonat).Range(strRange).PasteSpecial _ Paste:=xlPasteValuesAndNumberFormats Set wbZiel = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

286 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

verschieden Wort im Code ändern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

286 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread