Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textboxen Datumsumwandlung

Textboxen Datumsumwandlung
05.05.2013 20:09:39
robert
Guten Abend,
ich habe in einer Datei ca 30 Userformen, die einzeln geöffnet werden.
In jeder dieser UF sind ca. 3-8 Textfelder, davon sind mindesten 2 Datumsfelder.
Der Wunsch ist, das Datum 8 stellig ( 14032013 ) einzugeben, aber als Datum
14.03.2013 in Tabelle einzutragen.
Muss ich da jede UF und die jew.Textfelder ansprechen, oder geht das mit einer
UDF oder ähnliches( Klasse ? ).
Um Hilfestellung bittet
robert

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textboxen Datumsumwandlung
05.05.2013 21:40:55
Gerd
Hallo Robert,
egal wie, aus jeder Textbox muss der Text gezogen werden.
Ohne Ansruch auf Perfektion:
Sub test()
Dim X As String
X = "14032013"
X = Datum(X)
If IsDate(X) Then
Tabelle1.cells(1, 2) = CDate(X)
Else: MsgBox (X)
End If
End Sub

Public Function Datum(X As String) As Variant
Dim i As Integer
If Len(X)  8 Then Datum = "Falsche Länge": Exit Function
For i = 8 To 1 Step -1
If Not IsNumeric(Mid$(X, i, 1)) Then Exit For
Next
If CBool(i) Then Datum = "Nicht nur Ziffern": Exit Function
X = Left$(X, 2) & "." & Mid$(X, 3, 2) & "." & Right$(X, 4)
If IsDate(X) Then Datum = X: Exit Function
Datum = "Keine Datumsumwandlung möglich"
End Function
Gruß Gerd

Anzeige
AW: Textboxen Datumsumwandlung
06.05.2013 06:32:37
robert
Hallo Gerd,
naja, wird zwar mühsam, aber der Code funktioniert !
Danke und Gruß
robert

Code abgewandelt
06.05.2013 08:13:21
Erich
Hi Robert,
hier eine Modifikation von Gerds Code: 

Option Explicit
Function Txt8ZuDate(strS As String)
Dim ii As Integer, strT As String
If Len(strS)  8 Then
Txt8ZuDate = "Falsche Länge"
Else
For ii = 1 To 8
If Not IsNumeric(Mid$(strS, ii, 1)) Then _
Txt8ZuDate = "Nicht nur Ziffern": Exit Function
Next ii
strT = Format(CLng(strS), "0-00-0000")
If IsDate(strT) Then
Txt8ZuDate = CDate(strT)
Else
Txt8ZuDate = "Keine Datumsumwandlung möglich"
End If
End If
End Function
Im Code der UF kannst du das direkt verwenden, z. B.:
Cells(x, y) = Txt8ZuDate(TextBox1)
Außerdem kannst du die Fkt. auch als UDF in Tabellen nutzen. Hioer ein paar Beispiele:
 AB
1TextDatum
20101190002.01.1900
32802190029.02.1900
429021900Keine Datumsumwandlung möglich
50103190001.03.1900
6  
70506197805.06.1978
81212201212.12.2012
93112299931.12.2999
1012345678Keine Datumsumwandlung möglich
110506e978Nicht nur Ziffern
120506978Falsche Länge

Formeln der Tabelle
ZelleFormel
B2=Txt8ZuDate(A2)

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
Danke Erich, funkt ;-) owT
06.05.2013 20:39:01
robert

299 Forumthreads zu ähnlichen Themen

Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Anzeige
Wie kann ich 3 Textboxen wert addieren
Kurt

Guten Abend,
wie kann ich 3 Werte der Textboxen addieren ?
Habe es so versucht:
Label69.Caption = TextBox13.Value + TextBox14.Value + TextBox15.Value
mfg Kurt
(nicht Orginal)
14.08.2008 20:54:00
Thread-ID: 1001982
4 Beiträge
Färben von Textboxen in Userform
Textboxen

Guten Morgen!
Ich habe in einer UserForm 22 TextBoxen in denen Zahlen stehen.
Wenn eine positive Zahl in den Textboxen steht, dann soll der Hintergrund (Backcolor) grün gefärbt werden.
Wenn eine negative Zahl in den Textboxen steht dann soll der Hintergrund hellrot gefärbt werden.<...
21.08.2008 07:38:00
Thread-ID: 1003354
4 Beiträge
Anzeige
TextBoxen formatieren
Frank

Hallo liebes Forum!
Wieder einmal brauche ich Rat! In einem Tabellenblatt befinden sich mehrere Textboxen, welche über die Eigenschaft LinkedCell sich ihren Inhalt holen. Nun möchte ich das wenn der darin befindliche Wert negativ ist, der Inhalt rot geschrieben wird. Wie bekomme ich zwische...
28.10.2008 20:37:00
Thread-ID: 1020080
10 Beiträge
TextBoxen werden nicht geleert
Josef

Hallo!
Ich habe folgenden Code in einer Userform
Private Sub ListBox1_Click() On Error Resume Next If ListBox1.List(ListBox1.ListIndex, 7) = "EV-N / FV-XPV" Then Call Text_EF Call Text_EF2 Call Text_EF3 TextBox40.Text = "" Else If ListBox1.List(ListBox1.ListIndex, 7) = "J" Then TextBo...
29.10.2008 14:19:00
Thread-ID: 1020283
3 Beiträge
Textboxen aus Tabelle füllen
Sebastian

Guten Abend zusammen,
ich sitze wieder mal vor einem Problem und hoffe auf eure Hilfe. Ich habe eine Tabelle mit Kundennamen, die sich von Monat zu Monat verändert. Ich möchte nun (wenn möglich) eine Userform mit einer variablen Anzahl von Textfeldern auf "Knopfdruck" generieren, wobei die...
03.11.2008 18:25:00
Thread-ID: 1021413
6 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
Rechnen mit TextBoxen
Frank

Hallo Zusammen!!!
Einen schönen guten Abend und schon vorab Danke für bestimmt zahlreiche Hilfe!
Ich benutze folgenden Code:
TextBox4.Value = TextBox2.value - TextBox3.Value
Diese Codezeile wird mittels Klick auf eine Schaltfläche ausgelöst. Funzt mit normalen Zahlen auch Super,...
14.11.2008 19:27:33
Thread-ID: 1024690
7 Beiträge

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
7
3
3
1
9
2
5
2
6
5
2
11
4
4
1
20
12
2
5
15
2
3
14
1