Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel in VBA umsetzen

Formel in VBA umsetzen
05.04.2016 11:18:01
Joachim
Hallo,
anbei eine Datei mit vielen Formeln, die ich gerne in VBA nachbauen möchte, da die Datei mit den Formeln sehr groß wird. Am Ende des Makros würde ich gerne die Formeln durch Werte ersetzen (=das ist nicht das Problem).
Ich dachte da an 2 Schleifen, mit i=3 bis 77 für die Zeilen und j=5 bis 35 für die Spalten E bis AI. Eine Schleife hab ich geschafft, aber das 'Verknoten' mit der 2. nicht. Da bin ich gescheitert.
https://www.herber.de/bbs/user/104773.xlsx
Gruß
Joachim

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

Betreff
Datum
Anwender
Anzeige
AW: Formel in VBA umsetzen
05.04.2016 11:35:37
Steve
Hallo Joachin,
deine Formel hast du doch in E3 geschrieben und nach rechts erweitert und anschließend die Zeile nach unten, richtig? Das lässt sich auch mit VBA nachbauen, nennt sich Autofill. Geht wie per Hand auch immer nur rüber oder runter/hoch, aber nicht beides gleichzeitig. 
    Range("E3").FormulaLocal = "=WENN(UND(E$2>=$B3;E$2
lg Steve

AW: Formel in VBA umsetzen
05.04.2016 11:44:23
Joachim
Hallo Steve,
na das ist ja mal ne geile Sache! Von AutoFill hatte ich bisher noch nichts gehört.
Klappt suuuper und total einfacher Code.
DANKE
Joachim

AW: Formel in VBA umsetzen
05.04.2016 11:51:27
Steve
Du kannst allerdings auch alles Zelle für Zelle durchgehen, jedoch ist das komplizierter. Am besten eignet sich hier die Formel in Z1S1-Schreibweise (.FormulaR1C1) zu benutzen. Die Local-Variante habe ich gewählt um die Formel zu Demonstrationszwecken in deutsch schreiben zu können. 
Sub Test()
Dim i As Long, j As Long
For i = 3 To 77
For j = 5 To 35
Cells(i, j).FormulaR1C1Local = "=Wenn(Und(Z2S>=ZS3;Z2S
Absolute Bezüge (Dollarzeichen) werden als Zahl hinter den Buchstaben für Zeile bzw. Spalte geschrieben. Relative Bezüge kommen in eckige Klammern hinter den Buchstaben, hier jedoch nicht notwendig gewesen, da deine Formel einfach ist. Keine Zahlenangabe hinter dem Buchstaben oder ein komplett fehlender Buchstabe bedeuten die aktive Zeile/Spalte der Zeile werden genommen:
"Z2S" in der Zelle J17 würde also "J$2" ergeben, aber genauso hätte ich nur "Z2" schreiben können.
"Z[2]S" würde zwei Zeilen unter der aktuellen Zelle (relativ) in der gleichen Spalte ergeben. In J17 also J19.
lg Steve

Anzeige
AW: Formel in VBA umsetzen AutoFill unnötig
05.04.2016 12:06:31
Daniel
Hi
Autofill ist in VBA meistens unnötig.
Wenn nur eine Formel geschrieben werden soll, kann man die in alle Zellen gleichzeitig schreiben.
Im Prinzip reicht:
Range("E3:AI77").FormulaLocal = "=WENN(UND(E$2>=$B3;E$2
wenn man dann noch die Formeln gleich durch Werte ersetzen will: 
With Range("E3:AI77")
.FormulaLocal = "=WENN(UND(E$2>=$B3;E$2
in VBA bietet es sich normalerweise an, die Formeln in R1C1 und internationaler Schreibweise zu schreiben:
With Range("E3:AI77")
.FormulaR1C1 = "=IF(AND(R2C>=RC2,R2C
Gruß Daniel
Anzeige

320 Forumthreads zu ähnlichen Themen

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
Anzeige
SVerweis ??? in VBA
kirsche

hallo leute,
mal wieder brauche ich eure hilfe.
ich weiß nicht, ob ich mit dem SVerweis in VBA übehaupt richtig liege. in B1 steht mein 1. suchbegriff (25) und in A3, A5 ... A25 (immer in zweierschritten) steht mein 2. suchbegriff.
nun möchte ich in tabelle "Stammdaten" zuerst die s...
08.07.2009 23:26:22
Thread-ID: 1087239
5 Beiträge
SVerweis in VBA
Stefanglander

Hallo Forum,
ich habe folgenden Code in einer Zelle:
=WENN(C4="";"";SVERWEIS(C4;Stoffplan!$A$2:$F$100;2;FALSCH))
Mag mir jamand sagen wie und wo ich das in VBA hinterlegen kann.
Danke im Vorfelde
Stefan
05.10.2009 21:11:52
Thread-ID: 1107351
11 Beiträge
Anzeige
Formel Sverweis in VBA
Marko Albrecht

Hallo,
ich hoffe mir kann bei meinem, nachfolgend beschriebenen, Problem geholfen werden.Das Problem ist , daß in der nachstehenen Formel(Wenn, Istfehler, Sverweis) VBA ein Hochkomma in die Formel schreibt und die Formel dadurch nicht Ihre Funktion erfüllt.Die Bezugszelle der Formel Sverweis...
11.04.2002 14:27:49
Thread-ID: 112467
10 Beiträge
Formel per VBA in Zelle schreiben
einfachf

Hallo Zusammen,
ich habe folgendes Problem
Vielleicht kann mir ja jemand helfen.
Ich prüfe in welcher Zelle der letzte Wert steht mit
CellCount = Cells(65536, 23).End(xlUp).Row
Nun möchte ich in sagen wir mal Cells(CellCount, 21) die Formel eintragen
Summe aus Cells(Cel...
20.02.2010 14:24:22
Thread-ID: 1139917
7 Beiträge
Sverweis mit VBA funktionier nicht richtig
F.

Hallo zusammen
Ich möchte zu einer Ziffer, welche ab dem zweiten Blatt in A1 steht, die dazugehörige Bezeichnung aus dem ersten Blatt "Konti" (Spalte B) ziehen und diese dann im Feld B1 eintragen. Irgendwas mache ich falsch.
Sub Konten_bezeichnen() Dim i As Long For i = Sheets("Konti")...
10.03.2010 14:58:20
Thread-ID: 1144879
5 Beiträge
SVerweis in VBA umsetzen
Ines

Hallo,
ich habe mir ein Userform erstellt, da ich Daten in Bezug auf das Datum in eine Tabelle eintragen muss.
Mein Problem ist, dass die Daten nicht irgendwo automatisch eingetragen werden sollen.
Ich würde gerne
im Userform 4 Textfelder ausfüllen und das Datum angeben
D...
10.03.2010 21:36:01
Thread-ID: 1145009
9 Beiträge
Formel in VBA umsetzen
Josef


Hallo!
Wie würde bitte die untenstehende Formel in VBA umgesetzt lauten?
=RUNDEN(F11*0,2;2)
F11 wäre in diesem Fall eine TextBox in einer UserForm.
Danke
Josef
15.04.2010 07:06:19
Thread-ID: 1151875
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
4
10
13
9
6
4
8
2
1
5
4
2
2
8
3
4
6
6
5
13
1
4
6