Hallo!
Folgende Lösung:
Sub Ersetzen()
Sheets(Array("Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", _
"September", "Oktober", "November", "Dezember")).Select
Range("D4:K6,D9:K13,D16:K21").Select
Selection.Replace What:=Worksheets("Daten").Cells(1, 20), Replacement:=Worksheets("Daten").Cells(1, 17), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=Worksheets("Daten").Cells(2, 20), Replacement:=Worksheets("Daten").Cells(2, 17), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=Worksheets("Daten").Cells(3, 20), Replacement:=Worksheets("Daten").Cells(3, 17), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=Worksheets("Daten").Cells(4, 20), Replacement:=Worksheets("Daten").Cells(4, 17), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=Worksheets("Daten").Cells(5, 20), Replacement:=Worksheets("Daten").Cells(5, 17), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=Worksheets("Daten").Cells(6, 20), Replacement:=Worksheets("Daten").Cells(6, 17), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=Worksheets("Daten").Cells(7, 20), Replacement:=Worksheets("Daten").Cells(7, 17), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=Worksheets("Daten").Cells(8, 20), Replacement:=Worksheets("Daten").Cells(8, 17), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Sheets("KG und TZB").Activate
Sheets("Jänner").Activate
End Sub
Jetzt fehlt mir nur noch das Makro mit dem ich in einer Zeileneingabe ein Makro starte.
Josef