Hallo alle zusammen,
ich versuche ein Makro zu programmieren doch irgendwie komme ich nicht weiter.
Ich habe ein User form in das man zwei Datumsangaben (Zeitraum) eingeben muss Von: …. Bis:…. .
Danach wird in dem User form eine Checkbox ausgewählt und anschließend in einem Textfeld eine Zahl geschrieben.
In einer Excel – Tabelle (Name: WTS Belegung) sind die Datumsangaben in Spalte A fortlaufend sortiert. Den eingegeben Zeitraum soll er in der Tabelle (WTS Belegung) suchen und in Spalte B zu den gefunden Datumseingaben die Zahl aus der TextBox schreiben. Ich wäre für Eure Hilfe sehr dankbar.
So weit bin ich gekommen:
Private Sub Personalbelebung_WTS_Eingabe_Click()
Dim a As Date
Dim b As Date
Dim WTS_MA As Byte
Dim i As Date
a = IsDate(Personalbelegung_WTS.von_Datum.Text)
b = IsDate(Personalbelegung_WTS.bis_Datum.Text)
'Wenn in von_Datum kein Datum steht, Prozedur verlassen
If a = False Then
MsgBox "Bitte Von Datum eingeben!"
Exit Sub
End If
If b = False Then
MsgBox "Bitte Bis Datum eingeben!"
Exit Sub
End If
'Wenn in WTS_MA kein Mitarbeiter steht, Prozedur verlassen
If Personalbelegung_WTS.WTS_MA = "" Then
MsgBox "Bitte MA eingeben!"
Exit Sub
End If