Office: Kopieren einer Formel (1:1) in eine markierte Zelle

Helfe beim Thema Kopieren einer Formel (1:1) in eine markierte Zelle in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich möchte gerne eine Originalformel kopieren. (also ohne Änderungen von Quellzellen). HIerzu suche ich eine Funktion ähnlich: Code: Sub... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Sonba, 30. Januar 2008.

Seite 1 von 2

SONBA

Sonba

Kopieren einer Formel (1:1) in eine markierte Zelle

Hallo,

ich möchte gerne eine Originalformel kopieren. (also ohne Änderungen von Quellzellen). HIerzu suche ich eine Funktion ähnlich:

Code:

Sub Paste_Formula
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei dieser Sub werden die Zellbezüge allerdings geändert. Kann ich das irgendwie ausstellen?
Bisher hätte ich nur die Idee, wie ich das mit 2 Makros lösen kann. Das erste, um mit Cells.Formula die Formel in einen String auszulesen, das zweite, um es in die neue selektierte Zelle einzufügen.
Eigentlich suche ich aber eine Möglichkeit, wie ich mit strg+c eine Zelle kopieren kann, die Zielzelle markiere und per Makro hier die Formel einfüge.

Hat da jemand von euch vielleicht eine Idee für?

Cheers und danke,

sonba

:)

Sonba, 30. Januar 2008

#1
PLOEVE

ploeve

Von PC-Welt,

bei mir klappts nicht, ich kapiers einfach nicht:

Wenn Sie eine Formel in eine andere Zelle kopieren, passt Excel die relativen Zellbezüge automatisch an. Sie wollen diesen Automatismus umgehen, um eine Formel mit genau denselben Bezügen in eine andere Zelle zu kopieren. Wir zeigen Ihnen, wie Sie dieses Problem lösen können.

Problem:
Wenn Sie eine Formel in eine andere Zelle kopieren, passt Excel die relativen Zellbezüge automatisch an. Sie wollen diesen Automatismus umgehen, um eine Formel mit genau denselben Bezügen in eine andere Zelle zu kopieren.

Lösung:
Die meisten Anwender behelfen sich damit, die Formel in der Bearbeitungsleiste zu markieren und dort zu kopieren. Meist ist der Umweg über die Bearbeitungsleiste aber gar nicht nötig: Excel bietet eine spezielle Tastenkombination zum Kopieren einer Formel aus der darüber liegenden Zelle ohne Anpassung der Zellbezüge. Die in der Online-Hilfe beschriebenen Hotkeys STRG-’ (Kopieren einer Formel aus der Zelle über der aktiven Zelle) und STRG-STRG-” (Kopieren des Wertes aus der Zelle über der aktiven Zelle) bewirken nichts.

Verwenden Sie stattdessen STRG-, , um die Formel der Zelle über der aktiven Zelle zu übernehmen. Der Hotkey STRG-STRG-, macht das Gleiche bei Werten. STRG-, nützt auch, wenn die Kopie der Formel in einer beliebigen Zelle landen soll: Kopieren Sie zunächst die Formel mit STRG-, in die Zelle direkt darunter, und verschieben Sie sie anschließend an den gewünschten Ort. Beim Verschieben bleiben nämlich im Gegensatz zum Kopieren die relativen Bezüge unverändert.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EDIT:
Jetzt hab ichs kapiert, ist aber auch net so super hilfreich, könntest aber per vielleicht vba so nachmachen.
STRG+Komma kopiert die vormel aus der darüberliegenden Zelle und die kannst dann verschieben.

EDIT2:

Add-In-World - Excel Weekly Formel-Tools 7.0 für Excel
Hier gibts ein Add-In, das selbiges machen kann!!

Lg

ploeve, 31. Januar 2008

#2
SONBA

Sonba

Hallo,

Danke für deine Antwort. Die PC-Welt Lösung ist für mich nicht wirklich einsetzbar, da die unterliegende Zelle häufig schon belegt ist. Das Excel Add-In wiederum macht genau das, was ich mir auch selber programmieren kann: Quellzellen markieren, Makro aufrufen; Zielzellen markieren, Makro aufrufen.

Ich suche ja eher was Richtung: Quellzellen markieren, Ctrl+C drücken, Zielzellen markieren, Makro aufrufen. Dann könnte ich das Makro als Tastenkombination einbinden und die Formel mit einer beliebigen Tastenkombination kopieren...

Trotzdem ganz herzlichen Dank für deine Hilfe!

Sonba, 31. Januar 2008

#3
PLOEVE

ploeve

Kopieren einer Formel (1:1) in eine markierte Zelle

Versteh ich jetzt nicht...

Wieso kannst du diese zwei Sachen nicht verbinden?
Quellzellen markieren, Makro aufrufen; Zielzellen markieren, Makro aufrufen.
->>>
Quellzellen markieren, Ctrl+C drücken, Zielzellen markieren, Makro aufrufen

?
Ich schau mir das nochmal an

ploeve, 31. Januar 2008

#4
SONBA

Sonba

Ich würde gerne Zellen immer mit ctrl+c kopieren. Je nachdem, was ich danach drücke, soll etwas anderes passieren:
ctrl+v = normales einfügen
ctrl+b = Werte einfügen
ctrl+B = Format einfügen
ctrl+f = Formel einfügen (ohne Änderung in den Quellbezügen)

Dementsprechend suche ich halt ein Makro, dass das ganze möglich macht. Alternativ könnte ich unter ctrl+C das Formelkopieren machen, finde ich aber nicht so schön, weil ich dann immer aufpassen muss, was ich mache und zudem über eine globale Variable das Formelergebnis ablegen müsste. Zumindest fällt mir zurzeit keine einfachere Möglichkeit ein...

Sonba, 31. Januar 2008

#5
PLOEVE

ploeve

Hi,
so zB würd ich das angehen

Workbook-Modul:
Code:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^{c}"
Application.OnKey "^{v}"
Application.OnKey "^{b}"
Application.OnKey "^{g}"
Application.OnKey "^{f}"
End Sub

Private Sub Workbook_Open()
Application.OnKey "^{c}", "CopyingSpecial"
Application.OnKey "^{v}", "PastingNormal"
Application.OnKey "^{b}", "PastingValue"
'Application.OnKey "^{g}", "PastingFormat"
Application.OnKey "^{f}", "PastingFormula"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Allgemeines Modul:
Code:

Option Explicit

Dim rngAZelle As Range
Sub CopyingSpecial()
Set rngAZelle = ActiveCell
End Sub

Sub PastingNormal()
ActiveCell.FormulaR1C1 = rngAZelle.FormulaR1C1
End Sub

Sub PastingValue()
ActiveCell.Value = rngAZelle.Value
End Sub

Sub PastingFormat()
'keine Ahnung
End Sub

Sub PastingFormula()
ActiveCell.FormulaLocal = rngAZelle.FormulaLocal
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ploeve, 31. Januar 2008

#6
SONBA

Sonba

Hi,

genau diese Lösung wollte ich ja eigentlich vermeiden (das war das, was ich unter Alternativ beschreiben wollte). Ich würde über ctrl+c nach wie vor gerne die einfach Excel Kopierroutine haben. Zusätzlich halt in dem Stil der folgenden Subs ein neues Sub

Code:

Sub PasteValueohneCopy()
' Tastenkombination: Strg+b
'
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Sub PasteFormatohneCopy()
' Tastenkombination: Strg+B
'
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber so wie es scheint, gibt es kein spezielles Commando für Pasteformulawithoutchangingsources, oder?

Sonba, 31. Januar 2008

#7
PLOEVE

ploeve

Kopieren einer Formel (1:1) in eine markierte Zelle

Anscheinend gibts das wirklich net,

noch eine gute Lösung wie ich finde:
Unterzuhilfenahme eines Codes aus dem Internet:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

'save previous selection
OldRange = NewRange

'get current selection
NewRange = Selection.Address

'check if copy mode has been turned off
If Application.CutCopyMode = False Then
ChangeRange = False
End If

'if copy mode has been turned on, save Old Range
If Application.CutCopyMode = 1 And ChangeRange = False Then
'boolean to hold "SaveRange" address til next copy/paste operation
ChangeRange = True
'Save last clipboard contents range address
SaveRange = OldRange
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^{f}"
End Sub

Private Sub Workbook_Open()
Application.OnKey "^{f}", "PastingFormula"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Option Explicit

Public NewRange As String
Public OldRange As String
Public SaveRange As String
Public ChangeRange As Boolean

Sub PastingFormula()

Range(NewRange).FormulaLocal = Range(SaveRange).FormulaLocal
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lg

ploeve, 31. Januar 2008

#8
SONBA

Sonba

Hübsche Lösung. Danke für deine ganzen anregungen. Aber wenn ich es richtig sehe müsste ich bei der in jedem Sheet, das ich bearbeite, den Code drin haben. Der Code soll aber nur in meiner Personal.xls drin stehen. Oder sehe ich das falsch?

Sonba, 1. Februar 2008

#9
SONBA

Sonba

hmm, ich glaube ich werde es jetzt bei folgendem Code belassen:

Code:

Sub Copy_Formula()
Set Quellzelle = ActiveCell
ActiveCell.Copy
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Private Sub Workbook_Open()
Application.OnKey "^{c}", "Copy_Formula"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Sub PasteFormula()
ActiveCell.FormulaLocal = Quellzelle.FormulaLocal
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

sowie: Dim Quellzelle As Range

Hat den Vorteil, dass die normale Copymethode durch das ActiveCell.Copy nicht komplett ausgehebelt wird.

Falls es doch direkte Möglichkeiten geben sollte: nur her damit.

Auf jeden Fall Danke, ploeve, für deine Hilfe!

Sonba, 1. Februar 2008

#10
PLOEVE

ploeve

Hi!

Also du kannst die SelectionChange Methode schon in die Personl schreiben.
Musst das halt als Klassenobjekt definieren.

Bei Bedarf bastel ich dir eine Bsp-Mappe.

Lg

ploeve, 1. Februar 2008

#11
SONBA

Sonba

Mit Klassenobjekten habe ich noch nie gearbeitet. Wenn du mir da mal ein Beispiel zukommen lassen könntest würde ich mich freuen. *Smilie

Sonba, 1. Februar 2008

#12
PLOEVE

ploeve

Kopieren einer Formel (1:1) in eine markierte Zelle

Hi!

Anbei die Excel Datei,
Du müsstest den Code entsprechend eine Start-Up-Datei kopieren, oder vieleicht noch besser,
Speicher die Datei als Add-In (.xla) ab und binde dieses in Excel ein, so kannst die Datei dann auch bequem zu einem andren PC mitnehmen etc.

Lg
Matt

ploeve, 1. Februar 2008

#13
PLOEVE

ploeve

Hallo, so, jetzt hab ich eien Frage dazu *Smilie

Hab die Formel jetzt umgestellt, das auch mehrfach-Ranges bearbeitet werden:

Code:

ploeve, 1. Februar 2008

#14
INGGI

IngGi

Hallo ploeve,

versuch's mal so:
Code:

For Each rngZelle In rngNewRange
rngZelle.FormulaLocal = rngSaveRange(rngSaveRange.Row + rngZelle.Row - rngNewRange.Row, _
rngSaveRange.Column + rngZelle.Column - rngNewRange.Column).FormulaLocal
Next 'rngZelle

Code eingefügt mit
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

IngGi, 1. Februar 2008

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Kopieren einer Formel (1:1) in eine markierte Zelle

Die Seite wird geladen...

Kopieren einer Formel (1:1) in eine markierte Zelle - Similar Threads - Kopieren Formel markierte
Textausgabe eines Formelergebnisses in anderer Zelle
in Microsoft Excel Hilfe
Textausgabe eines Formelergebnisses in anderer Zelle: Liebe Excel-Expert:innen Ich benötige für die Weiterverarbeitung eines Excel-Files in einem anderen Programm reine Textzellen. Das heisst, die unten stehenden Formel (B2) soll in der Zelle A2 als...
Excel Tabelle mit Formel in Word Einfügen
in Microsoft Excel Hilfe
Excel Tabelle mit Formel in Word Einfügen: Hallo, Ich versuche derzeit eine Excel Tabelle mit mehreren Formeln in mein Word Dokument einzubinden. Dafür würde ich gerne die Einfügeoption "Verknüpfung und ursprüngliche Formatierung...
720xformel Kopieren gehts nicht einfacher ?
in Microsoft Excel Hilfe
720xformel Kopieren gehts nicht einfacher ?: Hallo Leute Ich hoffe hier findet sich jemand der mir Helfen kann. Folgendes habe dieses Makro Range("FQZ10:GSQ10").AutoFill Destination:=Range("FQZ10:GSQ2500")...
Daten aus einem Arbeitsblatt in ein anderes Arbeitsblatt ohne leere Zeilen kopieren
in Microsoft Excel Hilfe
Daten aus einem Arbeitsblatt in ein anderes Arbeitsblatt ohne leere Zeilen kopieren: Hallo miteinander, ich habe ein Profil hier im Forum eröffnet, da ich im Moment am verzweifeln bin mit einer Knacknuss im Excel 2016 :confused: Ich schildere euch folgende Ausgangslage: Ich habe...
Daten aus mehreren Blättern kopieren
in Microsoft Excel Hilfe
Daten aus mehreren Blättern kopieren: Hallo zusammen, ich würde gerne in der Spalte B den Namen aus einem anderen Blatt kopieren. Händisch müsste ich so in die passenden Zeilen die Formel ='1'!$B$3; ='2'!$B$3, ='3'!$B$3 eintragen....
Formel für bestimmte reihen zum kopieren
in Microsoft Excel Hilfe
Formel für bestimmte reihen zum kopieren: Hallo, ich möchte gerne in meinem Excel Sheet das er wenn in den Zeilen D:D; G:G; J:J; M:M; P;P; S:S; V:V; Y:Y ein "X" geschrieben ist das er den Wert der links daneben steht in die Spalte...
Formel in nächste Zeile kopieren
in Microsoft Excel Hilfe
Formel in nächste Zeile kopieren: Hallo Zusammen, in meiner Arbeitsmappe im Anhang,befinden sich in den Zellen J3 und L3 Formeln.Die Zellen in der die Formeln stehen sind Schreibgeschützt. Da in diesem Blatt fortlaufend Daten...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden