Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel mit VBA nach unten ziehen

Forumthread: Formel mit VBA nach unten ziehen

Formel mit VBA nach unten ziehen
04.06.2013 11:03:09
Werner
Hallo zusammen,
Die Daten aus den Spalten A & B werden aus einer anderen Datei Kopiert und eingefügt, dass klappt auch.
in die Zelle C1 wird eine Formel geschrieben und in der Spalte A wird ermittelt, wie viele Zellen beschrieben sind.
Das geht auch noch. Die Variable laR ist gefüllt aber die Formel wird nicht runterkopiert bis zur letzten beschriebenen Zelle in Spalte A.
Sheets("Datenbasis").Range("C1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""werner"",RC[-1],"""")"
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row 'Spalte "A" = 1
Range("C1:C1").AutoFill Destination:=Range("C1:C" & laR)
https://www.herber.de/bbs/user/85641.xlsm
Gruß Werner

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel mit VBA nach unten ziehen
04.06.2013 11:15:52
Tino
Hallo,
füge die Formel kleich in allen Zellen ein.
Dim lngRow&
With Sheets("Datenbasis")
lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("C1:C" & lngRow).FormulaR1C1 = "=IF(RC[-2]=""werner"",RC[-1],"""")"
End With
Gruß Tino

Anzeige
AW: Formel mit VBA nach unten ziehen
04.06.2013 11:15:54
Rudi
Hallo,
ohne AutoFill. Direkt eintragen. 
Dim laR As Long
With Sheets("Datenbasis")
laR = .Cells(Rows.Count, 1).End(xlUp).Row 'Spalte "A" = 1
.Range("C1").resize(laR-1).FormulaR1C1 = "=IF(RC[-2]=""werner"",RC[-1],"""")"
End With

Gruß
Rudi

Anzeige
AW: Formel mit VBA nach unten ziehen
04.06.2013 11:19:42
Klaus
Hi Werner,
du referenzierst nicht ausreichend, die verschiedenen Programmteile laufen in verschiedenen Arbeitsblättern ab und das gibt Chaos.
Hier mal dein Programm mit sauberer WITH-Referenzierung, beachte die .Punkte vor jedem Range die auf sich je auf das WITH-Blatt beziehen:

With Sheets("Datenbasis")
.Activate
.Range("C1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""werner"",RC[-1],"""")"
Dim laR As Long
laR = .Cells(.Rows.Count, 1).End(xlUp).Row  'Spalte "A" = 1
.Range("C1:C1").AutoFill Destination:=.Range("C1:C" & laR)
End With
übrigens: das Formel schreiben, kopieren, ausfüllen ist im Makro unnötig. Aktivieren und Selektieren sowieso!
Schreibe die Formel einfach direkt in alle benötigten Zellen:
    With Sheets("Datenbasis")
Dim laR As Long
laR = .Cells(.Rows.Count, 1).End(xlUp).Row  'Spalte "A" = 1
.Range("C1:C" & laR).FormulaR1C1 = "=IF(RC[-2]=""werner"",RC[-1],"""")"
End With
Grüße,
Klaus M.vdT.

Anzeige
AW: Formel mit VBA nach unten ziehen
04.06.2013 11:37:30
Werner
Hallo Tino, Rudi & Klaus,
danke für Eure Hilfe das runterkopieren klappt.
Die Formel direkt in die benötigte Zelle schreiben, geht das so? oder kann man dass auch andes schreiben.
Sheets("Datenbasis").Range("C1").FormulaR1C1 = "=IF(RC[-2]=""werner"",RC[-1],"""")"
Gruß Werner

Anzeige
AW: Formel mit VBA nach unten ziehen
04.06.2013 11:40:10
Klaus
Hallo Werner
Die Formel direkt in die benötigte Zelle schreiben, geht das so? oder kann man dass auch andes schreiben.
dafür haben WIR ALLE doch bereits Beispiele geliefert!
Es geht so:
Sheets("Datenbasis").Range("C1:C" & var).FormulaR1C1 = "=IF(RC[-2]=""werner"",RC[-1],"""")"
var ist natürlich eine Variable, in der zB die letzte Zeile steht. Beispiele: siehe vorherige Posts :-)
Grüße,
Klaus M.vdT.

Anzeige
AW: Formel mit VBA nach unten ziehen
04.06.2013 11:47:00
Werner
Hallo Klaus,
klappt auch danke
Gruß Werner

Danke für die Rückmeldung! owT.
04.06.2013 11:55:23
Klaus
.
;

Forumthreads zu verwandten Themen

Formel nach unten...
werner

Hallo zusammen,
wenni ch in Zelle D10 z.B. die Formeln = B10+C10 kann ich diese nach unten in Zelle D11,D12.......ziehen um die Formel zu übernehmen.
Meine Frage ist folgende , geht das auch mit = Tabelle1!C9 ,wenn ich da nach unten ziehe solte sich die Formel auch anpassen d.h Tabelle2...
12.01.2009 20:24:00
Thread-ID: 1039009
4 Beiträge
Anzeige
Zellen nach unten ziehen
welga

Hallo,
ich glaube ich stehe zur Zeit voll auf dem Schlauch.
Ich habe in Spalte A die Zahlen 1 bis 1024. Dann habe ich noch B1=A1, B2=A4, B3=A7, B4=A10. Da es aber zu mühsam ist die einzelnen Zellen in Spalte B von Hand zu füllen, habe ich versucht alle ausgefüllten Zellen zu markieren u...
22.09.2009 11:14:07
Thread-ID: 1104593
3 Beiträge
Anzeige
Formeln in gefilteter Liste nach unten kopieren
Mary

Hallo Cracks,
ich habe eine riesige Excel-Datei und aus dieser auf einem neuen Tabellenblatt eine Pivot-Tabelle per VBA erstellt. Darin erstelle ich dann (wieder über Makro) Formeln in der 4. Zeile. Nun filtere ich die Pivot nach einer bestimmten Spalte und möchte die Formeln der 1. Zeile (...
20.08.2010 10:51:53
Thread-ID: 1173298
4 Beiträge
Formel bis Ende
gerhard

Hallo bitte um Makro Hilfe,
wie kann ich ab der aktiven Zellposition die Spalte bis zum Ende der links davon
liegenden Spalte mit einer Formel auffüllen?
Ich möchte die Berechnung starten ab der aktiven Zellpositon z.B C10
In der links liegende B Spallte sind Werte bis z.B B2000...
24.03.2011 14:24:07
Thread-ID: 1207409
4 Beiträge
Anzeige
Formeln nach unten kopieren bis anzugebender Zeile
Stefan

Hallo.Ich habe folgendes ProblemIch möchte von VBA in einem Sheet eine Formel nach unten kopieren lassen.
Bislang sieht das bei mir so aus: Range("G1:G1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",C[-1]/C[-2])"
Selection.AutoFill Destination:=Range("G1:G...
13.05.2002 16:02:06
Thread-ID: 120530
4 Beiträge
Formel nach unten kopieren
chris58

Hallo!
Ich habe eine Verknüpfung auf einem Tabellenblatt. Da immer wieder Zeilen dazukommen, würde ich gerne die untenstehende Formel immer wieder weiter nach unten auf die nächsten Zeilen ziehen.
Wenn ich das $ - Zeichen weglasse, dann kommt nicht das richtige Feld in die Verknüpfte Da...
25.06.2011 22:11:54
Thread-ID: 1219689
19 Beiträge
Formel für oben nach unten
Schmausi

Salü Zusammen,
Ich habe folgende Formel: =SUMME(D5*F5) die rechnet mir die Stückzahl mal Preis aus, so habe ich dann den Gesamtpreis aller Stuckzahlen. Jetzt bräuchte ich aber noch die Formel für oben nach unten: alle Gesamtpreise zusammen.
wer kann mir da helfen?
Gruss
Schmausi...
03.10.2011 18:11:30
Thread-ID: 1232444
3 Beiträge
Anzeige
Rahmen und Formel bis Ende der Tabelle
Alex105

Hallo Zusammen,
ich habe eine Tabelle, die ich mithilfe von einem Makro formatieren lasse. Jetzt benötige ich für 2 Punkte innerhalb dieser Tabelle mal bitte Eure Hilfe.
1. Punkt: In E2 fängt eine Wenn-Formel an, die bis ans Ende der Tabelle laufen soll (Tabellenlänge ist dynamisch)
...
12.05.2014 10:31:47
Thread-ID: 1361048
8 Beiträge
Formel in Zelle per VBA bis Listenende kopieren
Bernhard

Hallo Forum,
ich will die Formel, die ich in Zelle D3 stehen habe bis ans Listenende kopieren und nicht darüber hinaus. In Spalte A, B und C stehen manchmal Werte, manchmal nicht.
Ich habe bereits mit dieser Formel experimentiert - aber es tut nicht:
Cells(3, 4).Copy Range(Cells(4,...
12.08.2014 14:08:58
Thread-ID: 1375950
10 Beiträge
Formel via VBA nach rechts ziehen
NoPa

Hallo,
in Excel kann man doch Formeln z.b. nach rechts ziehen!
Wie geht das mit VBA.
Ich habe mich mal darin versucht!
Es hat leider nur einmal funktioniert und ein Fehler ist aufgetreten!
Seit dem geht nichts mehr weiter!
z.b.
die Formel in Mappe 4.Quartal die Forme...
13.11.2014 11:47:51
Thread-ID: 1392118
4 Beiträge
Formel nach rechts ziehen, Zeile erhöhen
watzi3

Hallo,
Ich füge mit dem Modul eine neue Spalte ein, und kopiere bei den letzten zwei Zellen die Formel von links. Klappt bei der vorletzten perfekt, nur bei der letzten erhöht er in der Multiplikation die Spalte des sheets admin und nicht die Zeile (siehe Artikel Bs in Zeile 121! es sollt...
19.06.2015 19:54:52
Thread-ID: 1431989
5 Beiträge
Formel nach unten kopieren mit Bedingung
Klaus

Hallo
Ich versuche gerade eine Formel (um Zahlen als Text zu formatieren) solange in die darunterliegende Zelle zu kopieren, solange das Feld links davon gefüllt ist.
Aktuell verwende ich diese Formel:
ActiveCell.FormulaR1C1 = "=TEXT(RC[-1],""0000000"")"
Mein Startfeld ist D2, d...
03.09.2015 16:30:59
Thread-ID: 1445854
6 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

Excel VBA: Formeln nach unten ziehen

Schritt-für-Schritt-Anleitung

  1. Daten vorbereiten: Stelle sicher, dass die Spalten A und B in deinem Arbeitsblatt "Datenbasis" die erforderlichen Daten enthalten.

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

  3. Neues Modul erstellen: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsm)" und wähle Einfügen > Modul.

  4. Code einfügen: Füge folgenden Code in das Modul ein, um die Formel in die Zellen zu schreiben:

    Sub FormelNachUntenZiehen()
   Dim laR As Long
   With Sheets("Datenbasis")
       laR = .Cells(.Rows.Count, 1).End(xlUp).Row ' Bestimmung der letzten Zeile in Spalte A
       .Range("C1:C" & laR).FormulaR1C1 = "=IF(RC[-2]=""werner"",RC[-1],"""")" ' Formel eintragen
   End With
End Sub

  5. Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle FormelNachUntenZiehen und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: Formel wird nicht übernommen
    Lösung: Stelle sicher, dass die Referenzen korrekt sind. Verwende die .FormulaR1C1-Methode, um die Formel ordnungsgemäß einzufügen.

  • Fehler: Die letzte Zeile wird nicht richtig erkannt
    Lösung: Überprüfe, ob in Spalte A tatsächlich Daten vorhanden sind. Der Code laR = .Cells(.Rows.Count, 1).End(xlUp).Row sucht nach der letzten nicht-leeren Zelle in dieser Spalte.

Alternative Methoden

  • Direktes Eintragen ohne AutoFill: Du kannst die Formel direkt in die Zellen eintragen, ohne die AutoFill-Methode zu verwenden. Verwende dazu folgende Zeile:

    .Range("C1").Resize(laR - 1).FormulaR1C1 = "=IF(RC[-2]=""werner"",RC[-1],"""")"

  • Mit einer Schleife: Eine andere Möglichkeit besteht darin, eine Schleife zu verwenden, um die Formel in jede Zelle einzufügen:

    Dim i As Long
For i = 1 To laR
   .Cells(i, 3).FormulaR1C1 = "=IF(RC[-2]=""werner"",RC[-1],"""")"
Next i

Praktische Beispiele

  1. Formel für Spalte C: Wenn du die Formel in Spalte C eintragen möchtest, kannst du dazu den folgenden Code verwenden:

    Sub FormelBisUntenZiehen()
   Dim laR As Long
   With Sheets("Datenbasis")
       laR = .Cells(.Rows.Count, 1).End(xlUp).Row
       .Range("C1:C" & laR).FormulaR1C1 = "=IF(RC[-2]=""werner"",RC[-1],"""")"
   End With
End Sub

  2. Formel für unterschiedliche Bedingungen: Ändere die Bedingung in der Formel, um verschiedene Daten zu verarbeiten. Zum Beispiel:

    .Range("C1:C" & laR).FormulaR1C1 = "=IF(RC[-2]=""max"",RC[-1],"""")"

Tipps für Profis

  • Verwendung von Variablen: Nutze Variablen wie laR, um die letzte Zeile dynamisch zu bestimmen und die Formel effizient einzufügen.

  • Optimierung der Performance: Deaktiviere Bildschirmaktualisierungen und Berechnungen während der Ausführung des Makros, um die Performance zu verbessern:

    Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
' Dein Code hier
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

FAQ: Häufige Fragen

1. Wie kann ich die Formel anpassen?
Du kannst die Formel in der Zeile, in der sie eingetragen wird, leicht ändern, indem du die Bedingungen anpasst.

2. Welche Excel-Version wird benötigt?
Der Code funktioniert ab Excel 2007 und höher, solange die VBA-Funktionalität unterstützt wird.

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