Hallo Zusammen,
Möchte folgendes machen:
Habe ein Excel Arbeitsblatt bei dem im Zellenberich A:13:P23 die Jahreszahlen jeweils Ende Jahr automatisch auf das nächste Jahr angepasst werden sollen. Habe dafür ein Formular aufgesetzt wo in einer Textbox txtOldYear das Datum des ablaufenden Jahres eingegeben wird und in Textbox txtNewYear das neue beginnende Jahr.
Habe folgenden Code der auch funktioniert, aber wo ich jedes Jahr die Jahreszahl manuell anpassen muss:
wksKontakt.Range("A13:P23").Select
Selection.Replace What:="2013", Replacement:="2014", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Folgendes wäre mein Plan, funktioniert aber nicht:
wksKontakt.Range("A13:P23").Select
Selection.Replace What:="txtOldYear.Text, LookAt:=xlWhole, _
LookIn:=xlValues", Replacement:="txtNewYear.Text, LookAt:=xlWhole, _
LookIn:=xlValues", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Jemand eine Idee?
Danke und liebe Grüsse
Kina