![]() |
Betrifft: Datum Textbox
von: highman4
Liebe Excelfreunde,
Ich habe ein Userform, wo ich mittels des Kalenders eine Start Textbox und eine End Textbox mit einem Datum füttere. Das Format in der Textbox ist "26-Nov-2008". Ich habe in einem Sheet einen Kalender
Spalte A Januar Zellformatierung " TT.MM" also "Mi.01".............. bis Spalte W Dezember.
Gibt es eine Möglichkeit daß ich den Datumsbereich aus der Textbox im Kalender finden kann, oder kann ich mit dem Datum aus der Textbox nicht weiterarbeiten?????
Vielen Dank und viele Grüße
Marco
![]() |
Betrifft: AW: Datum Textbox
von: Erich G.
Geschrieben am: 13.07.2008 07:13:13
Hallo Marco,
da würde ich gar nicht mit Find arbeiten,
sondern Zeile und Spalte der Zelle direkt ausrechnen:
Sub atst()
Dim strT As String, datD As Date, rngF As Range
strT = "26-Dez-2008"
datD = CDate(strT)
Set rngF = Cells(Day(datD) + 1, 2 * Month(datD) - 1)
MsgBox rngF.Address
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
![]() |
Betrifft: AW: Datum Textbox
von: highman4
![]() |
Betrifft: AW: Datum Textbox
von: Herby
Geschrieben am: 13.07.2008 10:23:38
Hallo Marko,
ich hab mal Erichs Code in deine Tabelle eingepasst:
https://www.herber.de/bbs/user/53777.xls
Ich hoffe es passt.
Viele Grüße
Herby
![]() |
Betrifft: AW: Datum Textbox
von: highman4
![]() |
Betrifft: AW: Datum Textbox
von: Uduuh
Geschrieben am: 13.07.2008 10:25:21
Hallo,
mal als Anregung:
Private Sub CommandButton3_Click()
If Not CDate(TextBox1) < CDate(TextBox2) Then
MsgBox "Achtung _ Das Startdatum muß vor dem Enddatum sein!!!!!", vbExclamation, "data _
incorrect"
Exit Sub
End If
Me.Hide
atst
'Sheets(1).Range("A1") = CDate(TextBox1)
'Sheets(1).Range("A2") = CDate(TextBox2)
End Sub
Sub atst()
Dim strT As String, datD As Date, rngF As Range
strT = UserForm1.TextBox1
datD = CDate(strT)
Set rngF = Cells(Day(datD) + 3, 2 * Month(datD))
Application.Goto rngF
End Sub
Warum 2 UFs mit Kalender? 1 reicht. Weiter solltest du den Kalender mit
Private Sub UserForm_Activate()
Me.Calendarcontrol = Date
End Sub
beim Start initialisieren.
Gruß aus’m Pott
Udo
![]() |