keine fünstellige Zahl, dann ab Zelle X verschieb.
28.04.2006 19:47:46
Wolfgang
ich hatte folgenden Code vorgestern dankenswerterweise von Beni erhalten und wahrscheinlich zu voreilig Hurra gerufen. Grundsätzlich funktioniert der Code. Er soll bewirken, dass wenn in Zelle C2 nicht eine fünfstellige Zahl steht, ab Zelle B2 die Zellinhalte nach links geschoben bzw. auch gelöscht werden, bis die fünfstellige Zahl sich in C2 befindet. Wenn ich nicht irgendetwas verkehrt umgesetzt habe, löscht der Code wohl in sämtlichen Zeilen. Wie kann ich realisieren, dass das Verschieben nach links nur in Zeile 2 abläuft ? - In Zeile 1 stehen z.B. Überschriften, die ich gerne beibehalten möchte-; Ich hoffe Beni, Du bist mir nicht böse, dass ich mich auf diesem Wege noch wieder erneut melde. Wenn ich das richtig sehe, steht die Zahl 65536 für die Zeilen und die Zahl 255 für die Spalten; Ich habe somit schon versucht, die 65536 einfach in eine 2 zu ändern, irgendwie mache ich da aber etwas falsch. Wäre somit für jede weitere Hilfestellung sehr dankbar.
Herzliche Grüße - Wolfgang
Sub Zelle_löschen_und_verschieben()
Dim z, s As Long
For z = 1 To Cells(65536, 3).End(xlUp).Row
For s = 3 To Cells(z, 255).End(xlToLeft).Column
If Not IsNumeric(Cells(z, 3)) Or Cells(z, 3) < 10000 Or Cells(z, 3) > 99999 Then
Cells(z, 2).ClearContents
Range(Cells(z, 3), Cells(z, 255)).Cut Destination:=Cells(z, 2)
Else
Exit For
End If
Next s
Next z
End Sub