Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1672to1676
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
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel nach Vba umwandeln

Formel nach Vba umwandeln
10.02.2019 00:06:57
Auer
Hallo zusammen Ich bin komplett neu und habe im Internet eine Formel gefunden die ich gerne in vba hätte. Gibt es eine Möglichkeit diese umzuwandeln? Vielen Dank für eure Antworten und Hilfe.
Hier noch die Formel
=WENNFEHLER(INDEX($A$2:$B$147;AGGREGAT(15;6;(ZEILE($A$2:$B$147)-1)/(--SUCHEN($O$1;$A$2:$B$147)>0); ZEILE()-1);1);"")

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel nach Vba umwandeln
10.02.2019 07:54:07
Luschi
Hallo Auer,
das ist ganz einfach:
- Formel in Zelle schreiben
- Zelle markieren
- Vba-Editor aufrufen mit Tastenkombination: Alt+F11
- im Vba-Editor-Menü: Ansicht-Direktfester (oder Strg+G)
- im Direktbereich folgende Vba-Zeile eingeben: ?activecell.Formula und Enter drücken
- Ergebnis: 

=IFERROR(INDEX($A$2:$B$147,AGGREGATE(15,6,(ROW($A$2:$B$147)-1)/(--SEARCH($O$1,$A$2:$B$147)>0), ROW() -1),1),"")
- dieses Ergebnis in eine Stringvariable schreiben: 


Dim sFormel As String

sFormel = "=IFERROR(INDEX($A$2:$B$147,AGGREGATE(15,6,(ROW($A$2:$B$147)-1)/(--SEARCH($O$1,$A$2:$B$147)>0), ROW()-1),1),"""")"
- zu beachten:
  Anführungsstriche (") im Inneren der Formel sind zu verdoppeln!
- Range("E5").Formula = sFormel
Gruß von Luschi
aus klein-Paris
PS: das Ganze geht auch mit: ?activecell.formulalocal
Anzeige
AW: nur zur Formel ...
10.02.2019 08:59:17
neopa
Hallo Luschi,
... ich hätte diese wie sicherlich folgt definiert:
=WENNFEHLER(INDEX($A:$B;AGGREGAT(15;6;ZEILE($A$2:$B$147)/(SUCHEN($O$1;$A$2:$B$147)>0);ZEILE()-1);1); "")

Wenn Du Lust & Zeit hast, kannst Du mal testen, ob und wenn ja sich Geschwindigkeitsnachteile in der Auswertung dadurch ergeben, dass ich im 1. Argument von INDEX() den Bereich nicht beschränke.
Wenn, dann würde ich bevorzugen: 
=WENNFEHLER(INDEX($A$1:$B1$47;AGGREGAT(15;6;ZEILE($A$2:$B$147)/(SUCHEN($O$1;$A$2:$B$147)>0);ZEILE() -1);1);"")
Gruß Werner
.. , - ...
Anzeige
AW: nur zur Formel ...
10.02.2019 09:15:29
Luschi
Guten Morgen Werner,
habe es mal in meine ToDo-Liste aufgenommen, aber z.Z. sitze ich wieder mal an meinem Lieblings-C#-Problem und will da mal bei einigen Finessen zu Potte kommen.
Gruß von Luschi
aus klein-Paris
PS: ist bei WD alles OK?
AW: zu Deiner Nachfrage ...
11.02.2019 13:08:40
neopa
Hallo Luschi,
... neue Änderungen sind mir angekündigt, aber momentan noch ohne konkrete Angaben.
Gruß Werner
.. , - ...
AW: nur zur Formel ...
10.02.2019 14:52:49
Marco
Hallo Zusammen
Es ist schön dass es so hilfreiche Personen gibt, vielen Herzlichen Dank
Ich werde es ausprobieren, sobald ich wieder zu Hause bin.
Vielen Dank Luschi, Werner, werde mich melden
Gruss Marco
Anzeige

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

Hallo Excelgemeinde,
ich bekomme meine Formel einfach nicht in den Code implementiert.
als Variable habe ich x als Zähler drin, der bei jedem Durchlauf neu festgelegt wird.
ich versuche mal darzustellen, wie ich es benötige:
In Tabelle2 A1 soll folgende Formel per VBA stehen:
24.09.2008 07:58:30
Thread-ID: 1011907
3 Beiträge
Anzeige
Formel in VBA
balta

Hallo,
habe ein Problem mit meinem Code
Sub Testi() Dim lngZeile As Long For lngZeile = 2 To 100 Worksheets("Daten").Cells(lngZeile, 6).Formula = "=WENN($M2" & Chr(34) & ";ANZAHL2($M$ _ 2:$M2);"")" Next lngZeile End Sub
das Code soll Indexzahl ausgeben, also wenn Zelle M...
28.09.2008 00:15:02
Thread-ID: 1012872
5 Beiträge
Formel in VBA
steffen

Hallo,
ich komme mal wieder nicht mit meiner Formel in VBA zurecht.
Activesheet.Range("A4").Formula = "=INDIRECT(""Tabelle1!B"" &" & x + 1 & ")"; Formel gehört zu einem anderen Tabellenblatt
Das Problem besteht im Namen "Tabelle1". Da dieser Blattname steht's anders laut...
06.10.2008 11:46:00
Thread-ID: 1014389
9 Beiträge
Formel, Index oder Vergleich
Kurt

Guten Abend Zusammen,
ich habe ein kleines Problem, ich möchte in der Zelle "O10" eine Zahl eingeben
aus den Zellen mit gelben Hintergrund.
Dann soll der Preis gefunden werden und reingesetzt, rechts daneben.
Ich habe mal ein Muster beigefügt:
https://www.herber.de/bbs/user/...
06.10.2008 18:26:46
Thread-ID: 1014519
14 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Formel einfügen VBA
sonja

Hallo,
ich habe wieder einmal eine Frage und hoffe Ihr könnt mir wie immer weiterhelfen.
Folgende Formel wird per VBA in Spalte F2 eingefügt.
ThisWorkbook.Sheets("Tabelle1").Range("F2").FormulaR1C1 = "=IF(RC1,YEAR(TODAY())-RC[-1],"""")"
Nun möchte ich das diese Formel automatisc...
05.11.2008 11:31:01
Thread-ID: 1021811
5 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
4
3
2
8
4
8
13
12
4
2
5
6
1
5
8
8
4
3
4
6
24
1
9
10