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

Formel per VBA in Zelle schreiben

Forumthread: Formel per VBA in Zelle schreiben

Formel per VBA in Zelle schreiben
25.02.2007 22:58:03
Ralf-P
Hallo, ich war schon lange nicht mehr hier, brauche aber mal wieder eure Hilfe.
Folgendes Problem, in einem Schleifendurchlauf sollen auf einem sheet mehrere Formeln in verschiedene Zellen geschrieben werden
Formel = "='Tfz-Bereit'!" & Buchstabe & "46"
ActiveSheet.Range("D11").Value = Formel
ActiveSheet.Range("D11").Select
Set SourceRange = ActiveSheet.Range("D11")
Set fillRange = ActiveSheet.Range("D11:D25")
SourceRange.AutoFill Destination:=fillRange, Type:=xlFillDefault
Formel = "='Tfz-Bereit'!" & Buchstabe & "62"
ActiveSheet.Range("D26").Value = Formel
ActiveSheet.Range("D26").Select
Set SourceRange = ActiveSheet.Range("D26")
Set fillRange = ActiveSheet.Range("D26:D47")
SourceRange.AutoFill Destination:=fillRange, Type:=xlFillDefault
Formel = "=WENN(D11=0;0;('Tfz-Bereit'!$" & Buchstabe & "$7/D11)-SUMME(G12:$G$19))"
ActiveSheet.Range("G11").Value = Formel
ActiveSheet.Range("G11").Select
Set SourceRange = ActiveSheet.Range("G11")
Set fillRange = ActiveSheet.Range("G11:G19")
SourceRange.AutoFill Destination:=fillRange, Type:=xlFillDefault
Die beiden ersten Blöcke sind bis auf den Inhalt des Text-Strings in der Variable "Formel" identisch und funktionieren einwandfrei.
Beim dritten Block gibt es immer einen Laufzeitfehler, obwohl ja die Vorgehensweise immer die selbe ist.
Vielleicht fällt Euch ja auf, was an dem String falsch ist, sodass er nicht in die Zelle geschrieben wird.
Danke im vorraus
Ralf
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel per VBA in Zelle schreiben
25.02.2007 23:08:07
Jan
Hi,
kann mir nicht vorstellen, dass das klappt. Es muss so aussehen:
ActiveSheet.Range("G11").FormulaLocal = Formel
mfg Jan
AW: Formel per VBA in Zelle schreiben
25.02.2007 23:09:09
Josef
Hallo Ralph,
dafür gibt's ".FormulaLocal".
Das ganze "AutoFill" kannst du dir auch sparen.
Formel = "='Tfz-Bereit'!" & Buchstabe & "46"
ActiveSheet.Range("D11:D25").FormulaLocal = Formel

Formel = "='Tfz-Bereit'!" & Buchstabe & "62"
ActiveSheet.Range("D26:D47").FormulaLocal = Formel

Formel = "=WENN(D11=0;0;('Tfz-Bereit'!$" & Buchstabe & "$7/D11)-SUMME(G12:$G$19))"
ActiveSheet.Range("G11:G19").FormulaLocal = Formel

Gruß Sepp
Anzeige
AW: Formel per VBA in Zelle schreiben
25.02.2007 23:24:00
Ralf-P
Hallo Sepp,
erstmal Danke.
Werd's gleich morgen früh in der Firma testen.
Gruß Ralf
Danke, genau so !!! 0.T.
26.02.2007 08:57:36
Ralf-P
;

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
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
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
VBA Formel finden
Baywatch

Hi,
ich brauche etwas hilfe, mit einer VBA programmierung, vielleicht hat jemand ein paar MInuten Zeit.
Ich habe eine Tabelle 1 in der eine eingabe passiert und eine TAbelle 2 sollen die Einträge aus TAbelle 1 hinkopiert werden und erst nach Spalte G dann nach B und dann nach A sortiert...
25.08.2008 08:47:34
Thread-ID: 1004371
7 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Anzeige
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Excel VBA: Formel in Zelle schreiben

Schritt-für-Schritt-Anleitung

Um eine Formel per VBA in eine Zelle zu schreiben, kannst du die folgende Vorgehensweise nutzen. Diese Anleitung geht davon aus, dass du mit Excel VBA 2010 oder höher arbeitest.

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

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProjekt (DeineDatei.xlsx)" > Einfügen > Modul.

  3. Schreibe den folgenden Code:

    Sub FormelInZelleSchreiben()
   Dim Buchstabe As String
   Buchstabe = "A" ' Beispielbuchstabe

   ' Formel für die Zelle D11
   Dim Formel As String
   Formel = "='Tfz-Bereit'!" & Buchstabe & "46"
   ActiveSheet.Range("D11").FormulaLocal = Formel

   ' Formel für Zelle G11
   Formel = "=WENN(D11=0;0;('Tfz-Bereit'!$" & Buchstabe & "$7/D11)-SUMME(G12:$G$19))"
   ActiveSheet.Range("G11").FormulaLocal = Formel
End Sub

  4. Führe das Makro aus: Schließe den VBA-Editor und kehre zu Excel zurück. Drücke ALT + F8, wähle FormelInZelleSchreiben aus und klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Laufzeitfehler bei der Formel: Wenn du einen Laufzeitfehler erhältst, überprüfe den String, den du in die Zelle schreibst. Achte darauf, dass die Syntax korrekt ist. Statt .Value solltest du .FormulaLocal verwenden, um sicherzustellen, dass die Formel korrekt erkannt wird.

  • Formeln werden nicht automatisch ausgefüllt: Wenn du AutoFill verwendest, stelle sicher, dass der Zielbereich korrekt definiert ist. Anstelle von AutoFill kannst du direkt den Bereich mit .FormulaLocal befüllen, um Zeit zu sparen.

Alternative Methoden

Du kannst auch VBA-Funktionen verwenden, um Formeln in Zellen zu schreiben. Eine gängige Methode ist, eine Funktion zu definieren, die eine Formel mit Variablen erstellt:

Function FormelMitVariable(Buchstabe As String) As String
    FormelMitVariable = "='Tfz-Bereit'!" & Buchstabe & "46"
End Function

Diese Funktion kannst du dann in deinem Hauptmakro verwenden.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du mit VBA Formeln in Zellen schreiben kannst:

  1. Einfaches Beispiel:

    ActiveSheet.Range("A1").FormulaLocal = "=SUMME(B1:B10)"

  2. Mit Variablen:

    Dim Zeile As Integer
Zeile = 1
ActiveSheet.Range("A" & Zeile).FormulaLocal = "=D" & Zeile & "*E" & Zeile

  3. Formel per Schleife:

    Dim i As Integer
For i = 1 To 10
   ActiveSheet.Range("A" & i).FormulaLocal = "=B" & i & "+C" & i
Next i

Tipps für Profis

  • Verwende .FormulaLocal: Dies stellt sicher, dass die Formel in der lokalen Sprache eingegeben wird.
  • Debugging: Nutze Debug.Print oder MsgBox, um den Inhalt deiner Variablen während der Ausführung zu überprüfen.
  • Buchstaben dynamisch setzen: Du kannst den Buchstaben für die Zelle dynamisch bestimmen, indem du beispielsweise eine Schleife verwendest.

FAQ: Häufige Fragen

1. Wie kann ich eine Formel mit einer Variable in eine Zelle schreiben? Du kannst eine Variable definieren und diese in der Formel verwenden, wie im Schritt-für-Schritt-Beispiel gezeigt.

2. Gibt es eine Möglichkeit, mehrere Formeln gleichzeitig einzufügen? Ja, du kannst das Range-Objekt verwenden, um mehrere Zellen gleichzeitig zu befüllen, indem du die Formel auf den gesamten Bereich anwendest.

3. Was ist der Unterschied zwischen .Value und .FormulaLocal? .Value schreibt nur den Text in die Zelle, während .FormulaLocal sicherstellt, dass die Zelle als Formel interpretiert wird.

Beliebteste Forumthreads (12 Monate)

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