|
Also ich habe es jetzt mal so aufgeschrieben, wie du es gesagt hast.
Sub Historische_Kurse_ziehen()
'Variablen definieren
Dim Datum As Date
Dim Datumsliste As Variant
Dim NeuerKurs As Double
'Arbeitsblatt aktivieren und der Variable "Datum" das aktuelle Datum zuweisen
Worksheets("Historischer Kursverlauf Pos.").Activate
Datum = ActiveSheet.Range("C1").Value
'Das aktuelle Datum in der Datumsliste suchen
Datumsliste = Application.Match("C1", "B11:B100", 0)
IsError (Datumsliste)
End Sub
Wenn ich aber auf Run drücke, tut sich nichts. Wenn ich aber nach "IsError (Datumsliste)" den Befehlt MsgBox Datumsliste schreibe, erhalte ich den Fehler "Laufzeitfehler '13': Typen unverträglich". Wenn ich dann noch mit der Maus über die Variable Datumsliste fahre, um zu gucken, welcher Wert enthalten ist, dann steht da "Datumsliste = Fehler 2015".
Ist der Fehler vllt in meiner Definition des Suchbereichs? Ich versuche als Parameter anzugeben, dass Excel in der gesamten Spalte B nach dem Suchbegriff suchen soll.
|