Array beim Ersetzen verwenden
07.06.2018 11:54:40
Georg
das Thema Array habe ich nicht drauf, würde aber gerne ein bißchen weiterkommen:
Der Code funktinert, allerdings muss jedesmal eingegeben werden, was als Replacement rein soll: Juli, beim nächsten Sheet August etc.
Kann man diese Folge auch in einem Array schreiben: Juli, August,...
und diesen Array hier unten verwenden, so dass ich mir jedesmal die Eingabe ersparen kann? Es sind sehr viele Dateien betroffen, so dass sich "Aufwand" eines Arrays lohnen würde, danke.
Sub ErsetzeMonat()
Dim i As Long
Dim Ersetze As String
For i = 8 To 13
worksheets(i).Activate
Ersetze = Application.InputBox("Eingabe")
range("G6:G36").Select
Selection.Replace What:="Juni", Replacement:=Ersetze, lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next i
End Sub