Komma in Zelle
30.10.2017 09:36:57
Alban
Ich muss bei der Arbeit viele Namen organisieren, leider schleichen sich bei meinen Kollegen Fehler ein, die ich gerne mit einer Makro korrigieren möchte.
So soll es aussehen:
Alban, Philipp, Karola, Martin...
Leider sieht es häufig so aus:
Alban ,Philipp , Karola,Martin...
Ich habe bis jetzt die folgende Makro entwickelt:
'Komma_entfernen
'Variablendeklaration
Dim i As Integer
Dim j As Integer
i = 1
j = 3
'Welcher Bereich soll durchsucht werden?
'i = Anzahl Zeilen
For i = 1 To 5
'j = Anzahl Spalten
For j = 3 To 3
'Prufe auf Leerzeichen vor einem Komma
If InStr(1, ActiveSheet.Cells(i, j), " , ", vbTextCompare) Then
'Korrigiere den String
ActiveSheet.Cells(i, j).Value = Replace(ActiveSheet.Cells(i, j), " , ", ", ", , , vbTextCompare)
Else
'keine Aktion notwendig
End If
'Prufe auf Leerzeichen vor einem Komma
If InStr(1, ActiveSheet.Cells(i, j), " ,", vbTextCompare) Then
'Korrigiere den String
ActiveSheet.Cells(i, j).Value = Replace(ActiveSheet.Cells(i, j), " ,", ",", , , vbTextCompare)
Else
'keine Aktion notwendig
End If
'Prufe auf Leerzeichen vor einem Komma
If InStr(1, ActiveSheet.Cells(i, j), ",A", vbTextCompare) Then
'Korrigiere den String
ActiveSheet.Cells(i, j).Value = Replace(ActiveSheet.Cells(i, j), ",A", ", A", , , vbTextCompare)
Else
'keine Aktion notwendig
End If
Next j
Next i
Es funktioniert einigermaßen aber ich müsste halt die ganzen Buchstaben aufschreiben. Vielleicht gibt es dafür einen einfachen Weg?
Liebe Grüße
Alban