Zelleninhalt splitten in Spalte mit leeren Zellen
21.11.2003 11:57:46
ewald
in nachfolgenden VBA-Makro wird der Zelleninhalt gesplittet.
Funktioniert nur wenn durchgehend Zeichnfolgen in Spalte C
stehen wenn aber in der Spalte C leere Zellen vorkommen, dann
erscheint folgende Fehlermeldung:"Laufzeitfehler '5'
Unzulässiger Prozeduraufruf oder ungültiges Argument"
Sub t()
Dim z As Range
Dim Bereich As Range
Worksheets("Tabelle1").Activate
Set Bereich = Range("c14:c" & Range("c65536").End(xlUp).Row)
Berereich.Select
For Each z In Selection
z.Offset(0, 3).Value = Right(z.Value, 1)
z.Value = Mid(z.Value, 1, Len(z.Value) - 1)
Next z
End Sub
Kann mir jemand dabei helfen?
Vielen Dank im Voraus.
Grüße
Anzeige