Thema Datum  Von Nutzer Rating
Antwort
Rot Intersect
 03.04.2023 11:01:08 Pops24
Solved
03.04.2023 18:21:54 xlKing
Solved
03.04.2023 18:30:14 ralf_b
Solved
03.04.2023 18:37:36 xlKing
Solved

Ansicht des Beitrags:
Von:
Pops24		 Datum:
03.04.2023 11:01:08		 Views:
750		 Rating:
     
Antwort:
 Nein
Thema:
Intersect

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Intersect
 03.04.2023 11:01:08 Pops24
Solved
03.04.2023 18:21:54 xlKing
Solved
03.04.2023 18:30:14 ralf_b
Solved
03.04.2023 18:37:36 xlKing
Solved