03.06.2020, 19:03
Hallo nocheinmal,
ich habe eine Datei mit vielen Blättern.
In jedem Blatt soll in Spalte A aus dem bestehenden Text der Textteil "Montag" entfernt werden.
Wie schaffe ich es mit einem Makro, dass das Makro nacheinander alle Blätter abarbeitet?
Ich habe zwar etwas geschrieben, aber das löscht mir immer nur aus dem Blatt, auf dem ich es grade ausführe.
Hier der Code:
Sub Montag()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Index > 0 Then
Columns("A:A").Select
Selection.Replace What:=" Montag", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
Next
End Sub
Wo habe ich den Fehler gemacht?
Vielen Dank im Voraus.
Grüße
Andreas
ich habe eine Datei mit vielen Blättern.
In jedem Blatt soll in Spalte A aus dem bestehenden Text der Textteil "Montag" entfernt werden.
Wie schaffe ich es mit einem Makro, dass das Makro nacheinander alle Blätter abarbeitet?
Ich habe zwar etwas geschrieben, aber das löscht mir immer nur aus dem Blatt, auf dem ich es grade ausführe.
Hier der Code:
Sub Montag()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Index > 0 Then
Columns("A:A").Select
Selection.Replace What:=" Montag", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
Next
End Sub
Wo habe ich den Fehler gemacht?
Vielen Dank im Voraus.
Grüße
Andreas