Code vereinfachen/verbessern

Tach nochmal,
Ich möchte den unten anliegenden Code vereinfachen/verbessern.
Also habe ich gedacht, ich muss nur alle entsprechenden Blätter aktivieren.
Aber dann bekomme ich immer eine Fehlermeldung.
Also die Fragestellung ist, wenn ich so einen oder einen Vergleichbaren Code habe, der sich eigentlich nur in den Blättern wiederholt, wie kann ich das vereinfachen. Ich muss aber die Möglichkeit haben die Blattnamen zu bestimmen, weil der Befehl nur in ausgewählten Blättern ausgeführt werden soll.
Vielen Dank im Voraus!
' **********************************************************************
' Modul: Suchen Ersetzen NULL
' **********************************************************************

Sub SuchenErsetzen
Sheets("M1").Select
Cells.Replace What:="NULL", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Sheets("M1 Flatter").Select
Cells.Replace What:="NULL", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Sheets("M2").Select
Cells.Replace What:="NULL", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Sheets("M2 Flatter").Select
Cells.Replace What:="NULL", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Sheets("M3").Select
Cells.Replace What:="NULL", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Sheets("M3 Flatter").Select
Cells.Replace What:="NULL", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Sheets("M4").Select
Cells.Replace What:="NULL", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Sheets("M4 Flatter").Select
Cells.Replace What:="NULL", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Wie gesagt ich habe dann folgendes versucht:

Sub Sortieren()
Sheets(Array("M1 Flatter.csp", "M1.csp", "M2 Flatter.csp", "M2.csp", _
"M3 Flatter.csp", "M3.csp", "M4 Flatter.csp", "M4.csp")).Select
Cells.Replace What:="NULL", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub SuchenErsetzen() Dim vntShName As Variant, intIndex As Integer vntShName = Array("M1", "M1 Flatter", "M2", "M2 Flatter", "M3", "M3 Flatter", "M4", "M4 Flatter" _ ) For intIndex = 0 To UBound(vntShName) Sheets(vntShName(intIndex)).Cells.Replace What:="NULL", Replacement:="", LookAt:=xlPart, _ SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Next End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread