Office: Funktion "Vergleich" als VBA Code

Hallo Forumsmitglieder,

ich möchte die Funktion Vergleich als VBA Code implementieren. Dazu habe ich folgenden einfachen Code erstellt:

Sub Vergleich()

Dim x As Integer
Dim SM As Range
Dim SK As Date

SK = Worksheets("Absatzhistorie").Cells(1, 1)
SM = Worksheets("Absatzhistorie").Range("P4:V4")

With Application.WorksheetFunction

x = .Match(SK, SM, 0)

End With

MsgBox x

End Sub

Beim debuggen erscheint folgenden Meldung: "Objektvariable oder with- blockvariable nicht festgelegt"

Könntet ihr mir bitte weiterhelfen.

FG,
Julian

:)

 

Hallo Julian,

Code:

 

Hallo Hajo_Zi;

funktioniert super! Danke schön!

FG,
Julian

 

Hallo Julian,

dann ist ja alles gut. Fehlerbehandlung bekommst Du ja eingebaut.

 

Hallo!
Nur ergänzend:
Warum diese Variablenorgie, Julian?
Dies hier reicht völlig:
Code:

Gruß Ralf

 

Hallo Ralf,

ich bevorzuge nachfolgende Version, bei der "Nicht gefunden" abgefangen wird;
das soll ja manchmal vorkommen.
Code:

Gruß
Aloys

 

Hi Aloys!
Sehr interessant!
Vor allem, weil Application.Match die Fehlernummer in den Variant übernimmt, während WorksheetFunction.Match in den berühmten VBA-Fehler läuft.

Gut zu wissen!
Im übrigen ist Application.Match nicht dokumentiert …

Edit:
Linkfundstelle:
http://www.bettersolutions.com/vba/v...T622611112.htm

Gruß Ralf

 

Hallo Ralf,

siehe auch bei Microsoft

und lass Dich dabei nicht von der Überschrift abschrecken.

Gruß
Aloys

 

\@Aloys:
Wenn selbst MS nicht weiß, dass sie da zwei Pferde im Stall haben und in einem Buch nachschlagen müssen (Holy Macro! Books) …
(denn in der VBA-Hilfe steht es ja nicht und Intellisense wird auch nicht unterstützt)
;-)

Gruß Ralf