Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.10.2025 22:02:44
Warum NV bei meiner Rang Formel?
23.10.2025 20:59:30
Buchstaben aus Zelle auftrennen
23.10.2025 18:34:00
Summation/Aggregation von Stücklistenmengen
23.10.2025 14:37:20
Ampel in Excel macht nicht das was sie soll
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
1420to1424
1420to1424
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

FormulaLocal mit variablem Zellbezug

Forumthread: FormulaLocal mit variablem Zellbezug

FormulaLocal mit variablem Zellbezug
18.04.2015 20:31:54
henrik
Hallo zusammen,
ich möchte per VBA für Spalte B ab Zelle B1 mit der Funktion FormulaLocal folgende Formel einfügen:
=Text(A1;"0")
Ich habe bisher:
Range("B1").FormulaLocal = "=Text(A1;""0"")"
Soweit so gut. Das Problem ist aber, dass ich so immer den Zellbezug A1 einfüge. Ich möchte aber den Zellbezug variabel halten, so dass ich wenn ich mich in Zelle B2 befinden, die Formel sich auf die Zelle links neben B2 bezieht. Es soll "=Text(A2;"0")" eingefügt werden.
Wie berücksichtige ich diesen variablen Zellbezug in FormulaLocal?

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: FormulaLocal mit variablem Zellbezug
18.04.2015 20:49:23
Luschi
Hallo henrik
hier mal mein Vorschlag: 

Sub test1()
Dim j As Long
For j = 1 To 100
ActiveSheet.Range("B" & j).FormulaLocal = "=Text(A" & j & ";""0"")"
Next j
End Sub
oder als einzelne Zeilen:
ActiveSheet.Range("B1").FormulaLocal = "=Text(A" & Range("B1").Row & ";""0"")"
ActiveSheet.Range("B2").FormulaLocal = "=Text(A" & Range("B2").Row & ";""0"")"
Gruß von Luschi
aus klein-Paris

Anzeige
AW: FormulaLocal mit variablem Zellbezug
18.04.2015 21:28:00
henrik
Danke für die schnelle Antwort, funktioniert perfekt!

AW: FormulaLocal mit variablem Zellbezug -> R1C1
20.04.2015 12:41:18
Daniel
Hi
noch einfacher gehts mit R1C1- bzw Z1S1-Zellbezügen in der Formel.
diese könnten auch relatvie Zellbezüge beschreiben (in A1 müssen auch relative Zellbezüge mit einer absoluten Adresse beschrieben werden):
Range("B1").FormulaR1C1Local = "=Text(ZS(-1);""0"")"

oder 
Range("B1").FormulaR1C1Local = "=Text(ZS1;""0"")"
für weitere Zeilen kannst du dann dieselbe Formel verwenden: 
Range("B2").FormulaR1C1Local = "=Text(ZS(-1);""0"")"

das z steht für Zeile und das S für Spalte.
danach folgt bei absoluten Zellbezügen die Zeilen- oder Spaltennumemr,
bei relativen Zellbezügen der Versatzwert des Bezuges in Klammern, hierbei steht ein negativer wert für "nach oben" oder "nach links" und ein positiver Wert für "nach unten" oder "nach rechts".
relative Bezüge auf die gleiche Zeile oder Spalte, welches ein (0) ergeben würden, kann man wie im Beispiel gezeigt auch weglassen.
der Vorteil der Z1S1-Bezugsart ist, dass man bei relativen Zellbezügen die Adresse nicht abhängig von der Einfügezelle "berechnen" muss, sondern für alle Zellen den selben Formeltext verwenden kann.
Ausserdem wird auch die Spalte als zahl angegeben, was hilfreich ist, wenn für die formel die Spaltenbeezüge tatsächlich mal berechnet werden sollen, weil dann die Konvertierung in den Spaltenbuchctaben entfällt.
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Formel mit Variablen ohne Absolutwert
Christian

Hallo,
ich muss mehrere Formeln sehr dynamisch halten und suche mir deswegen immer die Spalte die ich vorher abfrage.
Nun verwende ich in der Formel den Code: Cells(2, I_MEAP).Address um mir die richtige Zelle ausgeben zu lassen. Das Problem dabei ist jetzt das der Zellbezug in der...
25.05.2009 15:35:48
Thread-ID: 1077143
3 Beiträge
Formel mit Zellbezug aus Variabeln
Loca

