VBA auf alle Tabellenblätter anwenden
19.08.2015 15:32:08
Christoph
ich nutze aktuell folgenden Code um Leerzeichen per VBA zu löschen. Nun würde ich diesen gerne auf alle Tabellenblätter in der Arbeitsmappe anwenden - kann mir da jemand helfen.
Danke und Gruß
Sub LeErsetzen()
Dim rngZelle As Range
Dim rngBereich As Range
Dim wks As Worksheet
Set wks = ThisWorkbook.Worksheets("Dezember 2013")
Set rngBereich = wks.Range("A2:B20")
For Each rngZelle In rngBereich
If IsNumeric(Replace(rngZelle.Value, " ", "")) = True Then
rngZelle.Value = Replace(rngZelle.Value, " ", "")
End If
Next rngZelle
Set rngBereich = Nothing
Set wks = Nothing
End Sub