VBA - Ersetzen
01.06.2015 14:21:21
WalterK
der folgende Code soll Zellen, in denen nur ein(1) "." oder nur ein(1) "-" oder nur die Zeichenfolge "--" oder nur die Zeichenfolge "---" vorhanden ist leeren und ein (1) Leerzeichen einfügen. Das funktioniert soweit.
Kann man den Code auch einfacher schreiben damit er dann vielleicht auch schneller läuft?
Option Explicit
Sub ZellenMitPunktuswLöschen()
Dim i As Long
Dim j As Long
Dim LzA As Long
Dim LCol2 As Long
LzA = Application.Max(3, Cells(Rows.Count, 1).End(xlUp).Row)
LCol2 = Cells(2, Columns.Count).End(xlToLeft).Column
For j = 1 To LCol2
For i = 1 To LzA
If Cells(2 + i, j) = "." Then
Cells(2 + i, j) = " "
End If
Next i
Next j
For j = 1 To LCol2
For i = 1 To LzA
If Cells(2 + i, j) = "-" Then
Cells(2 + i, j) = " "
End If
Next i
Next j
For j = 1 To LCol2
For i = 1 To LzA
If Cells(2 + i, j) = "--" Then
Cells(2 + i, j) = " "
End If
Next i
Next j
For j = 1 To LCol2
For i = 1 To LzA
If Cells(2 + i, j) = "---" Then
Cells(2 + i, j) = " "
End If
Next i
Next j
End Sub