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
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
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
- Dim Excel As Object = CreateObject("Excel.Application")
- Dim wb = Excel.Workbooks.Open("E:\Kalender.xlsx")
- Dim ws = wb.Sheets(1)
- Dim Today
- Dim gefunden
- Dim Temporar1
- Today = DirectCast(GroupBox2.Controls("DateTimePicker1"), DateTimePicker).Value
- Temporar1 = Format(Today, "dd.MM.yyyy")
- Dim Cell = ws.Columns(1).Find(Temporar1)
- If Cell Is Nothing Then gefunden = "nicht gefunden" Else gefunden = Cell.Offset(0, 1).Value
- 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