varEnde = Application.Match(Application.EoMonth(Date, 0), Rows(10), 0)
Das funktioniert auch richtig gut!
Jetzt geht es darum, die Spalte der Zelle in Rows(10) zu ermitteln, in der "Start" (=Datum in Kurzform) steht.
Der folgende Codeabschnitt zeigt mehrere Versuche das Ganze umzusetzen:
Dim b as Integer,wse as workbook, StartD as Range, StartSpalte as variant, Start as date
Start = wsE.Cells(b, 8).Value
Ende = wsE.Cells(b, 9).Value
'StartSpalte finden
Set StartD = Worksheets("Chart").Range("H10:BZL10").Find(Start) 'DateSerial(Year(Start), _
Month(Start), Day(Start)))
StartSpalte = StartD.Column
StartSpalte = Application.Match(CDate(Start), Rows(10), 0)
StartSpalte = Application.Find(CDate(Start), Rows(10))
StartSpalte = wsc.Cells.Find(what:=Start, After:=Rows(10))
StartSpalte = Worksheets("Chart").Rows(10).Find(Start)