Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1136to1140
1136to1140
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Formeln kopieren

Forumthread: VBA: Formeln kopieren

VBA: Formeln kopieren
joerg
Hallo,
wie kann ich denn mit VBA Formeln so von einer Zelle in die andere kopieren, dass die Bezüge entsprechend angepasst werden? habe ActiveSheet.Range("A" & Target.Row & ":Z" & Target.Row + 1).FillDown und ActiveSheet.Rows(Target.Row + 1).Formula = Rows(Target.Row).Formula probiert, aber beides funktioniert ja leider nicht, also bzw. werden die Bezüge eben nicht angepasst...?
Danke,
Gruss,
Jo
Anzeige
ganz normal mit Copy und Paste?
08.02.2010 16:12:13
Björn
Hallo,
warum nicht über Copy und Paste?
Das ist dann nichts anderes wie Str+C und Strg+V.
Ansonsten ist es schwierig zu sagen, weil ich nicht weiß, wie Deine Formeln aussehen und was du mit "angepasst" meinst.
Gruß
Björn B.
Ja, das wäre dann DIE andere Möglichkeit! ;-) orT
08.02.2010 16:19:54
Luc:-?
Gruß Luc :-?
AW: ganz normal mit Copy und Paste?
08.02.2010 16:21:21
joerg
Hm, ist 'Bezüge werden nicht angepasst' denn nicht eindeutig formuliert? Also ich habe zB in Zelle A1 die Formel '=b1 / 2', die Formel möchte ich jetzt mit VBA in Zelle A2 kopieren, wobei... Ich weiss wirklich nicht, wie ich es anders nennen soll: Wobei die Bezüge angepasst werden, so dass in A2 dann als Formel '=b2 / 2' steht. So wie Strg-c/Strg-v, nur eben mit VBA. :)

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Rows(Target.Row + 1).EntireRow.Insert
' ActiveSheet.Range("A" & Target.Row & ":Z" & Target.Row + 1).FillDown      'geht nicht...
' ActiveSheet.Rows(Target.Row + 1).Formula = Rows(Target.Row).Formula    'geht auch nicht... _
End Sub
Gruss,
Jo
Anzeige
Hä? Hab ich dich schon geschrieben...
08.02.2010 16:25:56
Björn
... hast Du meinen Vorschlag ausprobiert?
Warum kopierst du nicht einfach wenn du kopieren möchtest?
Gruß
Björn B.
AW: Hä? Hab ich dich schon geschrieben...
08.02.2010 16:32:46
joerg
Hi Björn, Wie Du doch an dem codeschnipsel siehst füge ich bei Doppelklick eine Zeile ein. Und jetzt würde ich gern die Formeln aus der Zeile, auf die ich geklickt habe, in die neue Zeile übernehmen. Ich könnte das natürlich auch so machen:

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Rows(Target.Row + 1).EntireRow.Insert
msgbox "Bitte Formeln von Hand kopieren..."
End Sub
...aber automatisch wäre doch irgendwie netter. Oder verstehe ich Dich völlig falsch? Muss eigentlich fast...
gruss,
Jo
Anzeige
ja, tust du...
08.02.2010 16:38:22
Björn
... aber macht ja nix.
versuch es mal so...
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Rows(Target.Row).Copy
Rows(Target.Row + 1).Insert Shift:=xlDown
End Sub
Das wäre dann wie "kopierte Zellen einfügen".
Du kannst auch wie bisher deine Zeile einfügen und dann die mit .Copy und .Paste die Formeln kopieren.
Du hast einfach etwas zu umständlich gedacht...
Gruß
Björn B.
Anzeige
noch was...
08.02.2010 16:33:43
Björn
Habe gerade noch mal getestet, das mit FillDown funktioniert bei mir.
Wie gesagt, ich vermute es liegt an Deiner Formel, aber die sehen wir ja nicht.
Funktioniert es, wenn du es von Hand machst? Also ohne VBA?
Gruß
Björn B.
AW: noch was...
08.02.2010 16:35:10
joerg
Ja, von Hand funktioniert...
Aber ich seh grad erst Deine Antwort an Luc, mir war nicht klar das 'copy' auch eine Funktion in VBA ist (Oder methode?)
Und wenn Du sagtst dass bei Dir filldown auch geht... dann probier ich mal noch ein bisschen, vielleicht hab ich was übersheen...
gruss,
Jo
Anzeige
Das ist auch klar, denn du überträgst ja...
08.02.2010 16:18:23
Luc:-?
...quasi nur einen Text — ...Formula ist Text! — aus einer Zelle in mehrere andere, Joerg,
was soll sich da anpassen...?! M.W. fkt das nur für Matrixformeln mit ...FormulaArray problemlos. Falls es nicht doch noch 'ne andere Möglichkeit, die mir jetzt nicht einfällt, gibt, wirst du das wohl über einen PgmZyklus („Schleife“) zwecks Adressanpassung mit der Laufvariablen realisieren müssen...
Gruß Luc :-?
Anzeige
reden wir jetzt völlig aneinander vorbei?
08.02.2010 16:23:32
Björn
Hallo Luc:-?
also mal auf ganz blöd.
Wenn ich in B1 die Formel =A1 stehen habe und folgdenden Code ausführe 
activesheet.range("B1").copy activesheet.range("B2")

