Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1188to1192
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
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel zu VBA Worksheetfunction umwandeln

Formel zu VBA Worksheetfunction umwandeln
Peter.H
Hallo Excel Forum
ich bekomme die Formel
=VERWEIS(2;1/(A:A"");ZEILE(A:A))
nicht in die Form
a = Application.WorksheetFunktion.Lookup(...
umgeschrieben.
Würde mir da bitte jemand helfen...
Peter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Formel zu VBA Worksheetfunction umwandeln
28.11.2010 17:44:41
Jürgen
Hallo Peter,
schreibe einfach die Formel in eine Zelle, sagen wir B10, und wechsle in den VBA-Editor. Lass Dir das Direktfenster anzeigen (STRG+G) und gib dort
?Range("B10").formula
ein und löse mit ENTER aus - und schon wird Dir die Formel so ausgegeben, dass Du Sie übertragen kannst.
Gruß, Jürgen
AW: Formel zu VBA Worksheetfunction umwandeln
28.11.2010 18:19:23
Peter.H
Hallo Jürgen
danke für deine Hilfe...
Die Macroaufzeichnung sieht wie folgt aus:
Sub Makro4()
ActiveCell.FormulaR1C1 = "=LOOKUP(2,1/(C[-1]""""),ROW(C[-1]))"
End Sub
Nun die Übertragung an WorksheetFunktion:
Sub Test()
Dim a%
With Application.WorksheetFunction
a = .LOOKUP(2,1/(C[-1]""""),ROW(C[-1]))
End With
End Sub
Das funktioniert leider nicht "Syntax Fehler beim kompilieren"
Hat jemand noch andere Vorschläge...
Gruß
Peter
Anzeige
So kann das auch nicht gehen,...
28.11.2010 19:44:42
Luc:-?
…Peter,
weil die Elemente des WorksheetFunction-Objekts grundsätzlich ihrer Matrix-Funktionalität verlustig gehen! Wenn du die behalten willst, musst du die Fml so wie angezeigt Evaluieren (Auswerten, a = Evaluate(…)), ansonsten musst du eine Schleife um die PgmZeile herum aufbauen, die die variablen FmlTeile flfd austauscht, denn du willst ja wohl offensichtl die ganze Spalte A (evtl auch noch andere Spalten?) abarbeiten. Was bewirkt die OriginalFml… Mit =VERWEIS(2;1/(A:A<>"");ZEILE(A:A)) erhältst du einen #DIV/0!-Fehlerwert, wenn die Zelle leer ist, das 3.Argument, dessen Wert schließlich zurückgegeben wird, wenn das 1.Argument im Feld des 2. gefunden wird, zählt jede Zeile hoch. Das sieht mir doch sehr nach einer tricky ZellFml ala excelformeln.de aus, mit der du feststellen willst, in welcher Zeile eine 2 auftaucht. Dafür gibt's in VBA geeignetere Methoden als .LookUp(…) in einer For- oder Do-Schleife. Denn das wird in der Schleife nicht fktionieren, wenn Fehler (und ggf vorhandene Texte!) nicht abgefangen wdn!
Gruß Luc :-?
Anzeige
AW: So kann das auch nicht gehen,...
29.11.2010 08:51:54
Peter.H
Hallo Luc
danke für Deine ausführlichen Informationen.
Ja die Formel stammt aus dem Excel Zauberbuch und gibt die letzte benutzte Zelle wieder (auch wenn Leerzellen im Range vorhanden sind).
Der Versuch mit Evaluate ist mit meinen Kenntnissen gescheitert:
Sub Makro1()
Dim a
a = Application.Evaluate("=LOOKUP(2,1/(C[1]""""),ROW(C[1]))")
End Sub

'Ergebnis: a = Fehler 2015
Auch der Aufbau der Matrixfunktionalität war bis jetzt noch nicht mit Erfolg gekrönt:
Sub Test()
Dim a
Dim myRng As Range: Set myRng = Worksheets(1).Range("A:A")
With Application.WorksheetFunction
a = ".LOOKUP(2,1/" & myRng & """""),ROW(" & myRng & "))"
End With
End Sub

'Ergebnis: Laufzeitfehler 13 Typen unverträglich
Hast du lust mir da noch weiter auf die Sprünge zu helfen...
Gruß
Peter
Anzeige
Demnächst in diesem Theater... Gruß owT
30.11.2010 02:54:35
Luc:-?
:-?
So, mal sehen,...
01.12.2010 19:15:38
Luc:-?
…Peter…
1. Evaluate:
a = Evaluate("lookup(2,1/(A:A<>""""),row(A:A))") mag die Methode evtl lieber. Wenn nicht, kannst du diesen Weg ausschließen.
2. Pgm-Schleife → anders lässt sich eine „Matrix­fktionalität“ kaum nachgestalten. Aber das ist hier bei Zweck der Fml und deinen Bedingungen kaum nötig…
Versuch's doch mal mit Set myRng = Worksheets(1).UsedRange.Columns(1): a = myRng.Cells.Count
Das sollte die letzte benutzte Zelle=Zeile in Spalte A liefern, wenn nicht in einer anderen Spalte darüber hinaus Werte vorhanden sind oder waren (XL merkt sich das! → Abhilfe: ausreichend anschließende und vermeintl leere Zeilen physisch löschen).
Wenn andere Spalten mehr Zeilen haben, kannst du das auch mit myRng.Rows(myRng.Rows.Count + 1).End(xlUp).Row lösen. Bspp dafür finden sich im Herber-Archiv zuhauf…
Gruß Luc :-?
Anzeige

300 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