Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
nur datum in einer textbox zulassen
zurück: Eingefügte Grafiken durch verknüpfte Grafiken ersetzen weiter: msoButtonUp auf verschachtelte Symbole anwenden Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
laolamia
scriptanpasser :)


Verfasst am:
12. Sep 2006, 16:19
Rufname:

nur datum in einer textbox zulassen - nur datum in einer textbox zulassen

Nach oben
       Version: Office 2k (2000)

hallo!

ueber eine textfeld einer userform moechte ich ein datum in ein schreiben kopieren. ihr schreiben vom: <inhalt der textbox>

das funktioniert soweit auch ganz gut, kann ich die eingabe in der textbox steuern?
es darf also nur die form eingegen werden DD.MM.YYYY ?

word 2000

danke
marco
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
12. Sep 2006, 18:55
Rufname:
Wohnort: Leipzig


AW: nur datum in einer textbox zulassen - AW: nur datum in einer textbox zulassen

Nach oben
       Version: Office 2k (2000)

Hallo Marco,

so brauchst Du die User nicht zu gängeln. Teste einfach in den Inhalt der Textbox und forme ihn in ein Datum um, falls möglich, etwa so:
Code:
Sub Test2()

    Dim Temp As String
    Dim RDatum As String
   
    Temp = InputBox(Prompt:="Bitte das Datum eingeben!")
   
    If Not IsDate(Trim$(Temp)) Then
        MsgBox "Sie haben kein Datum eingeben!"
    Else
        RDatum = Format(Trim$(Temp), "dd.mm.yyyy")
    End If
   
    MsgBox RDatum
   
End Sub

Ich habe hier nur im Bsp. die Inputbox genommen. Du liest natürlich die Eingabe in das Textfeld aus und testest diese. Im Else-Fall kann der Wert ins Textfeld zurückgeschrieben werden - und natürlich auch ins Dokument übernommen werden.

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
laolamia
scriptanpasser :)


Verfasst am:
13. Sep 2006, 11:17
Rufname:

AW: nur datum in einer textbox zulassen - AW: nur datum in einer textbox zulassen

Nach oben
       Version: Office 2k (2000)

hallo!

das funktioniert, danke!

ich versuche leider immer beim zusammenbasteln der userform den richtigen "klick" zu finden Embarassed

sorry, aber als werdender vater ist mein hirn momentan etwas lahm Wink

ich hab das jetzt so geaendert das beim "OK" erst das datumsformat geprueft wird, da ich aber 2 felder prüfen moechte hab ich mich etwas verlaufen.

in meinem beispiel kommt (bei falscheingabe in feld2) zwar die msgbox, das falsche wir trotzdem geschrieben.

Code:
Sub datum_pruefen()
    Dim Temp As String
    Dim Temp1 As String
    Dim RDatum As String
   
    Temp = txt_schreiben_am
    Temp1 = txt_schreiben_vom
    If Not IsDate(Trim$(Temp)) Then
        MsgBox "Sie haben kein Datum eingeben!"
    If Not IsDate(Trim$(Temp1)) Then
        MsgBox "Sie haben kein Datum eingeben!"
    Else
        schreibe_inText
        usr_adresse_eingang.Hide
        usr_anrede.Show
        RDatum = Format(Trim$(Temp), "d.mm.yyyy")
    End If
    End If
End Sub


eigentlich sollte das 1. feld geprueft werden, dann das 2., wenn alles ok ist sollte "schreibe in text" und "usr_anrede" ausgefuehrt werden.
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
13. Sep 2006, 22:37
Rufname:
Wohnort: Leipzig

AW: nur datum in einer textbox zulassen - AW: nur datum in einer textbox zulassen

Nach oben
       Version: Office 2k (2000)

Hallo Laolamia,

Du hast die If-Schleifen nicht richtig hintereinander geschachtelt. Eine If-Schleife geht immer
Code:
If (Bedingung) ... Then
   Führe Handlungen aus
Else
   im anderen Fall führe andere Handlungen aus
End If (Ende der Schleife)

Man kann sie auch verschachteln, jedoch muss jede Schleife Anfang und Ende haben. Das ist in Deinem Bsp. schon nicht der Fall. If folgt zweimal hintereinander, erst danach kommt Else.
Ich habe mal versucht, die Geschichte nachzubauen. In meiner Userform sind zwei Textfelder ("TextBoxSchreibenAm" und "TextBox2SchreibenVom") sowie zwei CommandButtons ("CommandButton1" = OK, "CommandButton2" = Abbrechen). Dann kann die Struktur so aussehen:
Code:
Option Explicit
Private Sub CommandButton1_Click()
    'wenn der OK-Knopf bedient wird, bei uns CommandButton1

    If Endkontrolle Then
        Call schreibe_inText
        usr_adresse_eingang.Hide
        usr_anrede.Show
        Me.Hide
    End If

End Sub
Private Function Endkontrolle() As Boolean
    'Diese Funktion checkt die einzelnen Felder,
    'nur wenn alles glatt geht, wird OK zurückgesendet,
    'erst dann kann ins Dokument geschrieben werden
   
    Endkontrolle = False
   
    If Not IsDate(Me.TextBoxSchreibenAm.Text) Then
        Call Meldung(TextBoxSchreibenAm)
    Else
        Me.TextBoxSchreibenAm.Text = Format$(Me.TextBoxSchreibenAm.Text, "dd.mm.yyyy")
        If Not IsDate(Me.TextBox2SchreibenVom.Text) Then
            Call Meldung(TextBox2SchreibenVom)
        Else
            Me.TextBox2SchreibenVom.Text = Format$(Me.TextBox2SchreibenVom.Text, "dd.mm.yyyy")
            Endkontrolle = True
        End If
    End If

End Function
Private Sub Meldung(ByRef TF As TextBox)
    'generiert die Fehlermeldung und setzt den Fokus wieder ins falsche Textfeld

    MsgBox Prompt:="Sie haben kein Datum eingegeben." & Chr(13) & _
            "Bitte versuchen Sie es erneut!"
    TF.SetFocus
   
End Sub
Private Sub CommandButton2_Click()
    'Bedient den Abbrechen-Knopf CommandButton2

    Me.Hide

End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
laolamia
scriptanpasser :)


Verfasst am:
14. Sep 2006, 15:29
Rufname:


AW: nur datum in einer textbox zulassen - AW: nur datum in einer textbox zulassen

Nach oben
       Version: Office 2k (2000)

Hallo!

vielen dank, hab dein beispiel durchgeschaut und dann meine fehler erkannt Smile

das mit dem setfocus und msgbox promt funktionier noch nicht, aber ich will ja keinen verwoehnen.

nun laeuft es.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Datum wird verändert 2 pottkieker 94 31. Jan 2014, 14:35
Gast Datum wird verändert
Keine neuen Beiträge Word Serienbriefe: Seriendruckfeld DATUM wird in Word falsch dargestellt 9 Elli 38068 27. Jan 2014, 19:02
tommy999 Seriendruckfeld DATUM wird in Word falsch dargestellt
Keine neuen Beiträge Word Serienbriefe: Datum wird im Seriendruck nicht richtig übernommen 1 SWartfisH 579 31. Okt 2013, 15:50
Flipper7 Datum wird im Seriendruck nicht richtig übernommen
Keine neuen Beiträge Word Serienbriefe: Problem mit DOCVARIABLE und Datum 3 KleinerKnispel 201 15. Okt 2013, 09:14
KleinerKnispel Problem mit DOCVARIABLE und Datum
Keine neuen Beiträge Word Serienbriefe: Und zum 100. mal: Datum aus Excel in Serienbrief 5 Br@thering 2017 08. Okt 2013, 10:22
Ralf ST Und zum 100. mal: Datum aus Excel in Serienbrief
Keine neuen Beiträge Word Serienbriefe: Datum im Serienbrief nach erneutem öffnen 2 welle 1199 22. Aug 2013, 13:40
Gastritis Datum im Serienbrief nach erneutem öffnen
Keine neuen Beiträge Word Serienbriefe: Serienbrief: Datum wird als Zahl dargestellt 7 pheinze 6383 19. Jun 2013, 13:58
Gast Serienbrief: Datum wird als Zahl dargestellt
Keine neuen Beiträge Word Serienbriefe: Zeitraum als Seriendruckfeld (Datum von bis) 0 Rudi 63 585 29. Mai 2012, 12:21
Rudi 63 Zeitraum als Seriendruckfeld (Datum von bis)
Keine neuen Beiträge Word Serienbriefe: Falsches Datum in Word-Serienbrief aus Access-Abfrage 6 Serena 12739 24. Feb 2012, 21:00
Gast Falsches Datum in Word-Serienbrief aus Access-Abfrage
Keine neuen Beiträge Word Serienbriefe: Datum vs. Nummer 1 cu 585 18. Aug 2011, 00:21
charlybrown Datum vs. Nummer
Keine neuen Beiträge Word Serienbriefe: Datum im Serienbrief auch als Text MERGEFIELD ? 2 koko2011 2201 10. März 2011, 09:23
koko2011 Datum im Serienbrief auch als Text MERGEFIELD ?
Keine neuen Beiträge Word Serienbriefe: Datum wird nicht übernommen 1 Jessi75 988 04. März 2010, 12:07
mojos Datum wird nicht übernommen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme