Hallo*
den angehängten Code hat mir vor geraumer Zeit Beni zur Verfügung gestellt; Er bewirkt, dass wenn der "/" nicht in einer Buchstabenfolge vorhanden ist, dass solange nach links gelöscht wird, bis die Buchstaben mit dem "/" erscheinen. Dieser Code rennt auch sehr gut. Nun taucht nur ein erneutes Problem auf. Vereinzelt gibt es Wörter die neuerdings einen "-" enthalten. Was kann ich machen, damit weiterhin zunächst überprüft wird ob in den nächsten Spalten Buchstaben mit "/" erscheinen (bewirkt der Code) und wenn nicht, dass dann überprüft wird, ob in der Folge Buchstaben mit "-" erscheinen. Vorrang hat aber weiterhin "/". Nur wenn der "/" nicht vorhanden ist, soll nach "-" gesucht werden. Kann mir da jemand helfen? - Danke schon jetzt Allen wieder für die Unterstützung.
Herzliche Grüße
Wolfgang
Hier der Code:
Sub Zellen_verschieben()
Dim z, s As Long
With Worksheets("Daten2").Activate
For z = 2 To Cells(65536, 114).End(xlUp).Row
For s = 114 To Cells(z, 255).End(xlToLeft).Column
If IsNumeric(Cells(z, 114)) Or InStr(1, Cells(z, 114), "/") = 0 Then
Cells(z, 113).ClearContents
Range(Cells(z, 114), Cells(z, 255)).Cut Destination:=Cells(z, 113)
Else
Exit For
End If
Next s
Next z
End With