Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ActiveCell.FormulaR1C1 = "=RC[-1]"

Forumthread: ActiveCell.FormulaR1C1 = "=RC[-1]"

ActiveCell.FormulaR1C1 = "=RC[-1]"
20.03.2018 12:33:58
Andreas
Hallo,
hätte mal wieder eine Frage.
Wie kann ich folgenden Code kürzer gestalten. (nur einen Block reinkopiert)
Hab schon rumprobiert aber bin mit meinem sehr bescheidenen VBA Latein am Ende.
Dieser Code soll folgendes bewirken:
In Zelle AK13 steht einfach =AJ13 (nötig für eine Berechnung)
wenn jemand diesen Bezug ändert (in meinem Fall durchaus möglich) soll über das
Makro wieder das =AJ13 stehen, usw.
Jetzt habe ich aber in einem Tabellenblatt 15 Druckbereiche und in jedem Druckbereich
55 Zellen über das Makro zu ändern, sprich 825 Zellen.
Da schreit jetzt der VBA Editor "Prozedur zu groß".
Bin mir sicher ihr könnt mir einen Rat geben.
Vielen Dank
LG Andi
'Ma 02
Range("AK13").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK14").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK15").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK16").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK17").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK18").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK19").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK20").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK21").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK22").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK23").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK24").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK25").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK26").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK27").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK28").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK29").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK30").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK31").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK32").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK33").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK34").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK35").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK36").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK37").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK38").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK39").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK40").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK41").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK42").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK43").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK44").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK45").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK46").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK47").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK48").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK49").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK50").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK51").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK52").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK53").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK54").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK55").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK57").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK58").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK59").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK60").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK61").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK62").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK63").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK64").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK65").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK66").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK67").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("AK68").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ActiveCell.FormulaR1C1 = "=RC[-1]"
20.03.2018 12:42:18
Werner
Hallo Andreas,
so: 
Public Sub aaa()
Range("AK13:AK68").ClearContents
Range("AK13:AK68").FormulaR1C1 = "=RC[-1]"
End Sub
Gruß Werner
AW: ActiveCell.FormulaR1C1 = "=RC[-1]"
20.03.2018 12:42:35
Rudi
Hallo,
Ohne Select und ClearContents:
Range("AK13:AK68").Formular1c1="=RC[-1]
Gruß
Rudi
AW: ActiveCell.FormulaR1C1 = "=RC[-1]"
20.03.2018 12:47:50
Daniel
Hi
1. es ist nicht notwendig, eine Zelle zu selektieren und dann mit der Selektion den Befehl auszuführen.
man kann auch den Befehl direkt auf die Zelle anwenden: 
Range("AK13").ClearContents
2. Wenn du eine Zelle mit Inhalt füllst, ist es nicht notwendig sie vorher zu leeren.
Das ClearContents kann entfallen:
dh aus 
Range("AK13").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=RC[-1]"

Wird die Zeile: 
Range("AK13").FormulaR1C1 = "=RC[-1]"
3. Wenn man für mehrere direkt nebeneinander liegende Zellen die gleiche Aktion ausführt, dann kann man das in einem Schritt tun: 
Range("AK13:AK68").FormulaR1C1 = "=RC[1]"

Gruß Daniel
Anzeige
AW: ActiveCell.FormulaR1C1 = "=RC[-1]"
20.03.2018 13:03:05
Andreas
Hallo Daniel, Werner und Rudi,
danke für eure Antworten, hab wieder dazugelernt.
Schönen Tag euch noch,
LG Andi!
Gerne u. Danke für die Rückmeldung. o.w.T.
20.03.2018 16:36:17
Werner
;

Forumthreads zu verwandten Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Stelle für VBA-Crack bei Schweizer Bank
Sand

interessantes Job-Angebot für VBA-Crack unter:
http://www.sarasin.ch/internet/iech/index_iech/about_us_iech/about_us_job_vacancies_iech.htm?jobID=76975
schaut's euch mal an.
cheers,
Sand
08.08.2008 13:37:00
Thread-ID: 1000280
2 Beiträge
Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Watchdop für VBA
peter

Hallo VBA Cracks,
Im 5 Minuten-Abstand hole ich mir via Webabfrage Daten aus dem Internet. Nun kann es passieren, dass das VBA Programm bei einer Abfrage z.B. mehr als 5 Minuten hängen bleibt, was ungewollt ist.
Kann man ein solches Problem umgehen, wenn man mit VBA einen Watchdog reali...
11.08.2008 17:39:00
Thread-ID: 1000934
5 Beiträge
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
geschütztes blatt = Fehlermeldung VBA
Pet


Hallo an Alle,
per Button werden 2 Tabellenblätter kopiert und nur die Werte in eine neue Datei gespeichert.
Dies klappt auch wunderbar!
Doch wenn ich die Blätter schütze bekomme ich immer eine Fehlermeldung.
Beende ich diese Fehlermeldung 1004, werden die Blätter trotzdem...
13.08.2008 18:48:00
Thread-ID: 1001622
3 Beiträge
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
Anzeige
VBA Lösung für Tabellenblattwechsel gesucht
Nila

Hallo.
Ich habe folgendes vor:
Ich lege derzeit eine Exceldatei mit Steckbriefen von ca. 150 Personen an.
Jeder Steckbrief steht dabei auf einem eigenen Tabellenblatt.
Die Tabellenblätter werden nach der entsprechenden Person benannt.
Zum Beispiel: Name von Tabellenblatt 70:...
14.08.2008 10:07:25
Thread-ID: 1001749
8 Beiträge
Kalenderwoche "von bis" über VBA
bis"

