Herbers Excel-Forum - das Archiv

Zelleninhalt splitten in Spalte mit leeren Zellen

Bild

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
Bild

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
Bild

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
Bild

Betrifft: AW: Vielen Dank
von: ewald
Geschrieben am: 21.11.2003 13:22:44
Vielen, vielen Dank für Eure hilfe.

Grüße
Bild
Excel-Beispiele zum Thema " Zelleninhalt splitten in Spalte mit leeren Zellen"
Eindimensionales Array in ein mehrdimensionales splitten Vorkommen von Zahlenreihen in Spalten
Funktion ANZAHL2 ohne ausgeblendete Spalten Spaltenbreite anpassen
Spalten einer Mehrbereichsauswahl ausblenden. Spaltennamen bestimmen
Spalten/Zeilen aus- und einblenden Zeilen und Spalten über ein Drehfeld ein- und ausblenden
In einem Dialog ausgewählte Spalten drucken Spalten bedingt summieren und Zellen formatieren