Hallo zusammen
Ich möchte in einer Formel die Adresse einer Zelle durch Variabeln definieren, damit folgendes dabei rauskommt:
Falls in Spalte X eine 1 steht nimm die Zahl aus Spalte U
Falls in Spalte X eine 2 steht nimm die Zahl aus Spalte V
Falls in Spalte X eine 3 steht nimm...
27.05.2009 16:20:03
Thread-ID: 1077736
7 Beiträge
variabler SVerweis mit VBA
Jonathan

Hallo zusammen,
in einer Tabelle sind verschiedene Zeilen mit einem "x" in Spalte C markiert. Die Anzahl der "x" variert.
Nun versuche ich ein Makro zu erstellen, welches mir, wenn eine Zeile mit einem "x" markiert ist in
Spalte B einen SVerweis (Suchwert steht in Spalte A) einträg...
17.06.2009 14:28:57
Thread-ID: 1082250
3 Beiträge
Variablen Druckbereich mittels VBA einrichten (2) | Herbers Excel-Forum
Space
Hallo Rudi, Hallo Forums-Mitglieder,
zunächst vielen Dank an dich Rudi für die schnelle Rückmeldung! Leider konnte ich auf deinen Beitrag nicht direkt antworten, deshalb muss ich einen neuen Beitrag aufmachen.
Kurz zum Thema: Ich suche eine Lösung für einen variablen Druckbereich mittels VB...
13.01.2010 08:46:23
Thread-ID: 1129313
5 Beiträge
Anzeige
VBA Reihen Löschen mit Variable
chrissey

Hallo Leut,
hab folgende Zeile und möchte diese durch eine Variable ersetzen ( Variablen Name = ErsteZeile )
Worksheets("A").Rows("2:2").Delete Shift:=xlUp
Das ("2:2") möchte ich durch die oben genannte Variable ersetzen.
Kriegs aber irgendwie nicht hin.
Grüße Euch ganz lieb...
15.02.2010 15:56:05
Thread-ID: 1138678
3 Beiträge
Teilergebnis per VBA mit variablen Spalten
grexx123

Hallo,
ich habe schon einmal in dieses Forum geschrieben und kann leider keine weiteren Beiträge mehr schreiben - meine Frage ist aber leider immer noch offen....
https://www.herber.de/forum/archiv/1156to1160/t1156986.htm
Ich möchte gerne eine Tabelle automatisch mit Teilergebnissen...
20.05.2010 16:15:43
Thread-ID: 1158102
3 Beiträge
VBA: Problem mit Variable in Formel einfügen
Harald

Hallo,
diese VBA Zeile
Selection.FormulaArray = "=LARGE(IF(SUBTOTAL(2,INDIRECT(""Tabelle1!G""&ROW(R1:R9))),Tabelle1!R1C[5]:R9C[5]),ROW(R[-4]C[-1]))"
fügt diese Formel in Tabelle1 ein
=KGRÖSSTE(WENN(TEILERGEBNIS(2;INDIREKT("Tabelle1!G"&ZEILE($1:$9)));Tabelle1!G$1:G$9);ZEI...
29.07.2010 19:03:24
Thread-ID: 1169548
5 Beiträge
Formeln mit Zellbezügen
Nicoletroler

Hallo zusammen,
ich möchte gerne folgendes rechnen lassen:
in Zelle B1 soll gerechnet werden: A1+A2
in Zelle B2 soll gerechnet werden: A3+A4
in Zelle B3 soll gerechnet werden: A5+A6
usw.
Wie kann ich das angeben?
Viele Grüße von Nicoletroler
15.12.2010 13:59:17
Thread-ID: 1191589
7 Beiträge
in WENN-Formel Link 2 * einbinden mit Zellbezug
Holger

Hallo,
gegeben sei eine Exceltabelle, wo in Feld D8 ein Wert von 0 € steht, wenn ich für eine Dienstleistung meines Unternehmens keine Fahrtkosten berechnet habe. Je nach Anfahrtstrecke steht in Zelle D8 ein Wert wie etwa 3 €.
Ich möchte nach der Datenerfassung in der Kundenübersichts-T...
15.05.2012 20:24:18
Thread-ID: 1263604
5 Beiträge
Anzeige
SUMPRODUCT in VBA - Wert mit Variable übergeben
Peter

Guten Tag
Ich habe nochmals eine Frage zu SUMPRODUCT in der VBA-Umgebung.
Nachstehender Code liefert mir das korrekte Ergebnis.
lngValue = [SUMPRODUCT((spxSum < 500000)*(spxAktiv="JA")*(spxFehler2<>"rot")*(len(spxText)<10))]
Nun möchte ich in der Formel nicht mehr ei...
18.10.2012 11:29:03
Thread-ID: 1282584
5 Beiträge
Anzeige
in vba excelmappe mit variablem datum öffnen
meixner

Hallo zusammen,
unteres Makro funktioniert nicht und ich kann es mir nicht erklären.
Sub Morgenroutine_oeffnen() Dim wb As Workbook Workbooks.Open Filename:=("I:\CM_88\8801\Fondsmanagement\Archiv Morgenroutine\Morgenroutine" & _ Format(Date, " YYYYMMDD")) End Sub Hat jmd. einen Ti...
19.10.2012 13:40:09
Thread-ID: 1282818
2 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: FormulaLocal mit variablem Zellbezug

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf VBAProject (DeineArbeitsmappe), wähle Einfügen und dann Modul.

  3. Schreibe den VBA-Code: Verwende den folgenden Code, um die FormulaLocal-Funktion mit einem variablen Zellbezug zu nutzen:

    Sub FormelnMitVariablenZellbezug()
   Dim j As Long
   For j = 1 To 100
       ActiveSheet.Range("B" & j).FormulaLocal = "=Text(A" & j & ";""0"")"
   Next j
End Sub

    Dieser Code fügt die Formel =Text(A1;"0") bis =Text(A100;"0") in die entsprechenden Zellen in Spalte B ein.

  4. Führe den Code aus: Drücke F5, um das Makro auszuführen. Die Formeln werden automatisch in die Zellen eingefügt.

Häufige Fehler und Lösungen

  • Fehler: "Typen unverträglich": Stelle sicher, dass alle verwendeten Variablen korrekt deklariert sind und der Datentyp stimmt.

  • Problem mit dem Zellbezug: Achte darauf, dass der Zellbezug korrekt ist. Verwende .Row, um die aktuelle Zeile dynamisch zu referenzieren.

Alternative Methoden

Eine alternative Methode ist die Verwendung von FormulaR1C1Local, die es dir ermöglicht, relative Zellbezüge einfacher zu handhaben. Beispiel:

ActiveSheet.Range("B1").FormulaR1C1Local = "=Text(RC[-1];""0"")"

Hierbei bedeutet RC[-1], dass der Bezug auf die Zelle in der gleichen Zeile und einer Spalte links erfolgt.

Praktische Beispiele

  • Beispiel 1: Wenn du die Formel für die gesamte Spalte B einfügen möchtest, kannst du den vorherigen VBA-Code verwenden.

  • Beispiel 2: Wenn du nur eine einzelne Zelle ansprechen möchtest:

    ActiveSheet.Range("B2").FormulaLocal = "=Text(A" & Range("B2").Row & ";""0"")"

  • Beispiel 3: Mit FormulaR1C1Local für die Zelle B2:

    ActiveSheet.Range("B2").FormulaR1C1Local = "=Text(RC[-1];""0"")"

Tipps für Profis

  • Nutze Application.WorksheetFunction für komplexere Berechnungen in VBA.
  • Experimentiere mit FormulaR1C1Local, um die Flexibilität bei relativen Zellbezügen zu erhöhen.
  • Halte deine VBA-Projekte gut dokumentiert, um den Überblick über den Code und die verwendeten Formeln zu behalten.

FAQ: Häufige Fragen

1. Wie kann ich die Formel auf andere Bereiche anwenden?
Du kannst den For-Loop anpassen, um die Formeln in einen beliebigen Bereich einzufügen.

2. Was ist der Unterschied zwischen FormulaLocal und FormulaR1C1Local?
FormulaLocal verwendet standardmäßige A1-Referenzen, während FormulaR1C1Local R1C1-Referenzen nutzt, was bei relativen Zellbezügen oft einfacher ist.

3. Kann ich auch andere Funktionen in der Formel verwenden?
Ja, du kannst jede Excel-Funktion innerhalb der FormulaLocal oder FormulaR1C1Local verwenden, solange die Syntax korrekt ist.

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