Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1300to1304
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
Inhaltsverzeichnis

Formel zu WorksheetFunction

Formel zu WorksheetFunction
20.02.2013 16:21:43
Maximilian
Ich habe zwei Matrixformeln:
{=MAX(($A$1:$D$20="test")*ZEILE(1:20))}
{=MAX(($A$1:$D$20="test")*MTRANS(ZEILE(1:4)))}
Diese möchte ich als Application.Worksheetfunction nach VBA übersetzen:
Application.WorksheetFunction.Max(Application.WorksheetFunction.Match(Range("A1:D20"), "test") * _
Rows("1:20"))
Application.WorksheetFunction.Max(Application.WorksheetFunction.Match(Range("A1:D20"), "test") * _
_
Application.WorksheetFunction.Transpose(Rows("1:20")))
weiß jemand, wo der Fehler ist...? :-/

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

Betreff
Datum
Anwender
Anzeige
AW: Formel zu WorksheetFunction
20.02.2013 16:38:59
Rudi
Hallo,
Matrixformeln kannst du nicht per Worksheetfunction nutzen.
Einfach den Bereich in ein Array einlesen und mit 2 Schleifen durch.
Sub aaaa()
Dim vArr, i As Long, j As Long
Const sMatch As String = "test"
vArr = Range("A1:D20")
For i = 1 To UBound(vArr)
For j = 1 To UBound(vArr, 2)
If LCase(vArr(i, j)) = LCase(sMatch) Then
MsgBox "Zeile: " & i & vbLf & "Spalte: " & j
End If
Next
Next
End Sub

Gruß
Rudi

AW: Formel zu WorksheetFunction
20.02.2013 16:39:58
Maximilian
Danke ;) aber genau dieses schleifenzeug wollte ich ja damit vermeiden.... aber wenns nicht geht, dann eben mit schleifen.

Anzeige
Alternativ die Formel in ...
20.02.2013 17:48:04
Luc:-?
…US-Notation evaluieren, Max;
variantVariable = Evaluate("usFmlText")
Gruß Luc :-?

alternativ .Find-Methode
20.02.2013 17:20:54
Rudi
Hallo
Sub aaaa()
Dim rng As Range
Const sMatch As String = "test"
If Cells(1, 1) = sMatch Then
Set rng = Cells(1, 1)
Else
Set rng = Cells.Find(sMatch, Cells(1, 1), xlValues, xlWhole)
End If
If Not rng Is Nothing Then
MsgBox rng.Row & vbLf & rng.Column
End If
End Sub

Gruß
Rudi

AW: alternativ .Find-Methode
20.02.2013 17:24:55
Maximilian
Cool, an sowas hab ich gedacht! Danke!!

96 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige