Das Archiv des Excel-Forums

Datum Textbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

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

Bild

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

Bild

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

Bild

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

Bild

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

Bild

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


 Bild

Excel-Beispiele zum Thema "Datum Textbox"

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