Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1204to1208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Mit Formel verschieben
Krauser
Hallo Leute
Ich habe in meinem Excel Dokument diesen Code hinterlegt :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 9 And Target.Value  "" Then
Target.Offset(0, 1).Value = Target.Value
Target.Value = ""
Cancel = True
Else
Cancel = True
End If
If Target.Column = 10 And Target.Value  "" Then
Target.Offset(0, -1).Value = Target.Value
Target.Value = ""
Cancel = True
Else
Cancel = True
End If
End Sub

wenn ich doppelklicke springt der Wert von Spalte I auf Spalte J
genauso will ich das auch haben nur das problem ist
wenn die Zahl die ich mit doppelklick verschieben will eine summe ist
zb. =SUMME(A24/1,2)
Verschiebt er zwar die Zahl wie er es ja auch machen soll aber die Formel ist weg
Gibt es eine möglichkeit mit dem doppelklick auch die Formel mitzuverschieben ?
Die Formel sollte sich aber nicht verändern !
Hoffe es kann mir jemand Helfen !
Danke schonmal im voraus
Lg Patrick

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Dann kopiere doch ... Target wird doch eh gelöscht
07.03.2011 15:54:15
Matthias
Hallo
Target.Copy Destination:=Target.Offset(, 1)
Wenn sich die Frml. nicht ändern soll
mußt Du aber die Zelladresse in der Formel auf Absolut setzen
also: =SUMME($A$24/1,2)
Gruß Matthias
AW: Dann kopiere doch ... Target wird doch eh gelöscht
07.03.2011 16:24:08
Krauser
Super Danke Matthias
genau das war es was ich gesucht hab :)
Lg Patrick
oder so mit Deinem Code ...
07.03.2011 16:28:18
Matthias
Hallo Patrick
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 9 And Target.Value  "" Then
Target.Offset(0, 1).FormulaLocal = Target.FormulaLocal
Target.Value = ""
Cancel = True
End If
If Target.Column = 10 And Target.Value  "" Then
Target.Offset(0, -1).FormulaLocal = Target.FormulaLocal
Target.Value = ""
Cancel = True
End If
End Sub
Gruß Matthias
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige