Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TextBox als Datumsformat wird nicht berechnet

Forumthread: TextBox als Datumsformat wird nicht berechnet

TextBox als Datumsformat wird nicht berechnet
19.12.2016 13:29:20
Andi
Hallo,
habe folgendes Problem, über eine Useform werden Verbräuche eingetragen und berechnet
In Spalte A wird ein Datum eingetragen, diese verwende ich wiederum um in der Tabelle die Monatsverbräuche zu berechenen.
Das Funktioniert nur wenn ich nachtäglich das Datum mit der Tastatur in der Zelle eingebe, ansonsten habe ich zwar das Datumsformat aber nicht eine Zahl.
Daher berechnet er mir auch nicht die Monatsverbräuche.
Währe Super wenn Ihr eine Lösung für mich hättet
Vielen Dank im vorraus!
Das ist de ganze VBA-Code von der Userform
Neuer Eintrag Schaltfläche Ereignisroutine 
Private Sub CommandButton1_Click()
Dim lZeile As Long
lZeile = Cells(Rows.Count, 1).End(xlUp).Row
lZeile = 4
Do While Trim(CStr(Tabelle2.Cells(lZeile, 1).Value))  ""
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
Tabelle2.Cells(lZeile, 1) = Format(CDate(Date), "DD.MM.YYYY")
ListBox1.AddItem CDate(Date)
ListBox1.ListIndex = ListBox1.ListCount - 1
End Sub
'Löschen Schaltfläche Ereignisroutine 
Private Sub CommandButton2_Click()
Dim lZeile As Long
lZeile = Cells(Rows.Count, 1).End(xlUp).Row
If ListBox1.ListIndex = -1 Then Exit Sub
lZeile = 4
Do While Trim(CStr(Tabelle2.Cells(lZeile, 1).Value))  ""
If ListBox1.Text = Trim(CStr(Tabelle2.Cells(lZeile, 1).Value)) Then
'Eintrag gefunden, die ganze Zeile wird nun gelöscht
Tabelle2.Rows(CStr(lZeile & ":" & lZeile)).Delete
'Die ListBox muss nun neu geladen werden!
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
End If
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
End Sub


Private Sub CommandButton3_Click()
Dim lZeile As Long
Dim i As Integer
On Error GoTo ErrExit
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlManual
.DisplayAlerts = False
End With
lZeile = Cells(Rows.Count, 1).End(xlUp).Row
If ListBox1.ListIndex > -1 And Trim(TextBox1.Text)  "" Then
lZeile = 4
With Tabelle2
Do While Trim(CDate(.Cells(lZeile, 1).Value))  ""
If ListBox1.Text = Trim(CDate(.Cells(lZeile, 1).Value)) Then
.Rows(lZeile).Font.Bold = Day(CDate(TextBox1.Text)) = 1
If IsDate(TextBox1.Text) Then .Cells(lZeile, 1).Value = Format(Trim(CDate(TextBox1.Text) _
), "DD.MM.YYYY")
.Cells(lZeile, 1).Value = Format(CDate(Trim(TextBox1.Text)), "DD.MM.YYYY")
.Cells(lZeile, 1) = Format(.Cells(lZeile, 1).Value, "DD.MM.YYYY")
If IsNumeric(TextBox2.Text) Then .Cells(lZeile, 2).Value = CDbl(TextBox2.Text)
TextBox3.Value = .Cells(lZeile, 2).Value - .Cells(lZeile - 1, 2).Value
If IsNumeric(TextBox3.Text) Then .Cells(lZeile, 3).Value = CDbl(TextBox3.Text)
.Cells(lZeile, 4).Value = Format(TextBox4.Text, "0 °C")
If IsNumeric(TextBox5.Text) Then .Cells(lZeile, 5).Value = CDbl(TextBox5.Text)
TextBox6.Value = .Cells(lZeile, 5).Value - .Cells(lZeile - 1, 5).Value
If IsNumeric(TextBox6.Text) Then .Cells(lZeile, 6).Value = CDbl(TextBox6.Text)
.Cells(lZeile, 7).Value = Format(TextBox7.Text, "0 °C")
If IsNumeric(TextBox8.Text) Then .Cells(lZeile, 8).Value = CDbl(TextBox8.Text)
TextBox9.Value = .Cells(lZeile, 8).Value - .Cells(lZeile - 1, 8).Value
If IsNumeric(TextBox9.Text) Then .Cells(lZeile, 9).Value = CDbl(TextBox9.Text)
.Cells(lZeile, 10).Value = Format(TextBox10.Text, "0 °C")
If IsNumeric(TextBox11.Text) Then .Cells(lZeile, 11).Value = CDbl(TextBox11.Text)
TextBox12.Value = .Cells(lZeile, 11).Value - .Cells(lZeile - 1, 11).Value
If IsNumeric(TextBox12.Text) Then .Cells(lZeile, 12).Value = CDbl(TextBox12.Text)
.Cells(lZeile, 13).Value = Format(TextBox13.Text, "0 °C")
If IsNumeric(TextBox14.Text) Then .Cells(lZeile, 14).Value = CDbl(TextBox14.Text)
TextBox15.Value = .Cells(lZeile, 14).Value - .Cells(lZeile - 1, 14).Value
If IsNumeric(TextBox15.Text) Then .Cells(lZeile, 15).Value = CDbl(TextBox15.Text)
.Cells(lZeile, 16).Value = Format(TextBox16.Text, "0 °C")
If IsNumeric(TextBox17.Text) Then .Cells(lZeile, 17).Value = CDbl(TextBox17.Text)
TextBox18.Value = .Cells(lZeile, 17).Value - .Cells(lZeile - 1, 17).Value
If IsNumeric(TextBox18.Text) Then .Cells(lZeile, 18).Value = CDbl(TextBox18.Text)
.Cells(lZeile, 19).Value = Format(TextBox19.Text, "0 °C")
If IsNumeric(TextBox20.Text) Then .Cells(lZeile, 20).Value = CDbl(TextBox20.Text)
If IsNumeric(TextBox21.Text) Then .Cells(lZeile, 21).Value = CDbl(TextBox21.Text)
TextBox22.Value = .Cells(lZeile, 21).Value - .Cells(lZeile - 1, 21).Value
If IsNumeric(TextBox22.Text) Then .Cells(lZeile, 22).Value = TextBox22.Text
.Cells(lZeile, 23).Value = Format(TextBox23.Text, "0 °C")
If IsNumeric(TextBox24.Text) Then .Cells(lZeile, 24).Value = CDbl(TextBox24.Text)
If ListBox1.Text  Trim(CStr(TextBox1.Text)) Then
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End If
Exit Do
End If
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
End With
End If
ErrExit:
With Err
If .Number  0 Then
MsgBox "Fehler in Prozedur:" & vbTab & "'CommandButton3_Click'" & vbLf & String(60, "_") &  _
_
vbLf & vbLf & IIf(Erl, "Fehler in Zeile:" & vbTab & Erl & vbLf & vbLf, "") & _
"Fehlernummer:" & vbTab & .Number & vbLf & vbLf & "Beschreibung:" & vbTab & _
.Description & vbLf, vbExclamation + vbMsgBoxSetForeground, _
"VBA - Fehler in Prozedur - CommandButton3_Click"
.Clear
End If
End With
On Error GoTo 0
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlAutomatic
.DisplayAlerts = True
.StatusBar = False
End With
End Sub

'Klick auf die ListBox Ereignisroutine 
Private Sub ListBox1_Click()
Dim lZeile As Long
'Wenn der Benutzer einen Namen anklickt, suchen wir
'diesen in der Tabelle2 heraus und tragen die Daten
'in die TextBoxen ein.
lZeile = Cells(Rows.Count, 1).End(xlUp).Row
'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""
TextBox20 = ""
TextBox21 = ""
TextBox22 = ""
TextBox23 = ""
TextBox24 = ""
'Nur wenn ein Eintrag selektiert/markiert ist
If ListBox1.ListIndex >= 0 Then
lZeile = 4 'Start in Zeile 4, Zeile 1 sind ja die Überschriftrn
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle2.Cells(lZeile, 1).Value))  ""
'Wenn wir den Namen aus der ListBox1 in der Tabelle2 Spalte 1
'gefunden haben, übertragen wir die anderen Spalteninhalte
'in die TextBoxen!
If ListBox1.Text = Trim(CStr(Tabelle2.Cells(lZeile, 1).Value)) Then
'TextBoxen füllen
TextBox1 = Trim(CStr(Tabelle2.Cells(lZeile, 1).Value))
TextBox2 = Tabelle2.Cells(lZeile, 2).Value
TextBox3 = Tabelle2.Cells(lZeile, 3).Value
TextBox4 = Tabelle2.Cells(lZeile, 4).Value
TextBox5 = Tabelle2.Cells(lZeile, 5).Value
TextBox6 = Tabelle2.Cells(lZeile, 6).Value
TextBox7 = Tabelle2.Cells(lZeile, 7).Value
TextBox8 = Tabelle2.Cells(lZeile, 8).Value
TextBox9 = Tabelle2.Cells(lZeile, 9).Value
TextBox10 = Tabelle2.Cells(lZeile, 10).Value
TextBox11 = Tabelle2.Cells(lZeile, 11).Value
TextBox12 = Tabelle2.Cells(lZeile, 12).Value
TextBox13 = Tabelle2.Cells(lZeile, 13).Value
TextBox14 = Tabelle2.Cells(lZeile, 14).Value
TextBox15 = Tabelle2.Cells(lZeile, 15).Value
TextBox16 = Tabelle2.Cells(lZeile, 16).Value
TextBox17 = Tabelle2.Cells(lZeile, 17).Value
TextBox18 = Tabelle2.Cells(lZeile, 18).Value
TextBox19 = Tabelle2.Cells(lZeile, 19).Value
TextBox20 = Tabelle2.Cells(lZeile, 20).Value
TextBox21 = Tabelle2.Cells(lZeile, 21).Value
TextBox22 = Tabelle2.Cells(lZeile, 22).Value
TextBox23 = Tabelle2.Cells(lZeile, 23).Value
TextBox24 = Tabelle2.Cells(lZeile, 24).Value
Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
End If
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
End If
End Sub

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox als Datumsformat wird nicht berechnet
19.12.2016 13:36:57
Daniel
Hi
das dürfe daran liegen, dass du den Textboxwert als Text in die Zelle zurückschreibst (Format) und Excel dann diesen Text nicht als Datum interpretieren kann, weil er über VBA in die Zelle geschrieben wird und daher der amerikanischen Schreibweise entsprechen muss, um als Datum erkannt zu werden.
probier das Rückschreiben mal einfach mit 
...Value = CDate(Textbox1.Text)

bzw wenn das auch nicht geht, mit 
...Value = CLng(CDate(Textbox1.Text))

der Ganzzahlwert des Datum sollte auf jeden Fall korrekt übernommen werden.
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
Felder mit Datum und Uhrzeit vergleichen?
Lauren

Hallo zusammen,
neues Thema neues Glück :)
Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
Es sind folgende Saplten vorhanden
Spalte A = Datumanfang in...
16.09.2008 16:24:00
Thread-ID: 1010159
6 Beiträge
Datumsüberschreitung und Textfelder zählen
Lemmi

Hallo Beate,
Hallo zusammen,
leider hat Diene Formel noch nicht das gewünschte Ergebnis erbracht !
Es sollen Textfelder und Datums Überschreitungen gezählt werden!
Könnten jemand oder /und Beate noch einmal schauen?
Siehe Datei!
https://www.herber.de/bbs/user/55582.xls <...
22.09.2008 21:16:00
Thread-ID: 1011578
3 Beiträge
Datum in Formel automatisch
Bernd

Hallo,
könnt ihr mir bei folgender Aufgabe weiterhelfen:
In anhängender Datei ist in Zelle C1 eine Summenformel (=SUMME(B1:B31))
Ich will nun, dass anstatt der Zelle B1 diejenige Zelle in der Spalte B berücksichtigt ist, in der in Spalte A das aktuelle Datum steht.
z.B: Datum:...
04.11.2008 09:54:00
Thread-ID: 1021481
11 Beiträge
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge
Anzeige
Formatiert Text nicht als Datum
Günter

Hallo Zusammen,
ich habe wieder ein sicherlich einfaches Problem.
In Spalte A stehen Werte wie "18.12 15:30".
Die Spalte ist als Datum formatiert.
Um nun ein komplettes Datum mit Jahr zu bekommen habe ich folgendes Makro geschrieben:
Sub JahrErgaenzen() Dim Z As Integer F...
21.12.2008 08:20:33
Thread-ID: 1034520
11 Beiträge
DATUM UND UHRZEIT
Lutz

Hallo zusammen,
hab mich für folgende Lösung entschieden :
'********************************************************************************
'*...
27.01.2009 21:18:30
Thread-ID: 1044394
4 Beiträge
DATUM UND UHRZEIT
eric

Hallo,
man kann das auch aufwendiger in der unserform mit einer abfrage machen, die idee mit dem modul funktioniert sicher.
eric
27.01.2009 21:37:18
Thread-ID: 1044401
2 Beiträge
If Abfrage bei Textbox mit Datum
Sandra

Hi Zusammen
Sorry, daß ich die Frage nochmals stelle
Wenn ich in Textbox48 nichts eingebe komme ich leider trotzdem weiter. Das soll natürlich verhindert werden.
Kann mir jemand helfen?
Private Sub TextBox47_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Trim(TextBox47) "" Th...
12.03.2009 18:58:00
Thread-ID: 1059639
6 Beiträge
Anzeige
Text und Datum in einer Zelle
lou38

Hallo
In a1 steht das Datum: 12.1.09
In a2 steht das Datum: 25.2.10
Mit der Formel in a3: ="Von "&a1&" bis "&a2
ergibt sich das Resultat: Von 39826 bis 40234 (trotz Formatierung t.m.jj)
Wie muss die Formel in a3 lauten um das gewünschte Resultat/Format
Von 12...
20.03.2009 14:44:21
Thread-ID: 1062221
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

TextBox als Datumsformat korrekt in Excel nutzen

Schritt-für-Schritt-Anleitung

  1. UserForm erstellen: Erstelle eine UserForm mit TextBoxen zur Eingabe von Daten und einer ListBox zur Anzeige vorhandener Einträge.

  2. VBA-Code für das Hinzufügen von Einträgen: Verwende den folgenden Code im CommandButton1_Click-Ereignis, um das Datum korrekt zu speichern:

    Private Sub CommandButton1_Click()
   Dim lZeile As Long
   lZeile = Cells(Rows.Count, 1).End(xlUp).Row
   lZeile = 4
   Do While Trim(CStr(Tabelle2.Cells(lZeile, 1).Value)) <> ""
       lZeile = lZeile + 1 'Nächste Zeile bearbeiten
   Loop
   Tabelle2.Cells(lZeile, 1).Value = CDate(TextBox1.Text)
   ListBox1.AddItem CDate(TextBox1.Text)
   ListBox1.ListIndex = ListBox1.ListCount - 1
End Sub

  3. Eingabeformat überprüfen: Stelle sicher, dass das Datum im TextBox1 im richtigen Format eingegeben wird (z.B. TT.MM.JJJJ).

  4. Daten in Zelle speichern: Um sicherzustellen, dass Excel das Datum richtig interpretiert, setze den Wert direkt als Datum:

    .Cells(lZeile, 1).Value = CDate(TextBox1.Text)

  5. Testen: Fülle die TextBoxen aus und teste die Funktionalität, indem du die Schaltfläche drückst, um Einträge hinzuzufügen.

Häufige Fehler und Lösungen

  • Fehler bei der Datumsinterpretation: Wenn das Datum nicht korrekt erkannt wird, könnte es daran liegen, dass der Wert als Text gespeichert wird. Verwende CDate(TextBox1.Text) oder CLng(CDate(TextBox1.Text)), um sicherzustellen, dass Excel den Wert als Datum interpretiert.

  • Formatprobleme: Achte darauf, dass das Datum im richtigen Format (z.B. TT.MM.JJJJ) eingegeben wird. Excel benötigt das Datum in der amerikanischen Schreibweise, um es korrekt zu verarbeiten.

Alternative Methoden

  • Direktes Eingeben in die Zelle: Anstelle einer UserForm kannst du Daten auch direkt in Zellen eingeben und diese dann mit einer Formel verarbeiten, um Monatsverbräuche zu berechnen.

  • Verwendung von Data Validation: Setze die Datenvalidierung für die TextBox, um sicherzustellen, dass nur gültige Datumswerte eingegeben werden.

Praktische Beispiele

  • Berechnung von Monatsverbräuchen: Angenommen, du hast eine Tabelle, in der du monatliche Verbräuche festhältst. Wenn in Spalte A das Datum steht und in Spalte B die Verbräuche, kannst du die monatlichen Summen einfach mit der SUMMEWENN-Funktion berechnen:

    =SUMMEWENN(A:A; ">=" & DATUM(JAHR(HEUTE()); MONAT(HEUTE()); 1); B:B)

  • Automatisierte Datensicherung: Füge einen Button hinzu, der den aktuellen Stand der Verbräuche in eine andere Tabelle speichert.

Tipps für Profis

  • Verwende Option Explicit: Setze diese Anweisung am Anfang deines Codes, um sicherzustellen, dass alle Variablen deklariert sind. Das hilft, Fehler zu vermeiden.

  • Fehlerbehandlung implementieren: Nutze On Error Resume Next und On Error GoTo für eine bessere Fehlerbehandlung in deinem VBA-Code.

  • Debugging: Verwende Debug.Print, um den Wert von Variablen während der Laufzeit zu überprüfen und mögliche Fehlerquellen zu identifizieren.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass das Datum im richtigen Format eingegeben wird?
Verwende die Data Validation-Funktion in Excel, um sicherzustellen, dass nur gültige Datumswerte eingegeben werden.

2. Was tun, wenn Excel das Datum nicht erkennt?
Stelle sicher, dass du den Wert mit CDate konvertierst, bevor du ihn in die Zelle schreibst. Überprüfe auch das Eingabeformat in der TextBox.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige