Makro Durchlauf nur für bestimmte Sheets
15.07.2013 23:54:45
Max
ich bräuchte bitte zu später Stunde noch einmal Euren Rat. Was mache ich denn bei folgendem Code falsch? Ich möchte, dass auf jedem der genannten Sheets "Formatierung" ausgeführt wird.
Sub Hans Wurst()
With Sheets(Array("Peter Lustig", "Sonnenblume"))
Formatierung
End With
End Sub
Sub Formatierung()
Columns("B:D").ClearContents
Columns("F").ClearContents
Range("E1:E31").Cut _
Destination:=Range("B1")
Range("B2:F31").Replace What:=",", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("B2:F31").Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
End Sub
Max