Mehrfachmarkierung

[Franz Pölt]

Hallo Franky!

Du willst eine Mehrfachmarkierung verschieben?

Probier bitte das:

Public Sub MoveSelection()
Dim arr As Range
Dim SpaltenOffset As Byte
Dim Bereiche As Long
Bereiche = Selection.Areas.Count
SpaltenOffset = 4 - Selection.Column
For Each arr In Selection.Areas
If Selection.Areas.Count <> Bereiche Then
Union(Selection, arr.Offset(0, SpaltenOffset)).Select
Else
arr.Offset(0, SpaltenOffset).Select
End If
Next
End Sub

mfG
Franz

Hallo zusammen,
ich beisse mir zur Zeit an folgender Aufgabenstellung die Zähne aus -
Ich möchte eine Mehrfachmarkierung in einer Spalte in eine definierte
Spalte verschieben (Spalte D). Das scheitert bisher immer daran, das
beim "Verschieben" des Markierung mit
Sub Markierung_verschieben()
Dim SpaltenOffset As Long
Dim ZeilenAnzahl As Long
SpaltenOffset = 4 - Selection.Column
ZeilenAnzahl = Selection.Rows.Count
Selection.Offset(0, SpaltenOffset).Select
Selection.Resize(ZeilenAnzahl, 1).Select
End Sub
nur der erste Bereich der Mehrfachmarkierung in Spalte D verschoben
wird.
Wie verschiebe ich die Markierung, so dass ich in Spalte D die gleiche
Mehrfachmarkierung vorliegen habe?
Gruß
Franky

[Martin Worm]

Am 11 Jul 2003 23:17:27 -0700, schrieb Franky:

hallo Franky,

ich beisse mir zur Zeit an folgender Aufgabenstellung die Zähne aus -
Ich möchte eine Mehrfachmarkierung in einer Spalte in eine definierte
Spalte verschieben (Spalte D). Das scheitert bisher immer daran, das
beim "Verschieben" des Markierung mit
Sub Markierung_verschieben()
Dim SpaltenOffset As Long
Dim ZeilenAnzahl As Long
SpaltenOffset = 4 - Selection.Column
ZeilenAnzahl = Selection.Rows.Count
Selection.Offset(0, SpaltenOffset).Select
Selection.Resize(ZeilenAnzahl, 1).Select
End Sub
nur der erste Bereich der Mehrfachmarkierung in Spalte D verschoben
wird.
Wie verschiebe ich die Markierung, so dass ich in Spalte D die gleiche
Mehrfachmarkierung vorliegen habe?

manches ist einfacher(auch für mich) als man denkt ;-)

Sub Markierung_verschieben()
Selection.Offset(0, 4 - Selection.Column).Select
End Sub

funktioniert für Einfach- und Mehrfachmarkierungen.
Wenn du an die einzelnen Bereiche bei Mehrfachmarkierungen willst,
muß du die Areas-Eigenschaft benutzen

mfG

[Franky]

Hallo Martin,

Danke für den schnellen Lösungsvorschlag. Dein Vorschlage führt auch
nur zum Verschieben eines (des ersten) Teilbereichs der
Mehrfachmarkierung.
Franz Pölt hat aber eine funktionierende Lösung gefunden. Du hast
Recht das dafür mit der Areas-Eigenschaft gearbeitet werden muß!

Gruß
Franky

Post by Martin Worm
hallo Franky,

ich beisse mir zur Zeit an folgender Aufgabenstellung die Zähne aus -
Ich möchte eine Mehrfachmarkierung in einer Spalte in eine definierte
Spalte verschieben (Spalte D). Das scheitert bisher immer daran, das
beim "Verschieben" des Markierung mit
Sub Markierung_verschieben()
Dim SpaltenOffset As Long
Dim ZeilenAnzahl As Long
SpaltenOffset = 4 - Selection.Column
ZeilenAnzahl = Selection.Rows.Count
Selection.Offset(0, SpaltenOffset).Select
Selection.Resize(ZeilenAnzahl, 1).Select
End Sub
nur der erste Bereich der Mehrfachmarkierung in Spalte D verschoben
wird.
Wie verschiebe ich die Markierung, so dass ich in Spalte D die gleiche
Mehrfachmarkierung vorliegen habe?

manches ist einfacher(auch für mich) als man denkt ;-)
Sub Markierung_verschieben()
Selection.Offset(0, 4 - Selection.Column).Select
End Sub
funktioniert für Einfach- und Mehrfachmarkierungen.
Wenn du an die einzelnen Bereiche bei Mehrfachmarkierungen willst,
muß du die Areas-Eigenschaft benutzen
mfG

[Franky]

Hallo Melanie,

Danke für den schnellen Lösungsvorschlag. Aber dein Vorschlage führt
auch nur zum Verschieben eines (des ersten) Teilbereichs der
Mehrfachmarkierung.
Franz Pölt hat aber eine funktionierende Lösung gefunden.

Gruß
Franky

Hallo Franky,

Ich möchte eine Mehrfachmarkierung in einer Spalte in eine definierte
Spalte verschieben (Spalte D). Das scheitert bisher immer daran, das
beim "Verschieben" des Markierung mit
Sub Markierung_verschieben()
Dim SpaltenOffset As Long
Dim ZeilenAnzahl As Long
SpaltenOffset = 4 - Selection.Column
ZeilenAnzahl = Selection.Rows.Count
Selection.Offset(0, SpaltenOffset).Select
Selection.Resize(ZeilenAnzahl, 1).Select
End Sub
nur der erste Bereich der Mehrfachmarkierung in Spalte D verschoben
wird.
Wie verschiebe ich die Markierung, so dass ich in Spalte D die gleiche
Mehrfachmarkierung vorliegen habe?

Sub Markierung_verschieben()
With Selection
.Offset(0, 4 - .Column).Select
End With
End Sub

[Melanie Breden]

Hallo Franky,

Post by Franky
Danke für den schnellen Lösungsvorschlag. Aber dein Vorschlage führt
auch nur zum Verschieben eines (des ersten) Teilbereichs der
Mehrfachmarkierung.

das kann ich leider nicht nachvollziehen.
Bei mir hat es unter XL2000 und XL2002 einwandfrei geklappt.

Hast du mal ein Beispiel für eine nicht funktionierende Verschiebung einer Markierung.


--
Mit freundlichen Grüßen
Melanie Breden

_____________________
[Microsoft MVP für Excel]