VLookup VBA mit Datum aus CB
17.01.2018 22:32:26
Carsten
ich habe eine Tabelle, in der in Spalte A Datumsangaben im Format TTT TT.MM.JJJJ stehen:
Mo 01.01.2018
Di 02.01.2018
Mi 03.01.2018
Do 04.01.2018
Fr 05.01.2018
Sa 06.01.2018
So 07.01.2018
Mo 08.01.2018
Di 09.01.2018
Mi 10.01.2018
Do 11.01.2018
Nun habe ich eine Combobox in einer UF erstellt, die den Inhalt dieser Spalte darstellt. Anhand des gewählten Datums sollen die Werte der Zeile ausgegeben werden (In Textboxen). (Die der anderen Spalten)
Hier mein Code:
Private Sub ComboBox1_Change()
With Me
'---Arbeitszeit---
.AZ_A = Application.WorksheetFunction.VLookup(CDate(Me.ComboBox1), Sheet1.Range("LOOKUP"), _
1, 0)
.AZ_E = Application.WorksheetFunction.VLookup(CDate(Me.ComboBox1), Sheet1.Range("LOOKUP"), _
7, 0)
'---Frühstück---
.FP_A = Application.WorksheetFunction.VLookup(CDate(Me.ComboBox1), Sheet1.Range("LOOKUP"), _
3, 0)
.FP_E = Application.WorksheetFunction.VLookup(CDate(Me.ComboBox1), Sheet1.Range("LOOKUP"), _
4, 0)
'---Mittag---
.MP_A = Application.WorksheetFunction.VLookup(CDate(Me.ComboBox1), Sheet1.Range("LOOKUP"), _
5, 0)
.MP_E = Application.WorksheetFunction.VLookup(CDate(Me.ComboBox1), Sheet1.Range("LOOKUP"), _
6, 0)
End With
End Sub
Dieser klappt leider nicht, kommt immer : Laufzeitfehler 424 Objekt erforderlich. :(Wenn ich mit der Maus dann über CDATE gehe steht da ja auch dann die Zahl des Tages (43103 etc.)
Vlt findet er deswegen die Zeile nicht?
Oder gibts nen anderen Weg die Zeile zu finden, wo das gewählte Datum steht?
Vielen dank schonmal. :)