Exceltabelle durchsuchen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Dksksm.

    Exceltabelle durchsuchen

    Neu

    Hallo zusammen
    ich glaube ich bekomme noch Vögel ^^

    Ich habe eine Exceltabelle in welcher ich diverse Datum's berechne (auch z.B. Ostern, aber noch vieles mehr)
    Diese Datums sind in der Exceltabelle mit einer Formel erzeugt
    Z.B. in A15 steht: =
    WENN(E15<>"";DATUM($B$1;$E15;$D15);"")
    In A15 steht dann 01.05.2020

    Nun durchsuche ich die Excel mit einem Code

    VB.NET-Quellcode

    1. Dim Excel As Object = CreateObject("Excel.Application")
    2. Dim wb = Excel.Workbooks.Open("E:\Kalender.xlsx")
    3. Dim ws = wb.Sheets(1)
    4. Dim Today
    5. Dim gefunden
    6. Dim Temporar1
    7. Today = DirectCast(GroupBox2.Controls("DateTimePicker1"), DateTimePicker).Value
    8. Temporar1 = Format(Today, "dd.MM.yyyy")
    9. Dim Cell = ws.Columns(1).Find(Temporar1)
    10. If Cell Is Nothing Then gefunden = "nicht gefunden" Else gefunden = Cell.Offset(0, 1).Value
    11. MsgBox(gefunden)


    Ich weiss nicht warum dies suche immer fehl schlägt. Wenn ich in A15 das Datum Fix eingebe (also 01.05.2020) dann wird es gefunden.
    Sobald ich dies aber als Formel drinnen habe (auch 01.05.2020) wird nichts gefunden :( ?(

    Gruss

    Harry