Dann steht in B2 =A2, und somit wurde der Bezug in der Formel angepasst.
Ich verstehe das Problem nicht. Man muss doch nur die Formel richtig schreiben (also an den richtigen Stellen die Dollarzeichen "$" setzen), dann kann man ganz normal kopieren.
Gruß
Björn B.
Anzeige
ok, hab deinen 2 Beitrag zu spät gesehen...
08.02.2010 16:24:15
Björn
hat sich also erledigt.
Ging mir genauso! War wohl fast gleichzeitig! orT
08.02.2010 16:51:34
Luc:-?
Mit ihren Vorgaben stellen die Frager oft auch die „Denkweichen“ des Antworters... ;-)
Gruß Luc :-?
Alles klar, mein Fehler...
08.02.2010 16:38:15
joerg
Björn hat recht, FillDown funktioniert - ich hatte vergessen das .formular = .formula dahinter wegzunehmen...
Danke, gruss,
Jo
Anzeige
Na, dann, viel Freud'...! ;-) Gruß owT
08.02.2010 16:52:59
Luc:-?
:-?
;

Forumthreads zu verwandten Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Zellen formatierung mit Formeln
Peter

Hallo
habe eine Formatierung in einer Zelle, in der er die 0 als 00 anzeigen soll.
Das macht er so lange ich keine Formel drin habe.
Sobald die Formel drin ist., zeigt er mir nur eine 0 (Null an.
die Formel ist
RECHTS(SUMMEWENN(C14:C40;">0";G14:G40);2)
Wie bekomme ic...
08.11.2008 18:25:00
Thread-ID: 1022970
7 Beiträge
Formel mit VBA kopieren
Hartmut_M

Hallo, ich möchte mit VBA aus einem Bereich die Formeln in einen anderen Bereich kopieren.
Nutze hierfür folgenden code, wobei die variablen spalte und spalteneu für die Spaltennummern stehen:
Range(Cells(5, spalte), Cells(130, spalte)).Select
Selection.AutoFill Destination:=Range(C...
12.12.2008 10:02:26
Thread-ID: 1032307
3 Beiträge
nicht die Formel mitkopieren
TomTom

Hi,
Ich habe in meinem Sheet eine Funktion, mit der will ich verschiedene Zeilen kopieren:
MeineQuelle.Rows(lngZeile).Copy Destination:=MeinZiel.Cells(lngZeile, 1)
Wenn ich nun in einer gefundenen Zeile, die kopiert wird, irgendwo eine Formel drin habe, (die sich auf irgend was bezi...
30.01.2009 11:15:07
Thread-ID: 1045327
8 Beiträge
Formel runterkopieren und bestimmte Zellen ausl.
Tom

Hallo zusammen,
vielleicht kann mir jemand bei folgendem Problem helfen:
In Zelle C1 steht eine Formel die ich ab und zu verändern muss, nun möchte ich diese Formel mit Doppelklick runterkopieren, in der Spalte C sind aber bestimmte Zellen, die bestimmte Werte enthalten und die dürfen n...
10.05.2009 18:13:07
Thread-ID: 1074184
6 Beiträge
einzelne Zellen mit Formeln sperren
natka

Hallo Ihr Lieben Excel Begeisterte,
hättet Ihr bitte eine Tipp für mich, wie ich einzelne Zellen in einenm Tabellenblatt im Excel für Dritte sperren kann. Sie sollen zwar das Ergebnis seheh, aber nicht anklicken können. Damit meine tole Formel keinen Schaden nimmt.
Danke
natka
15.05.2009 14:20:56
Thread-ID: 1075486
4 Beiträge
Anzeige
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
Wennformel mit Gültigkeit in Zellen
Sebastian

Hallo Excel-Freunde,
im Anhang findet ihr eine Tabelle die ich soweit schon versucht habe zum laufen zu bringen. Ich habe jetzt nur ein Problem mit einer Wenn-Abfrage wenn in einem Feld schon eine Gültigkeit vorgegeben ist.
Hier die Tabelle: https://www.herber.de/bbs/user/65096.xls
...
15.10.2009 13:25:58
Thread-ID: 1109770
7 Beiträge
Zellengültigkeit Dropdown mit Formeleinschrenkung
Sascha

Hallo Zusammen,
ich habe eine Dropdown Auswahlleiste die sich auf die Gütligkeit in Z:Z bezieht.
Eine zweite Auswahlleiste solldie Daten aus AA:AA als Auswahl bieten, allerdings nur wenn diese in selber Zeile steht wie die Auswahl aus Z:Z.
Um es etwas klarer zu machen:
in A1 wir...
15.10.2009 22:26:14
Thread-ID: 1109969
5 Beiträge
Formelbezug ändert sich bei kopieren von Zellen
Zellen

Hallo zusammen,
ich habe ein Tabellenblatt erstellt, in dem durch mehrere Nutzer Datensätze in Zeilen eingegeben werden. Gleichzeitig sind in die Zeilen schon Formeln eingetragen und per Blattschutz gegen versehentliche Änderungen des Users geschützt.
Wird nun eine Zelle kopiert, ändern...
27.10.2009 22:25:08
Thread-ID: 1112615
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Formeln mit VBA in Excel kopieren und Bezüge anpassen

Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Modul hinzufügen: Klicke mit der rechten Maustaste auf VBAProject (DeineArbeitsmappe) und wähle Einfügen > Modul.

  3. Code eingeben: Füge den folgenden Code ein, um eine Zeile zu duplizieren und die Formeln zu kopieren, während die Bezüge angepasst werden:

    Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Rows(Target.Row + 1).EntireRow.Insert
   Rows(Target.Row).Copy
   Rows(Target.Row + 1).PasteSpecial Paste:=xlPasteFormulas
   Application.CutCopyMode = False
End Sub

  4. Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Doppelklicke auf eine Zeile, um das Makro auszuführen.

Häufige Fehler und Lösungen

  • Fehler: Bezüge werden nicht angepasst.

    • Lösung: Stelle sicher, dass du PasteSpecial Paste:=xlPasteFormulas verwendest, um die Formeln zu kopieren.

  • Fehler: Makro funktioniert nicht bei bestimmten Formeln.

    • Lösung: Überprüfe, ob die Formeln in den Zellen korrekt sind. Manchmal kann ein Dollarzeichen $ in den Bezügen dazu führen, dass die Bezüge nicht angepasst werden.

Alternative Methoden

  • Copy und Paste: Eine einfache Möglichkeit, Formeln zu kopieren, ist die Verwendung der Clipboard-Funktionen in VBA. Verwende den folgenden Code:

    Sub CopyAndPasteFormulas()
   ActiveSheet.Range("A1").Copy Destination:=ActiveSheet.Range("A2")
End Sub

  • Füllfunktion: Du kannst auch die FillDown-Methode verwenden, um Formeln zu kopieren und Bezüge automatisch anzupassen:

    Sub FillDownFormulas()
   ActiveSheet.Range("A1").FillDown
End Sub

Praktische Beispiele

  • Einfaches Kopieren: Wenn du in Zelle A1 die Formel =B1/2 hast und diese in A2 kopieren möchtest, kannst du den genannten Code verwenden. A2 wird dann automatisch =B2/2 enthalten.

  • Mit einer Schleife: Wenn du mehrere Zeilen gleichzeitig kopieren möchtest, kannst du eine Schleife verwenden:

    Sub CopyMultipleRows()
   Dim i As Integer
   For i = 1 To 10
       Rows(i).Copy Destination:=Rows(i + 1)
   Next i
End Sub

Tipps für Profis

  • Verwende Application.CutCopyMode: Setze Application.CutCopyMode = False, um die Auswahl nach dem Kopieren zu deaktivieren und das Clipboard zu leeren.

  • Formelüberprüfung: Überprüfe deine Formeln, bevor du sie kopierst. Achte darauf, dass keine absoluten Bezüge (mit $) verwendet werden, wenn du die Bezüge anpassen möchtest.

  • Fehlermeldungen vermeiden: Füge einen Fehlerbehandlungsmechanismus ein, um unerwartete Probleme zu diagnostizieren.

FAQ: Häufige Fragen

1. Wie kann ich Formeln in mehreren Zellen gleichzeitig kopieren?
Du kannst eine Schleife verwenden, um Formeln in mehreren Zellen zu kopieren und die Bezüge automatisch anzupassen.

2. Was ist der Unterschied zwischen .Copy und .PasteSpecial?
.Copy kopiert die gesamte Zelle, während .PasteSpecial dir die Möglichkeit gibt, spezifische Inhalte, wie nur Formeln, einzufügen.

3. Funktioniert dieser Code in jeder Excel-Version?
Ja, der bereitgestellte VBA-Code sollte in den meisten aktuellen Excel-Versionen funktionieren, einschließlich Excel 2016, 2019 und Microsoft 365.

4. Kann ich auch Formeln in andere Arbeitsblätter kopieren?
Ja, du kannst den Zielbereich auf ein anderes Arbeitsblatt verweisen, indem du den Arbeitsblattnamen in den Referenzen angibst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige