Herbers Excel-Forum - das Archiv
Zelleninhalt splitten in Spalte mit leeren Zellen
- Zelleninhalt splitten in Spalte mit leeren Zellen von ewald vom 21.11.2003 11:57:46
- AW: Zelleninhalt splitten in Spalte mit leeren Zellen - von th.heinrich am 21.11.2003 12:02:33
- AW: Zelleninhalt splitten in Spalte mit leeren Zellen - von FP am 21.11.2003 12:38:29
- AW: Vielen Dank - von ewald am 21.11.2003 13:22:44
- AW: Vielen Dank - von ewald am 21.11.2003 13:22:44
- AW: Zelleninhalt splitten in Spalte mit leeren Zellen - von th.heinrich am 21.11.2003 12:02:33
 |
Betrifft: Zelleninhalt splitten in Spalte mit leeren Zellen
von: ewald
Geschrieben am: 21.11.2003 11:57:46
Hallo zusammen,
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
 |
Betrifft: AW: Zelleninhalt splitten in Spalte mit leeren Zellen
von: th.heinrich
Geschrieben am: 21.11.2003 12:02:33
hi Ewald.
bin VBA laie, aber versuche vor
On Error Resume Next
For Each z In Selection
gruss thomas
|
Betrifft: AW: Zelleninhalt splitten in Spalte mit leeren Zellen
von: FP
Geschrieben am: 21.11.2003 12:38:29
Hallo Ewald,
Sub t()
Dim z As Range
Dim Bereich As Range
Worksheets("Tabelle1").Activate
Set Bereich = Range("c14:c" & Range("c65536").End(xlUp).Row)
For Each z In Bereich.Cells
If Not IsEmpty(z) Then
With z
.Offset(0, 3).Value = Right(.Value, 1)
.Value = Left(.Value, Len(.Value) - 1)
End With
End If
Next z
End Sub
Servus aus dem Salzkammergut
Franz
|
Betrifft: AW: Vielen Dank
von: ewald
Geschrieben am: 21.11.2003 13:22:44
Vielen, vielen Dank für Eure hilfe.
Grüße
| |