Datum suchen in Spalte A , Wert B anzeigen
05.03.2015 11:49:41
Sven
Ich hab ein Kalendersteuerelemet erstellt , und möchte per Initialisierung der UF ODER klicken im Kalender das Datum in Spalte A ermitteln und zb. meine Notiz zu diesem Datum in Spalte B auslesen und in Txtbox3 schreiben lassen. Hab es soweit hinbekommen das er das Datum in Spalte A sucht , aber bekomm es irgendwie nicht hin das er mir dann den Wert von B in meine Textbox schreibt. Komme da nicht weiter :( Könnte mir jemand helfen ?
Private Sub UserForm_Initialize()
Calendar1 = Date
TextBox1 = Calendar1
Dim zelles As Range
Dim bereichs As Range
Dim datum As Date
datum = TextBox1.Text
Set bereichs = Sheets("Tabelle1").Range("A2:A6000")
Set zelles = bereichs.Find(what:=datum, lookat:=xlWhole, LookIn:=xlValues)
If zelles Is Nothing Then
Else
Me.TextBox3.Text = Range("B:B").Value = zelles ( https://www.herber.de/bbs/user/96175.xlsm