Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1416to1420
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
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel-Formel in VBA

Excel-Formel in VBA
21.03.2015 20:40:29
JM
Guten Abend zusammen,
Ich versuche schon seit einiger Zeit folgende Excel-Formel, welche auch im Tabellenblatt super funktioniert über VBA laufen zu lassen:
=VERGLEICH(MIN(INDEX(B:B;$I$54;1):INDEX(B:B;$I$60;1));B747:B1661;0)+$I$54-1
Leider bekomme ich dabei immer wieder Fehlermeldungen, ich vermute, die Funktionen Index und Vergleichen heißen in VBA anders und sind so nicht existent in VBA...
vllt wisst ihr was :-)

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

Betreff
Datum
Anwender
Anzeige
AW: Excel-Formel in VBA
22.03.2015 08:19:09
Matze
Hallo JM,
du hast doch bestimmt schon mit dem Makrorecorder gearbeitet, zeichne es doch mal auf, dann wirst du sehen was dort passiert. Ansonsten kapiere ich nicht wie du eine Fehlermeldung erhältst, ich sehe noch nicht mal dein Versuch.
Vergleich = Match
Du kannst dich über FormulaLocal mal schlau machen.
Viel Spaß beim lesen und lernen
Gruß Matze

AW: Excel-Formel in VBA
22.03.2015 11:56:07
JM
Hallo Matze,
ich habe versucht diese Formel über den Befehl ?Range("J67").Formula (Zelle J67 ist die Zelle wo oben genannte Formel drin steht) im Direktbereich der VBA Umgebung als VBA-Code auszuwerten und bekam folgende Formel:
=MATCH(MIN(INDEX(B:B,$I$54,1):INDEX(B:B,$I$60,1)),B747:B1661,0)+$I$54-1
Wenn ich aber folgende Prozedur durchlaufen lasse, dann bekomme ich einen Fehler.
Liegt wahrscheinlich mit unter daran, dass vba die excel formeln index und vergleich nicht kennt...aber ich hätte gedacht, dass vba es halt auf die eigene art und weise genauso hinbekommt.
Public Function Startmakro() As String
Call Bereichskorrektur
Startmakro = "Gestartet."
End Function
Sub Bereichskorrektur()
Dim Var1 As Integer
Dim Var2 As Integer
Var1 = Range("I54")
Var2 = Range("I60")
Range("J79").Formula =MATCH(MIN(INDEX(B:B,$I$54,1):INDEX(B:B,$I$60,1)),B747:B1661,0)+$I$54-1
Range("J77").Formula = Var1
Range("J78").Formula = Var2
End Sub Der Code macht bisher wenig Sinn, jedoch möchte ich gerne Versuchen in die 3. letzte Zeile (die lange)die beiden Variablen als Suchmatrixbereich zu definieren, um ihn dynamisch gestalten zu können.
Ich hoffe Ihr könnt mir folgen.
Vielen Dank schon einmal für Eure Mühe.
Gruß JM

Anzeige
AW:Formel in VBA
22.03.2015 12:29:06
hary
Moin 
.Formula = "=MATCH(MIN(INDEX(B:B,$I$54,1):INDEX(B:B,$I$60,1)),B747:B1661,0)+$I$54-1"

gruss hary

AW: AW:Formel in VBA
22.03.2015 13:27:44
JM
Hallo hary,
ich bin begeistert, es funktioniert :-) vielen Dank für die Hilfestellung!
Der letzte Schritt wäre an der Stelle B747:B1661 anstelle der Zahlen 747 und 1661 die beiden Variablen Var1 und Var2 einzusetzen.
Mein Vorschlag wäre folgender gewesen:
Range("J79").Formula = "=MATCH(MIN(INDEX(B:B,$I$54,1):INDEX(B:B,$I$60,1)),B&Var1: B&Var2,0)+$I$54-1"
Mein Vorschlag funktioniert leider nicht.
Anscheinend müssen "B" und "Var1" bzw. "B" und "Var2" anders verknüpft werden. Und ja ich habe vorher gegoogelt, nur leider nichts passendes gefunden :/
Gruß JM

Anzeige
AW: AW:Formel in VBA
22.03.2015 13:49:09
Matze
Hallo JM,
vergebe dem Bereich B747:J1661 einen Namen zb Suchmatrix
.Formula = "=MATCH(MIN(INDEX(B:B,$I$54,1):INDEX(B:B,$I$60,1)),Suchmatrix,0)+$I$54-1"
Änderst du dann im Blatt den Bereich zB durch eine Zeilenerweiterung oder Spaltenerweiterung
wird dies automatisch angepasst.
Gruß Matze

AW: AW:Formel in VBA
22.03.2015 14:07:14
JM
Hallo Matze,
das wäre eine gute Idee, nur müsste ich dann wissen, ob ich Suchmatrix als Variant oder was anderes vorher definieren müsste.
Weiterhin besteht ja das Problem, dass ich dann bei der Definition für Suchmatrix die Verkettung von B und Var1 bzw. B und Var2 hinterlegen müsste.
Damit bin ich wieder beim selben Problem.
Mit folgender Formel für die Suchmatrix bekomme ich folgenden Laufzeitfehler '13':
Suchmatrix = Range("B2476", "B3952")
Das ist mein veränderter code:
Sub Bereichskorrektur()
Dim Var1 As Integer
Dim Var2 As Integer
Dim Suchmatrix As Integer
Var1 = Range("I54")
Var2 = Range("I60")
Suchmatrix = "B2476: B3952"
Range("J79").Formula = "=MATCH(MIN(INDEX(B:B,$I$54,1):INDEX(B:B,$I$60,1)),Suchmatrix,0)+$I$54- _
1"
Range("J77").Formula = "B" & Var1
Range("J78").Formula = Var2
End Sub
Gruß JM

Anzeige
AW: AW:Variable in Formel
22.03.2015 13:58:20
hary
Moin
Dann musst du den Formelstring unterbrechen und die Variablen einfuegen. 
"=MATCH(MIN(INDEX(B:B,$I$54,1):INDEX(B:B,$I$60,1)),B" & Var1 & ": B" & Var2 & ",0)+$I$54-1"

Besser wie matze beschrieb. Sonst musst du immer im Code anpassen.
gruss hary

AW: AW:Variable in Formel
22.03.2015 14:10:10
JM
Hallo hary,
das ist doch super! genauso hab ich es mir vorgestellt.
Es gibt kein Problem mit einer Anpassung, da die Variablen in jedem Tabellenblatt neu hinterlegt sind und es automatisiert ablaufen kann.
Perfekt.
danke

314 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 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
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
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
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 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
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
11
4
3
2
8
4
8
2
12
4
2
6
1
3
14
5
5
8
4
8
4
6
8
4