Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Datum Textbox

Betrifft: Datum Textbox von: highman4
Geschrieben am: 13.07.2008 06:13:11

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
Geschrieben am: 13.07.2008 07:46:07

Hallo Erich,
zunächst vielen Dank für Deine Hilfe, aber ich kann Deinen Code nicht richtig verstehen.
Ich habe die Datei mal hochgeladen (Ist aber erst halb fertig), vieleicht habe ich mich auch etwas schwach ausgedrückt.
Vieleicht kannst Du ja noch mal drüber gucken
Ziel ist es, daß ich den Datumsbereich der Textbox finde(im Kalender) um dann eine Mitarbeiterkombination für die Rufbereitschaft rechts daneben eintragen zu können.
https://www.herber.de/bbs/user/53774.zip
Vielen Dank für die Hilfe und viele Grüsse
Marco


  

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
Geschrieben am: 13.07.2008 10:40:11

Hallo Herby hallo Udo,

vielen vielen Dank für Eure Hilfe, jetzt kann ich weiter.

Ein schönen Sonntag und nochmals Dank

Marco


  

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



 

Beiträge aus den Excel-Beispielen zum Thema "Datum Textbox"