mit dem folgenden Makro will ich im aktiven Tabellenblatt aus den Zahlen 1 bis 24, die untereinander im Zellbereich B2:B25 stehen, die Position der Zahl 12 auslesen und in Zelle A2 schreiben.
Leider erscheint bei mir nach mehreren Debugging-Versuchen und Internetrecherchen noch immer die Fehlermeldung "Laufzeitfehler '1004': Die Match-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden." Für Support wäre ich extrem dankbar.
Option Explicit
Sub Test()
Dim SuperWert As Double
SuperWert = WorksheetFunction.Match(12, "B2:B25", 0)
Range("A2").Value = SuperWert
End Sub
Viele Grüße
Michel