Feiertage in Textbox auf einer Userform ausgeben
06.02.2013 20:37:49
Thomas
Ich habe eine UserForm. Gebe ich in TextBox1 das Datum ein, so erscheint in TextBox2
die entsprechende Kalenderwoche. In der Tabelle "Feiertage" bereich A2:D15 stehen die Feiertage in den entsprechenden KW´s.
Ich möchte nun in der Userform noch eine Textbox3 anlegen. Wenn in Textbox2 z.B nun
die 14. KW ausgegeben wird, soll in Textbox3 nun "Ostermontag" stehen.
Wäre das ein Lösungsansatz, oder bin ich auf dem Holzweg?
Ich will es mit SVERWEIS lösen!
Private Sub UserForm_Initialize()
Me.TextBox3.Value = WorksheetFunction.VLookup(TextBox2.Value, Sheets("Feiertage").[A2:D15], 3, _
False)
End Sub
Gruß
Thomas
Anzeige