Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1860to1864
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
1860to1864
1860to1864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel in Algorithmus per VBA schreiben

Formel in Algorithmus per VBA schreiben
29.12.2021 19:56:42
Robert
Hallo liebe Exelgemeinde!
Ich habe wieder mal ein Problem, bei welchen ich Eure Hilfe bräuchte.
Ich möchte die Formel =D2*G2/1000000 jetzt bis =D24*G24/1000000D24* zwei Zeilen nichts und dann =D27*G27/1000000 bis =D48*G48/1000000 dann wieder zwei Zeilen Frei und dann immer in 22 Schritten und dann zwei Frei usw. Wie kann man das per Makro schreiben? bis zur Zeile 1296 in den entsprechenden Algorithmus. Da es mir immer schwer fällt das Problem hundert Prozent bildlich darzustellen, habe ich eine Berispieldatei angehängt.
Meine Versuche sind leider gescheitert.
Für Eure Hilfe wäre ich sehr dankbar.
https://www.herber.de/bbs/user/150065.xlsx
LG Robert

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel in Algorithmus per VBA schreiben
29.12.2021 20:56:27
onur 

Dim z
For z = 2 To 1296
Cells(z, 10) = ""
If (z - 1) Mod 24 > 1 Then
Cells(z, 9).FormulaR1C1Local = "=ZS4 * ZS7 / 1000000"
End If
Next z

AW: Formel in Algorithmus per VBA schreiben
29.12.2021 21:05:26
Yal
Hallo Robert,
Neben wir an, deine Formel kommt in die Spalte H rein. Bin gerade nicht am Rechner und kann weder deine Datei sehen noch testen.

For i = 2 To 1296
If ((i + 1) Mod 24) > 2 Then
Cells(i, "H").FormulaR1C1 = "=RC4 * RC7 / 1000000"
End If
Next
Es könnte sein, dass es >= 2 sein muss.
VG
Yal
AW: Formel in Algorithmus per VBA schreiben
29.12.2021 21:07:59
GerdL
Hallo Robert,
deine erste Serie geht über 23 Zellen, die weiteren Serien über 22 Zellen.

Sub Unit()
Dim X As Integer
Cells(2, 9).Resize(23).FormulaR1C1 = "=RC4*RC7/10^5"
For X = 25 To 1296 Step 24
Cells(X + 2, 9).Resize(22).FormulaR1C1 = "=RC4*RC7/10^5"
Next
'2-24!
'27-48
'51-72
End Sub
Gruß Gerd
Anzeige
Der Punkt geht an...
30.12.2021 13:49:04
Yal
... Gerd!
Schöner, leichter, nachvollziehbarer und allgemeiner als meine Lösung (oder Onurs, da sehr ähnlich).
Einzige mögliche Ergänzung (ich möchte das Wort Verbesserung nicht verwenden, da es keine ist):
Ich hätte die Start-Ausnahme auf die Zeile 2 beschränkt und die Schleife ab Zeile 3 gestartet.
(Da stellt sich die Frage, warum das erste Block 23 Zeile hat und die anderen 22...)
VG
Yal
AW: Der Punkt geht an...
30.12.2021 17:15:00
Robert
Hallo Ihr lieben Helferlein!
Ich möchte mich ganz herzlich bei Onur, Yal und Gerd bedanken. Ihr habt mir wie immer sehr geholfen. Hätte mal noch eine Frage, wie kann ich die Zellen wo die Formel reinkommt so Formatieren das es t für Tonne anzeigt und zwei Stellen hinter dem Komma anzeigt. Was ich probiert habe bis jetzt formatiert mir die Gesamte Spalte.
Danke im voraus und einen guten Rutsch Euch allen. Hier mal der Code an dem mich versucht habe. 

Sub ZeileF_Fortschreiben()
Dim i As Long
Columns("F").NumberFormat = "General"
For i = 25 To Cells(Rows.Count, "A").End(xlUp).Row Step 24
Cells(i, "F").Formula = "=SUM(R[-23]C[3]:R[-1]C[3])"
Next i
Ich danke im voraus.
LG Robert
Anzeige
AW: Der Punkt geht an...
30.12.2021 18:03:54
GerdL
Hallo Robert!
Cells(i, "F").NumberFormat = "#,##0.00 t"
Gruß Gerd
AW: Der Punkt geht an...
30.12.2021 19:11:18
Robert
Hallo Gerd!
Ich danke Dir.
LG Robert
AW: Formel in Algorithmus per VBA schreiben
30.12.2021 23:24:37
Daniel
Hi
ich finde es jetzt seltsam, dass der erste Block 23 Zeilen mit Formeln umfasst und die folgenden dann nur noch 22. Ist das wirklich so oder hast du dich verzählt?
Wenn alle Blöcke die gleiche Anzahl Zeilen hätten, wirds etwas einfacher.
aber hier mal für deinen Fall

Range("I2").Resize(23).FormulaR1C1 = "=RC4*RC7/10^6"
Range("I3").Resize(24).Copy Range("I3").Resize(24*54)
für sinnvoller würde ich es aber fnden, die Formel durchgängig in alle Zellen zu schreiben und die Lücke per Formel zu erzeugen, hierfür wäre allerdings eine durchgängig gleiche Blockgröße erforderlich.
Dann würde das als Einzeiler laufen:

Range("I2:I1296").FormulaR1C1 = "=IF(Mod(Row()-2,24)>21,"";RC4-RC7/10^6)
Gruß Daniel
Anzeige

304 Forumthreads zu ähnlichen Themen

Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Anzeige
Formel mit Text Datum und wert in Zeitreihe
Karel

Hallo Forum,
Habe ein bezahl blatt mit betragen in eine Spalte wird eingetragen als Text Bezahlt oder Offen wie kann ich an hand von Datum und Text (bezalt oder Offen) diese wert in eine Zeitreihe darstellen ab Zelle i11 und i12
Tabelle1

 BCDEFGHIJKLMN11   &...
19.11.2008 20:37:00
Thread-ID: 1026214
5 Beiträge
Formel wenn dann zellvergleich Text
Karel

Hallo Forum,
wie kann ich Zellwert C mit Zellwert E vergleichen ausgaben in Zelle A
wenn C und D Leer dsnn A auch Leer
Tabelle1

 ABCDE2Ausgabe Textwert Textwert3Offen Bezahlt Offen4Bezahlt Bezahlt Bezahlt5Offen Bezahlt  6Of...
28.11.2008 20:04:52
Thread-ID: 1028782
5 Beiträge
Anzeige
Text in einer Spalte formatieren
Martin

Hallo
in einer Zelle habe ich sehr viel Text hineingeschrieben. Möchte für den Ausdruck die Spalte aber nur ca. 5 cm breit formatieren. Der Text soll dann automatisch Linie für Linie untereinander zu stehen kommen. Keine Ahnung wie das möglich ist. Wenn ich die Spalte schmaler formatiere bl...
04.01.2009 10:57:00
Thread-ID: 1036687
5 Beiträge
Formel WENN DANN
Hirtenanna

Hallo Gemeinde,
wende mich heute mit einem Formelproblem an Euch, wo ich bisher keine Lösung für ergoogeln bzw. im Forum finden konnte. Weiß nur, das es sich wohl um eine WENN DANN Formel handeln muß.
Also:
Ich habe in den Zellen V4 R4 N4 J4 F4 Z4 Zeiten stehen, welche als Summe in...
25.01.2009 12:12:00
Thread-ID: 1043536
11 Beiträge
Formel mit festem Textinhalt
Felix

Hallo Zusammen
Könnte mir jemand diese Formel überprüfen warum sie nicht geht!
C8 = ist der Name der Gesellschaft
C9 = ist das Datum z.b. 31.Dezember 2008
="Abschlussmemo für die "&TEXT(Stammdaten!$C$8;"per")&TEXT(Stammdaten!$C$9;"TT. MMMMMMMM JJJJ")
Für Eure hilfe...
30.01.2009 21:22:49
Thread-ID: 1045527
3 Beiträge
Text in Zelle abfragen und formatieren
Bernd

Hallo Zusammen,
folgendes Problem: In einer Tabelle mit mehreren Spalten beinhaltet eine Spalte einen Text. Wie kann ich aus dieser Spalte eine bestimmte Zeichenfolge auslesen/erkennen und die betreffende Zelle dann farblich formatieren? Zum Beispiel beinhaltet eine Zelle den Text ABCDEF. W...
19.02.2009 15:19:00
Thread-ID: 1052173
5 Beiträge
Formel: Wenn bestimmte Werte aus Spalte 1, dann...
andi

Hallo zusammen.
Folgendes Problem stellt sich mir: Ich habe eine Onlineumfrage gemacht. Nun habe ich in einer Spalte Werte zwischen 1 und 6. Diese stehen für verschiedene Studienrichtungen (Psychologie,Bio,Medizin,etc). In der Spalte neben dran habe ich die Werte, wenn in der Umfrage auf d...
21.03.2009 16:54:54
Thread-ID: 1062504
2 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
2
9
4
4
2
4
10
2
4
1
5
2
2
5
1
1
1
6
8
2
10
1
6
5
6