title image


Smiley Re: Excel -Sonderzeichen löschen
Hallo kochen3000



dann versuch mal den beigefügten Code:



Sub del()



Const DeinZeichen = ","



Dim lZeile As Long



For lZeile = 1 To Range("A65536").End(xlUp).Row

If Left(Range("A" & lZeile).Value, 6) = "Giebel" Then

If InStr(1, Range("C" & lZeile).Value, DeinZeichen) > 0 Then

Range("C" & lZeile).Value = _

Mid(Range("C" & lZeile).Value, 1, _

InStr(1, Range("C" & lZeile).Value, DeinZeichen) - 1)

End If

End If

Next lZeile



End Sub



Gruß Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: