AW: Zellinhalte ab erstem Leerzeichen löschen
11.09.2009 13:13:16
JogyB
Hi.
Sub loescheAbLeerzeichen()
Dim zeiLe As Long
Const spalte = 8 'H
Application.ScreenUpdating = False
With ActiveSheet
On Error Resume Next
For zeiLe = 1 To IIf(IsEmpty(.Cells(Rows.Count, spalte)), .Cells(Rows.Count, spalte). _
End(xlUp).Row, Rows.Count)
If Left(.Cells(zeiLe, spalte).Value, 1) = "A" Then
' Wenn kein Leerzeichen, dann gibt das einen Fehler - ignorieren
' Daher das On error resume next weiter oben
.Cells(zeiLe, spalte).Value = _
Left(.Cells(zeiLe, spalte).Value, InStr(.Cells(zeiLe, spalte).Value, " ") - _
1)
End If
Next
On Error GoTo 0
End With
Application.ScreenUpdating = True
End Sub
Geht jetzt nur mit "A" am Anfang, wenn es mit "a" auch gehen soll, dann erstze
If Left(.Cells(zeiLe, spalte).Value, 1) = "A" Then
durch
If UCase(Left(.Cells(zeiLe, spalte).Value, 1)) = "A" Then
Gruss, Jogy