Mir wurde ein VBA Script zur Verfügung gestellt wo ich Werte einer Spalte um 3 Spalten nach rechts verschiebe. Das habe ich jetzt so geändert um 4 Spalten nach links zu kommen, es kommt aber eine Fehlermeldung? Kann mir jemand sagen warum?
Danke und lg
Dim C As Range
For Each C In Range(Cells(1, 6), Cells(Rows.Count, 1).End(xlUp)) 'Bereich anpassen
If InStr(1, C, "-") Then
C.Offset(0, -4) = Left(C, InStr(1, C, "-") - 1) 'Offset(0, -4) = 4 Spalten weiter links
End If
Next C