Datum Textbox

• Datum Textbox von highman4 vom 13.07.2008 06:13:11
• AW: Datum Textbox - von Erich G. am 13.07.2008 07:13:13
  • AW: Datum Textbox - von highman4 am 13.07.2008 07:46:07
    • AW: Datum Textbox - von Herby am 13.07.2008 10:23:38
      • AW: Datum Textbox - von highman4 am 13.07.2008 10:40:11
    • AW: Datum Textbox - von Uduuh am 13.07.2008 10:25:21

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

Excel-Beispiele zum Thema "Datum Textbox"

Text aus Textbox in Variable		Namen von TextBoxes hochzählen
Text aus Textbox in Zellen aufteilen		Nichtnumerische Eingaben in TextBox verhindern
Text aus UserForm-Textbox in Variable einlesen		Nur Buchstaben in eine UserForm-TextBox
TextBoxes- und Label-Werte in Abhängigkeit verändern		Nur AJM in TextBox akzeptieren und Anzahl zählen
Eingabelänge in TextBox begrenzen und Werte aus Liste übernehmen		Artikel aus Auswahltextbox in Sammeltextbox verschieben
Bei Doppelklick Textbox mit Text einfügen		Umwandlung eines TextBox-Wertes in eine Zahl
Wert in UserForm-TextBox eintragen und selektieren		Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen
Mit TextBox-Werten in UserForm rechnen		Werte aus UserForm-TextBox in bestimmten Formate übertragen
UserForm-TextBoxes ein- und ausblenden		Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen
Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden		Werte aus UserForm-TextBox und aus Tabelle gerundet anzeigen
In einer UserForm-TextBox die Eingabe von Sonderzeichen verhindern		Bestimmte Zeichen in einer UserForm-TextBox markieren
Textvariable in eine UserForm-TextBox eintragen		UserForm-TextBox-Werte über ScrollBar einlesen
Wert aus Zelle in Tabellenblatt-Textbox eintragen		TextBox in Abhängigkeit einer ComboBox-Auswahl füllen
Werte zweiter UserForm-TextBoxes multiplizieren		TextBox-Eingaben im Format TTMMJJ in gültiges Datum umwandeln
Text aus UserForm-TextBox drucken		Tabulator in UserForm-TextBox simulieren
UserForm-TextBox-Werte einer ListBox hinzufügen		UserForm-TextBox-Werte auf Numeric prüfen und in Tabelle eintragen
Text aus UserForm-TextBox in Tabelle suchen		Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen
Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren		Element in ListBox in Abhängigkeit einer TextBoxeingabe auswählen
Arbeitsmappe schliessen, wenn kein Eintrag in TextBox erfolgt		Plausibilistätsprüfung bei Datum&Zeit-Eingaben in UserForm-TextBox
Wert aus UserForm-TextBox suchen und Fundstelle kopieren		Tabellenblatt-TextBox-Wete in Abhängigkeit zu Drehfeld
Eingabebegrenzungen für TextBoxes		Suchbegriff abfragen und Fundzeile in UserForm-TextBoxes
Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen		Focus und Selection zwischen zwei TextBoxes wechseln
Wert aus ComboBox in TextBox, dann in Tabelle suchen		Datumreihe aus TextBox-Einträgen generieren
Eingetragenen Wert in TextBox speichern		Eigene Klasse für UserForm-TextBoxes bilden
Markierung einer Datumsreihe gem. UserForm-TextBoxes		Datum aus TextBox an erste frei Stelle eintragen