Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datumsbereich in Spalte suchen und Wert ausgeben

Datumsbereich in Spalte suchen und Wert ausgeben
08.02.2008 10:44:03
Waldemar
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsbereich in Spalte suchen und Wert ausgeben
08.02.2008 12:52:00
fcs
Hallo Waldemar,
etwa so. ggf. muss du noch prüfen, ob in dem Textfeld eine Zahl steht. Evtl. macht es auch Sinn, die Funktion CDbl statt Val zu verwenden, um den Textboxinhalt in eine Zahl zu konvertieren.
Gruß
Franz

Private Sub Personalbelebung_WTS_Eingabe_Click()
Dim a As Date
Dim b As Date
Dim WTS_MA As Byte
Dim i As Date
Dim wks As Worksheet
Dim Zeile As Long
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
Set wks = Worksheets("WTS Belegung")
With wks
For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(Zeile, 1) >= a And .Cells(Zeile, 1) 


Anzeige

328 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige