Discussion:
Excel2003: Markierten Bereich per VBA verschieben?
(zu alt für eine Antwort)
Erich Jung
2006-02-15 15:32:57 UTC
Permalink
Hallo Excel Gemeinde,

hab mal wieder ein VBA-Problem bei dem ich nicht weiterkomme.

Ich möchte innerhalb einer beliebigen Spalte beliebig viele Zellen
auswählen. Wenn sich diese Auswahl nicht in Spalte "1" befindet soll
der ausgewählte Bereich, also die Auswahl, in Spalte "1" verschoben
werden.

Beispiel: Markiert wurde z.B. ein Bereich "C5:C15", dieser Bereich
soll nun per VBA auf den Bereich "A5:A10" geshiftet werden.

Könnt Ihr mir da weiterhelfen?

Gruss Erich
b***@gmail.com
2006-02-15 15:45:11 UTC
Permalink
Hallo Erich,

Ein Einzeiler, solange Dein Bereich zusammenhaengend ist:

Option Explicit

Sub Move2A()
Selection.Cut Destination:=Selection.Offset(0, 1 -
Selection.Column)
End Sub

HTH,
Bernd
Erich Jung
2006-02-17 14:00:41 UTC
Permalink
Hallo Bernd,

der Auswahlbereich ist zusammenhängend, leider funktioniert es nicht

Gruss Erich
Post by b***@gmail.com
Hallo Erich,
Option Explicit
Sub Move2A()
Selection.Cut Destination:=Selection.Offset(0, 1 -
Selection.Column)
End Sub
HTH,
Bernd
b***@gmail.com
2006-02-17 14:08:11 UTC
Permalink
Hallo Erich,

bei mir lief es. Ich fuegte einen Button ins Tabellenblatt ein und
verknuepfte diesen mit dem Makro. Man muss dann natuerlich immer etwas
auswaehlen, bevor man den Button drueckt.

Wenn es bei Dir nicht klappen sollte:
Schick' mir doch einmal Deine Tabelle (oder einen relevanten Auszug).

Viele Gruesse,
Bernd
Erich Jung
2006-02-17 16:10:01 UTC
Permalink
Hallo Bernd,

vielleicht habe ich mich etwas falsch ausgedrückt.

Ich möchte nicht den Inhalt der markierten Zellen verschieben sondern
die Markierung selber. Also wenn ich zum Beispiel 5 zusammenhängende
Zellen in Spalte H markiere, dann soll diese Markierung in die Spalte
A rutschen.

Gruss Erich
Post by b***@gmail.com
Hallo Erich,
bei mir lief es. Ich fuegte einen Button ins Tabellenblatt ein und
verknuepfte diesen mit dem Makro. Man muss dann natuerlich immer etwas
auswaehlen, bevor man den Button drueckt.
Schick' mir doch einmal Deine Tabelle (oder einen relevanten Auszug).
Viele Gruesse,
Bernd
Wolfgang Habernoll
2006-02-17 16:17:40 UTC
Permalink
Hallo Erich

das Makro von Bernd ist doch perfekt, du must es nur anpassen, statt
verschieben halt nur markieren

Sub Move2A()
Selection.Offset(0, 1 - Selection.Column).Select
End Sub

mfG
Wolfgang Habernoll
Post by Erich Jung
Hallo Bernd,
vielleicht habe ich mich etwas falsch ausgedrückt.
Ich möchte nicht den Inhalt der markierten Zellen verschieben sondern
die Markierung selber. Also wenn ich zum Beispiel 5 zusammenhängende
Zellen in Spalte H markiere, dann soll diese Markierung in die Spalte
A rutschen.
Gruss Erich
Post by b***@gmail.com
Hallo Erich,
bei mir lief es. Ich fuegte einen Button ins Tabellenblatt ein und
verknuepfte diesen mit dem Makro. Man muss dann natuerlich immer etwas
auswaehlen, bevor man den Button drueckt.
Schick' mir doch einmal Deine Tabelle (oder einen relevanten Auszug).
Viele Gruesse,
Bernd
Erich Jung
2006-02-22 15:05:03 UTC
Permalink
Super Wolfgang und Bernd,

funktioniert. Man sollte auch mal selber etwas nachdenken :-)))

Gruss Erich
Post by b***@gmail.com
Hallo Erich
das Makro von Bernd ist doch perfekt, du must es nur anpassen, statt
verschieben halt nur markieren
Sub Move2A()
Selection.Offset(0, 1 - Selection.Column).Select
End Sub
mfG
Wolfgang Habernoll
Post by Erich Jung
Hallo Bernd,
vielleicht habe ich mich etwas falsch ausgedrückt.
Ich möchte nicht den Inhalt der markierten Zellen verschieben sondern
die Markierung selber. Also wenn ich zum Beispiel 5 zusammenhängende
Zellen in Spalte H markiere, dann soll diese Markierung in die Spalte
A rutschen.
Gruss Erich
Post by b***@gmail.com
Hallo Erich,
bei mir lief es. Ich fuegte einen Button ins Tabellenblatt ein und
verknuepfte diesen mit dem Makro. Man muss dann natuerlich immer etwas
auswaehlen, bevor man den Button drueckt.
Schick' mir doch einmal Deine Tabelle (oder einen relevanten Auszug).
Viele Gruesse,
Bernd
Loading...