in meiner Datei wird nach jeder Änderung in Spalte B über den Befehl: "Private Sub Worksheet_Change(ByVal Target As Range)" die Spalte auf Doubletten geprüft. Jetzt brauche ich die Funktionalität, dass in den Zellen gleichermaßen die Leerzeichen eliminiert werden. Mein Problem ist jetzt, dass beim Löschen der Leerzeichen die Spalte geändert wird und somit das Makro erneut anläuft und nicht wieder aufhört... :-(
So sieht im Moment mein Code aus...
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 2) Then Doppelte_Rot
If (Target.Column = 4) Then Doppelte_Rot
End Sub
Private Sub Doppelte_Rot()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String
Dim strSuchwert2 As String
Dim zelle As Range
lngZeile = Cells(Rows.Count, 2).End(xlUp).Row
For Each zelle In Range(Cells(8, 2), Cells(lngZeile, 2))
zelle = WorksheetFunction.Substitute(zelle, " ", "")
Next
For lngZeilenSprung = lngZeile To 8 Step -1
strSuchwert = Cells(lngZeilenSprung, 2).Value
strSuchwert2 = Cells(lngZeilenSprung, 4).Value
Cells(lngZeilenSprung, 2).Interior.ColorIndex = x1none
If strSuchwert2 = "reserve" Then
GoTo 123
End If
If Application.WorksheetFunction.CountIf(Range(Cells(1, 2), Cells(lngZeile, 2)), _
strSuchwert) 1 Then
Cells(lngZeilenSprung, 2).Interior.ColorIndex = 3
End If
123
Next lngZeilenSprung
End Sub
Danke für Eure Hilfe!!!!!
Gruß JensT