Hallo zusammen
Ich habe ein Problem im VBA Excel. Und zwar möchte ich ausgewählte Zellen um x Zellen nach rechts oder nach links verschieben. Dies erfolgt durch copy und paste weiter oben im Makros. Danach werden die alten Zellen wieder zurückgesetzt (keine Hintergrundfarbe). Ich mache es nicht mit cut da dies bei nicht nebeneinanderliegenden Zellen nicht funktioniert. Das Makros funktioniert tiptop bei nach rechts und nach links verschieben. Ausser wenn sich bei nach links verschieben die Ist-Position und die Soll-Position der Zellen überschneiden. Also zum Beispiel die Ersten zwei Zellen der Ist- und die letzten zwei Zellen der Soll-Position sind die gleichen Zellen. In diesem Fall hat er meiner Meinung nach Probleme mit Intersect -> er setzt dann zuerst die soll-Position zurück und danach auch noch die ist-Position. Er soll aber nur die Zellen der Ist-Position löschen wenn sie sich nicht mit der Position einer Soll-Zelle übereinstimmen.
c ist die Ist-Position der Zellen
x ist die Soll-Position der Zellen
t ist die Anzahl um die die Zellen verschoben werden anhand eines Userforms
Dim cell As Range
Dim c As Range
Dim x As Range
Set x = c.Offset(rowOffset:=0, columnOffset:=t)
For Each cell In c.Cells
If Intersect(cell, x) Is Nothing Then cell.Select
Call Auswahl_Farben_zurücksetzen
Next cell
|