Zeilen tauschen

amina · 2008-09-26T16:04:58+00:00

Hallo, ich möchte Zellen mit Inhalt tauschen mit doppelklick auf z.B. A1 Also wenn ich auf A1 doppelklicke dann sollen die Zeilen A und B vertauscht werden. A = B und B = A. Mit dem ganzen Inhalt und Formatierungen. Und wenn ich dann auf B1 doppelklicke (was ja vorher A1 war) dann soll dass wieder rückgängig gemacht werden. Gibt es eine Möglichkeit mit VBA? Gruß amina

Hi amina,
ich bekomme das nur mit einer Hilfzelle hin (X1). Die kanns Du, wenn es sein muss in eine andere (versteckte) Tabelle verlegen.
Dann lautet der Code so:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 2 Or Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
Target.Copy Range("X1")
Target.Offset(0, 1).Copy Target
Range("X1").Copy Target.Offset(0, 1)
ElseIf Target.Column = 2 Then
Target.Copy Range("X1")
Target.Offset(0, -1).Copy Target
Range("X1").Copy Target.Offset(0, -1)
End If
End Sub

Das gehört ins Klassenmodul des Tabellenblattes. Da Du VBA nein angibst hier das Vorgehen:
Das Tabellenblatt wo es passieren soll öffnen.
Auf die Lasche des Tabellenblattes (z.B. Tabelle1) rechtsklicken und Code anzeigen anklicken.
Es öffnet sich der VBA Editor.
Oben in der Mitte steht (Allgemein), das runterklappen und Worksheet auswählen
Rechts daneben steht jetzt Selection change (Die neuen Zeilen darunter ignorier erst mal)
SelectionChange klappst Du auch runter und wählst Before Double Click aus.
Jetzt steht direkt darunter:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
In den Zwischenraum zwischen diesen beiden Zeilen muss mein Code (da diese Zeilen in meinem Code schon enthalten sind muss Du nur den Teil dazwischen rauskopieren).
Jetzt kannst Du den Editor wieder schließen.
Bei Doppelklick auf eine einzelne Zelle in Spalte A wird jetzt diese in die danebenligende Zelle in Spalte B kopiert und die Zelle in Spalte B nach A. Bei doppelklick in Spalte B wird mit A getauscht.
Eventuell muss das ganze angepasst werden. Versuchs vielleicht selber (Target.Coloumn=1 ist Spalte, =2 Spalte B, die erste Zeile anzupassen ist vielleich etwas schwieriger) oder melde Dich nochmal hier. Ich schaue wahrscheinlich morgen wieder rein, aber vielleicht hilft Dir auch ein ander aus dem Forum.
Gruß
Uwe
(:o)

Hi
wenn das Blatt geschützt ist, kann das Makro auch nichts verändern.
aber das Makro kann den Blattschutz aufheben, seine Aktion durchführen und dann den Schutz wieder aktvieren.
daszu müsstest du folgenden Code am Anfang bzw am Ende in den Code einbauen:
Activesheet.UnProtect Password:= "DeinPassword"
Activesheet.Protect Password:="DeinPassword"
allerdings glaube ich nicht, daß es funktioniert, per Doppelklick auf Spalte B von B nach A zurückzutauschen, da das Makro ja nicht wissen kannst, ob du jetzt B mit C oder B mit A tauschen willst. du musst dich schon für eine Tauschrichtung entscheiden (dh entweder Tauschen mit Links von angeklicker oder tauschen mit rechst von angeklicketer)
es seiden , das ganze beschränkt sich wirklich nur auf Spalte A und B (was ich mir aber nicht so ganz vorstellen kann)
hier mal ein Makro
durch Doppelklick in Zeile 1 wird die angeklicke Spalte mit der Spalte rechts daneben getauscht.
zum Zurücktauschen musst du auf die gleiche Spalte klicken.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Then ' nur bei Klick auf Reihe 1
'ActiveSheet.Unprotect Password:=""
With Target
.EntireColumn.Cut
.Offset(0, 2).Insert shift:=xlToRight
End With
'ActiveSheet.Protect Password:=""
Cancel = True
End If
End Sub

Gruß, Daniel

Forumthread: Zeilen tauschen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zeilen tauschen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)