Hi Leute,
ich versuch gerade über VBA eine Tabelle zu erstellen. Irgendwie komm ich aber nicht weiter.
Spalte A: Kalenderwoche z.b 1,2,3,4,5, usw.
SpalteB: Datum von bis: 1.1.09-5.1.09; 6.1.09-13.1.09; usw.
Dahinter wird je nach Bedarf eingetragen.
Auffüllen der Zahlen ist k...
19.08.2008 10:24:25
Thread-ID: 1002828
3 Beiträge
Benötige VBA, da Array-Formel nicht funktioniert
oblivion

Hallo, im Anhang meine Datei. Dort habe ich Problem auch schon beschrieben.
Versuche es hier noch mal kurz zu beschreiben.
https://www.herber.de/bbs/user/54731.zip
In meiner Datei habe ich mehrere Tabellenblätter. Auf "Gesamt" werden jeden Monat die entsprechenden Daten eingetragen...
19.08.2008 18:14:00
Thread-ID: 1003018
3 Beiträge
bedingte formatierung berechnen lassen unter vba
morbiuz

Hallo,
ich habe eine Spalte A auf der 2 verschiedene bedingte Formatierungen gesetzt sind (rot, grün) für die Scriftfarbe
leider kann ich die Werte nicht über meine Funktion zusammenrechnen lassen:
Sub mtest() Dim zelle As Range Dim bereich As Range Dim a As Integer Set bereich =...
20.08.2008 03:03:00
Thread-ID: 1003056
2 Beiträge
vba-Datenexport nach Excel2007 -Array mit 70000 DS
Tim

Hallo,
ich habe einen Datenexport aus einem Programm nach Excel in vba. Das ganze funktioniert soweit ganz gut.
Nun möchte ich jedoch nicht, das sjede Zeile aus meinem Programm exportiert wird, daher gibt es ein Array mit entsprechenden Datensätzen: Entweder eine 1 (steht für Export der...
20.08.2008 08:57:00
Thread-ID: 1003084
2 Beiträge
Anzeige

Infobox / Tutorial

ActiveCell.FormulaR1C1 für effizientes VBA-Scripting nutzen

Schritt-für-Schritt-Anleitung

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

  2. Modul erstellen: Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Code eingeben: Füge den folgenden Code ein, um die Formel in einem Bereich anzuwenden:

    Public Sub SetFormula()
   Range("AK13:AK68").FormulaR1C1 = "=RC[-1]"
End Sub

  4. Makro ausführen: Drücke F5, um das Makro auszuführen. Dies wird den Inhalt der Zellen AK13 bis AK68 auf die Formel =RC[-1] setzen.

Häufige Fehler und Lösungen

  • Fehler: Prozedur zu groß: Wenn Du viele Zellen einzeln bearbeitest, kann dies zu einem Fehler führen. Verwende stattdessen einen Bereich, wie im obigen Code gezeigt.
  • Fehler: Ungültige Formel: Achte darauf, dass die Formel korrekt eingegeben wird. Der korrekte Syntax für die FormulaR1C1 Methode ist wichtig.

Alternative Methoden

  • Verwendung von ActiveCell: Wenn Du die ActiveCell Methode verwenden möchtest, kannst Du den Code wie folgt anpassen:

    ActiveCell.FormulaR1C1 = "=RC[-1]"

    Dies setzt die Formel in die aktuell ausgewählte Zelle.

  • Direktes Zuweisen ohne Selektieren: Es ist nicht notwendig, eine Zelle zu selektieren und dann den Befehl auszuführen. Du kannst einfach den Bereich direkt ansprechen:

    Range("AK13").FormulaR1C1 = "=RC[-1]"

Praktische Beispiele

  • Beispiel für eine einfache Zuweisung:

    Range("AK13").FormulaR1C1 = "=RC[-1]"  ' Setzt die Formel in Zelle AK13

  • Anwenden auf mehrere Zellen:

    Range("AK13:AK68").FormulaR1C1 = "=RC[-1]"  ' Setzt die Formel auf einen Bereich

Tipps für Profis

  • Vermeide Select und Activate: Es ist effizienter, mit direkten Bereichsreferenzen zu arbeiten, statt die Zellen zuerst auszuwählen.
  • Automatisierung verbessern: Wenn Du häufig mit Formeln arbeitest, überlege, ob Du Funktionen oder benutzerdefinierte Formeln erstellen willst, um den Prozess zu automatisieren. Nutze dazu vba rc und vba formular1c1 effizient.
  • Fehlerbehandlung implementieren: Setze On Error Resume Next, um unerwartete Fehler im VBA-Code zu vermeiden.

FAQ: Häufige Fragen

1. Wie funktioniert die FormulaR1C1 Methode? Die FormulaR1C1 Methode erlaubt es Dir, Formeln in einem R1C1-Format zu setzen, wobei R für die Zeile und C für die Spalte steht. In =RC[-1] referenzierst Du die Zelle direkt links von der aktuellen Zelle.

2. Was ist der Unterschied zwischen Formula und FormulaR1C1? Formula verwendet das A1-Referenzformat, während FormulaR1C1 das R1C1-Format nutzt, das flexibler ist, insbesondere in VBA.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige