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

Formeln in Zellen per VBA

Forumthread: Formeln in Zellen per VBA

Formeln in Zellen per VBA
09.04.2016 13:20:39
Peter
Hallo Excelexperten,
benötige wieder einmal eure Hilfe.
Ich möchte mit VBA Formeln in eine Zeile einfügen.
Wenn A2 leer ist, dann sollen die folgenden Formeln
eingefügt werden:
E2 einfügen Formula = =WENN(B2="Zugang";D2*C2;"")
F2 einfügen Formula = =WENN(B2="Abgang";D2*C2;"")
G2 einfügen Formula = =WENN(E2"";SUMME(E2);WENN(F2"";SUMME(F2);""))
in jede weitere Zeile:
E2 einfügen Formula = =WENN(B2="Zugang";D2*C2;"")
F2 einfügen Formula = =WENN(B2="Abgang";D2*C2;"")
G2 einfügen Formula = =WENN(E3"";SUMME(G2+E3);WENN(F3"";SUMME(G2-F3);""))
End if
Das Makro an sich existiert bereits. Ich habe jedoch Probleme die Formeln
in die Makro-Sprache umzusetzen, damit diese immer in der nextfolgenden Zeile
richtig sind.
Danke für Eure Hilfe.
Gruss Peter

Anzeige

24
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formeln in Zellen per VBA
09.04.2016 13:30:05
Hajo_Zi
Hallo Peter,
trage die Formel ein. Füge eine Tabelle ein internationale Makrovorlage, kopiere die Formel dort hin.

AW: Formeln in Zellen per VBA
09.04.2016 13:34:59
Peter
Hallo Hajo,
mit Deiner Antwort kann ich leider nichts anfangen. Verstehe ich nicht.
Ich weiss nicht wie ich meine Daten in VB übernehmen kann. Du weisst es mit Sicherheit.
Vielleicht kannst Du mir das entsprechend schreiben.
Besten Dank
Gruss Peter

Anzeige
AW: Formeln in Zellen per VBA
09.04.2016 13:37:08
Hajo_Zi
Hallo Peter,
hast Du die Formel kopiert siehst Du die Formel in englisch, was VBA ist.
Gruß Hajo

AW: Formeln in Zellen per VBA
09.04.2016 13:49:05
Werner
Hallo Peter,
Formeln kannst du auch in der Deutschen Schreibweise per VBA in Zellen schreiben.
Range("E2").FormulaLocal = "=WENN(B2=""Zugang"";D2*C2;"""")"
Gänsefüsschen innerhalb der Formel müssen doppelt ausgeführt sein.
Gruß Werner

Anzeige
AW: Formeln in Zellen per VBA
09.04.2016 13:51:23
Hajo_Zi
Hallo Peter,
was dann aber bei einer englischen Version zu Problemen führt.
Ich hatte einen Engländer als Kollege.
Darum lehne ich dies ab.
Gruß Hajo

AW: Formeln in Zellen per VBA
09.04.2016 14:01:22
Peter
Hallo Hajo,
ich weiss leider nicht, wie ich das was Du mir mitgeteilt hast durchführen soll.
Ich habe jetzt eine internationle Makrovorlage eingefügt und die Formel eingegeben.
Ich sehe aber keine englische Anzeige.
Gruss Peter

Anzeige
AW: Formeln in Zellen per VBA
09.04.2016 14:06:35
Peter
Hallo Hajo,
hat geklappt. Besten Dank.
Noch eine Frage ist es besser mit A2 oder R2C1 zu arbeiten.
Gruss Peter

AW: Formeln in Zellen per VBA
09.04.2016 14:11:58
Hajo_Zi
ich würde mit A2 arbeiten da dies eindeutiger ist.
Gruß Hajo

Anzeige
AW: Formeln in Zellen per VBA
09.04.2016 14:13:00
Peter
Hallo Hajo,
besten Dank
Gruss Peter

AW: Formeln in Zellen per VBA
09.04.2016 14:25:40
Peter
Hallo Hajo,
leider funktioniert das mit der englischen Version nicht.
Wenn ich die Formeln in VBA eingebe und dies mit Englisch in die bestehende Tabelle einfüge
gibt es eine Fehlermeldung. Wenn ich die Namen in Deutsch einfüge ist alles ok.
Was gibst Du mir für einen Rat?
Gruss Peter

Anzeige
AW: Formeln in Zellen per VBA
09.04.2016 14:27:51
Hajo_Zi
keinen, was wohl daran liegt das ich den Code nicht sehe.
Gruß Hajo

AW: Formeln in Zellen per VBA
09.04.2016 14:46:52
Hajo_Zi
Hallo Peter,
man könnte vermuten es steht "" statt """"
Gruß Hajo

Anzeige
AW: Formeln in Zellen per VBA
09.04.2016 16:04:29
Peter
Hallo Hajo,
Makro anbei:
Sub MakroFormel_ersteZeile1()
Range("E2").FormulaLocal = "=If(B2=""Zugang"";D2*C2;"""")"
Range("F2").FormulaLocal = "=If(B2=""Abgang"";D2*C2;"""")"
Range("G2").FormulaLocal = "=If(E2"""";SUM(E2);IF(F2"""";SUM(F2);""""))"
End Sub
Gruss Peter

Anzeige
AW: Formeln in Zellen per VBA
09.04.2016 16:09:56
Hajo_Zi
Hallo Peter,
Du hast also eine englische Version? Da Du die Formel in englisch hast.
Im Englischen ist es nicht ; sondern ,
Ich habe eine Deutsche Version und habe das Local entfern, das bei Dir wohl bleiben kann, da englische Version. Das führt nur zu einem Fehler, falls es auf einer Deutschen Version laufen soll.
Falls es auf beiden Versionen laufen soll. 
Option Explicit
Sub MakroFormel_ersteZeile1()
Range("E2").Formula = "=If(B2=""Zugang"",D2*C2,"""")"
Range("F2").Formula = "=If(B2=""Abgang"",D2*C2,"""")"
Range("G2").Formula = "=If(E2"""",SUM(E2),IF(F2"""",SUM(F2),""""))"
End Sub

Gruß Hajo

Anzeige
AW: Formeln in Zellen per VBA
09.04.2016 16:15:23
Peter
Hallo Hajo,
wunderbar, jetzt klappt es.
Wünsche noch ein schönes Wochenende.
Gruss Peter

AW: Formeln in Zellen per VBA
09.04.2016 14:32:05
Werner
Hallo Peter,
deutsch: 

Range("E5").FormulaLocal = "=deine Formel"
Englisch: 

Range("E5").Formula = "=deine Formel"
Gruß Werner

Anzeige
AW: Formeln in Zellen per VBA
09.04.2016 14:32:51
Werner
Hallo Peter,
deutsch: 

Range("E5").FormulaLocal = "=deine Formel"
Englisch: 

Range("E5").Formula = "=deine Formel"
Gruß Werner

AW: Formeln in Zellen per VBA
09.04.2016 14:35:32
Werner
Hallo Peter,
noch die R1C1 Schreibweise
Range("E5").FormulaR1C1 ="deine Formel"
Gruß Werner

Anzeige
AW: Formeln in Zellen per VBA
09.04.2016 16:16:52
Peter
Hallo Werner,
es klappt jetzt wunderbar. Besten Dank
Wünsche noch ein schönes Wochenende.
Gruss Peter

AW: Gerne u. Danke für die Rückmeldung. o.w.T
09.04.2016 17:07:20
Werner

AW: Formeln in Zellen per VBA
09.04.2016 13:55:57
Peter
Hallo Werner,
besten Dank für Deine Hilfe.
Hajo hat darauf jedoch geantwortet, dass englische Sprache besser ist.
Kannst Du mir das in englisch mitteilen?
Besten Dank Gruss Peter

Anzeige
AW: Formeln in Zellen per VBA
09.04.2016 16:34:25
snb 

Sub M_snb()
[E2:G2] = Array("=(B2=""abgang"")*C2*D2", "=(B2=""zugang"")*C2*D2", "=sum(E2:F2)")
End Sub

AW: Formeln in Zellen per VBA
10.04.2016 11:23:28
Peter
Hallo snb,
Danke für Deine Information.
Gefällt mir ebenfalls gut.
Habe jedoch ein Problem mit der Änderung, die ich zusätzlich benötige.
Sub M_snb1()
[E3:G3] = Array("=(B3=""Abgang"")*C3*D3", "=(B3=""Zugang"")*C3*D3", "=sum(E3:F3)")
End Sub
bei =sum(E3:F3)benötige ich noch +G2
Gruss Peter

Anzeige
AW: Formeln in Zellen per VBA
10.04.2016 11:30:14
Peter
Hallo snb,
habe die Lösung gefunden.
Wünsche noch ein schönes Wochenende.
Gruss Peter
;

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
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
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
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
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
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
Anzeige
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
Formel in VBA
steffen

Hallo Leuts,
ich bekomme meine Formel, die in ein Tabellenblatt eingetragen werden soll, einfach nich hin:
ActiveSheet.Range("A4").Formula = "=Büromaterial!R?x?C?"
Wie stelle ich es jetzt an, dass R mit einer Zählvariablen x verbunden wird, sozusagen als Zähler, der bei jedem Durch...
17.09.2008 11:35:00
Thread-ID: 1010306
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Formeln in Zellen per VBA einfügen

Schritt-für-Schritt-Anleitung

  1. Öffne das VBA-Editor-Fenster:

    • 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 (DeineDatei.xlsx), wähle Einfügen und dann Modul.

  3. Schreibe das Makro:

    • Füge den folgenden Code ein, um Formeln in Zellen zu schreiben:
    Sub FormelnInZellen()
   Range("E2").FormulaLocal = "=WENN(B2=""Zugang"";D2*C2;"""")"
   Range("F2").FormulaLocal = "=WENN(B2=""Abgang"";D2*C2;"""")"
   Range("G2").FormulaLocal = "=WENN(E2<>"""";SUMME(E2);WENN(F2<>"""";SUMME(F2);""""))"
End Sub

  4. Führe das Makro aus:

    • Drücke F5 oder gehe zu Run > Run Sub/UserForm, um das Makro auszuführen.

  5. Anpassung für weitere Zeilen:

    • Du kannst eine Schleife verwenden, um die Formeln in den nachfolgenden Zeilen automatisch zu schreiben:
    Sub FormelnInZellenAutomatisch()
   Dim i As Integer
   For i = 2 To 100 ' Beispiel für Zeilen 2 bis 100
       Range("E" & i).FormulaLocal = "=WENN(B" & i & "=""Zugang"";D" & i & "*C" & i & ";"""")"
       Range("F" & i).FormulaLocal = "=WENN(B" & i & "=""Abgang"";D" & i & "*C" & i & ";"""")"
       Range("G" & i).FormulaLocal = "=WENN(E" & i & "<>"""";SUMME(E" & i & ");WENN(F" & i & "<>"""";SUMME(F" & i & ");""""))"
   Next i
End Sub

Häufige Fehler und Lösungen

  • Fehler: Formel wird nicht korrekt eingefügt:

    • Stelle sicher, dass du FormulaLocal verwendest, wenn du eine Formel in der deutschen Sprache einfügst.

  • Fehler: Ungültige Zeichen oder Syntax:

    • Achte darauf, dass Gänsefüßchen innerhalb der Formeln korrekt verwendet werden (doppelt ausführen).

  • Fehler: Englisch und Deutsch mischen:

    • Verwende Formula für englische Formeln und FormulaLocal für deutsche Formeln, um Komplikationen zu vermeiden.

Alternative Methoden

  • Formel in R1C1-Notation: Du kannst auch die R1C1-Notation verwenden, um Formeln in Zellen einzufügen:

    Range("E2").FormulaR1C1 = "=IF(RC[-1]=""Zugang"",RC[-2]*RC[-3],"""")"

  • Array-Formeln verwenden: Du kannst auch ein Array verwenden, um mehrere Formeln gleichzeitig einzufügen:

    Sub FormelnMitArray()
   [E2:G2] = Array("=(B2=""Abgang"")*C2*D2", "=(B2=""Zugang"")*C2*D2", "=SUM(E2:F2)")
End Sub

Praktische Beispiele

  1. Einfaches Beispiel:

    Sub EinfachesBeispiel()
   Range("A1").Value = "Zugang"
   Range("B1").Value = 10
   Range("C1").Value = 5
   Range("D1").FormulaLocal = "=WENN(A1=""Zugang"";B1*C1;"""")"
End Sub

  2. Formel mit Bedingungen:

    Sub BedingungenBeispiel()
   If Range("A1").Value = "" Then
       Range("B1").FormulaLocal = "=WENN(A1=""Zugang"";B2*C2;"""")"
   End If
End Sub

Tipps für Profis

  • Verwende lokale Einstellungen: Achte darauf, welche Sprache die Excel-Version hat, um Fehler mit der Formelsyntax zu vermeiden.
  • Testen von Makros: Nutze den Debugger im VBA-Editor, um Fehler schnell zu identifizieren.
  • Dokumentation: Halte deinen Code gut kommentiert, damit du später leichter nachvollziehen kannst, was jede Formel bewirken soll.

FAQ: Häufige Fragen

1. Kann ich auch englische Formeln verwenden? Ja, du kannst Formula anstelle von FormulaLocal verwenden, um Formeln in englischer Sprache einzufügen.

2. Wie kann ich sicherstellen, dass meine Formeln in allen Excel-Versionen funktionieren? Verwende die FormulaLocal-Eigenschaft für die lokale Sprache oder teste deine Makros in verschiedenen Excel-Versionen, um die Kompatibilität sicherzustellen.

Beliebteste Forumthreads (12 Monate)

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