Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
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
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsformat in Combobox

Forumthread: Datumsformat in Combobox

Datumsformat in Combobox
Rosi
Hallo Forum,
irgendwie komme ich mal wieder nicht weiter.
Habe 2 Comboboxen:5 und 6) und beide so formatiert:
ComboBox5 = Format(ComboBox5, "dddd, dd/mm/")
Das Format wird korrekt angezeigt in der Box aber beim Vergleich der Werte beider Boxen bekomme ich stets den Laufzeitfehler 13 "Typen unverträglich".
Beim Testen mit "IsDate" sehe ich dass das die Comboboxen nicht als Datum erkannt werden.
Was kann ich tun?
Gruß Rosi
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datumsformat in Combobox
13.02.2011 18:19:30
Oberschlumpf
Hi Rosi
Wie der Befehl ComboBox.Text schon vermuten lässt, wird der Inhalt als Text gespeichert/ausgelesen.
Deine funktionierende Formatierung "dddd, dd/mm/" bezieht sich nur auf die Anzeige der CB-Werte, aber nicht auf die Speicherart.
Deswegen versuch mal den Vergleich mit CDate.
z Bsp
If CDate(Combobox5.text) = CDate(Combobox6.text) Then
MsgBox "Beide Datumseinträge sind gleich"
Else
MsgBox "Beide Datumseinträge sind nicht gleich"
End If
Und auch deine Zeile
ComboBox5 = Format(ComboBox5, "dddd, dd/mm/")
könntest du optimieren.
Irgdwo in deinem Code muss ja so was stehen wie:
ComboBox5 = Datumswert
Schreib doch gleich an dieser Stelle:
ComboBox5 = Format(Datumswert, "dddd, dd/mm/")
Hilfts?
Ciao
Thorsten
Anzeige
AW: Datumsformat in Combobox
13.02.2011 18:51:54
Rosi
Hallo Thorsten,
kriege es nicht hin,hatte einen ähnlichen Code verwendet....
Hier meine Eingaben:
Private Sub ComboBox5_Change()
ComboBox5.Text = Date
ComboBox5 = Format(ComboBox5, "dddd, dd/mm/")
End Sub


Private Sub CommandButton3_Click()
If Not IsDate(ComboBox6.Text) Then MsgBox "nein" ' Test ob Format erkannt wird
If CDate(ComboBox5)
Anzeige
AW: Datumsformat in Combobox
13.02.2011 19:43:20
Rosi
Sorry,
hat noch jemand eine Idee?
Gruß Rosi
AW: Datumsformat in Combobox
13.02.2011 20:15:59
Gerd
Hallo Rosi,
mit deiner Umwandlung mit dem Format-Befehl hast Du keinen gültigen Datumswert in der Combobox mehr. Den Eintrag musst Du wieder ergänzen.
Sub Reparieren()
Dim X, Y
X = Format("01.03.10", "dddd, dd/mm/")
MsgBox X
Y = Split(X)(1) & Year(Date)
MsgBox Y
MsgBox IsDate(Y)
End Sub
Gruß Gerd
Anzeige
AW: Datumsformat in Combobox
13.02.2011 20:29:15
dan
Hallo Rosi,
ich habe dies probiert:
Option Explicit
Private Sub Compare_Click()
ComboBox1 = Format(ComboBox1, "dddd, dd/mm/")
ComboBox2 = Format(ComboBox2, "dddd, dd/mm/")
MsgBox VBA.TypeName(ComboBox1) & ", " & VBA.TypeName(ComboBox2)
MsgBox VBA.TypeName(ComboBox1.Value) & ", " & VBA.TypeName(ComboBox2.Value)
MsgBox VBA.IsDate(ComboBox1.Value) & ", " & VBA.IsDate(ComboBox2.Value)
If (ComboBox1.Value = ComboBox2.Value) Then
MsgBox "Values of combo1 and combo2 are equal..."
Else
MsgBox "Values of combo1 and combo2 are not equal..."
End If
End Sub


Private Sub UserForm_Initialize()
ComboBox1 = Date
ComboBox2 = Date
End Sub
Wo bekommst Du die Fehlermeldung?
Gruss dan, cz.
Anzeige
AW: Datumsformat in Combobox
14.02.2011 09:47:04
Rosi
Hallo Dan,Hallo Gerd,
eure Codes sind in sich schlüssig,jedoch habe ich nun mit ihnen- zu meinen Eingaben - gespielt und probiert,finde kein Ergebnis.
Der Fehler erscheint unter der letzten Eingabe meines hier aufgezeigten Codes.
Gruß Rosi
AW: Datumsformat in Combobox
14.02.2011 19:50:30
dan
Hallo Rosi,
falls Du noch Hilfe brauchst, dann poste den kompletten Code hier. Nur so kann man sagen was genau los ist.
Gruss dan, cz.
Anzeige
AW: Datumsformat in Combobox
15.02.2011 07:00:19
Rosi
Hallo Dan,
habe es hingekriegt.
Statt "Combobox_Change" habe ich "Combobox_Click" verwendet.Jetzt funktioniert es tadellos.
Danke euch für eure Bemühungen.
Gruß Rosi
;

Forumthreads zu verwandten Themen

Datumsformat in Userform
martin

Hallo,
ich habe eine ganz einfache Userform mit zwei Textboxen über die möchte ich jeweils ein Datum in
2 vorgegebene Zellen in der Tabelle "Start" eingeben. Das klappt auch gut.
ABER leider erkennt Excel nach dem Eintrag die beiden Werte nicht als Datum - wie muss ich was formatier...
18.08.2008 15:02:00
Thread-ID: 1002618
5 Beiträge
Format in Textbox
Richard


Hallo,
folgendes Beispiel zur einsicht. Im Grunde genommen, ist es vom Aussehen gesehen eigentlich genauso, wie ich es mir vorstelle.
Die Sache hat bestimmt mehrere, aber für mich nur einen sehr entscheidenden Haken. Ich kann die Backspace-Taste nicht nutzten! - Klar wie denn au...
20.10.2008 10:10:49
Thread-ID: 1017588
3 Beiträge
Währungsformat in Zellen Vol.2
Henner

Hi,
leider bekomme ich keine Antwort auf mein Post:
https://www.herber.de/forum/archiv/1016to1020/t1018098.htm
Ich gehe davon aus, dass ich das Problem einfach nicht so gut beschreiben kann. Habe das ganze Szenario jetzt nochmal ganz vereinfacht nachgebaut, hoffe ich komme damit nu...
21.10.2008 21:58:00
Thread-ID: 1018178
5 Beiträge
Format individuell vergeben
Markus

Hallo zusammen,
ich lese aus einer Hostanwendung Daten aus, ohne diese zu formatieren. Bislang hatte ich in der einzulesenden Zelle das Format "Währung" selbst hinterlegt.
Nun kommen aber plötzlich auch richtige Zahlen, die natürlich nicht als Währung dargestellt werden sollen.
Man...
10.11.2008 08:32:00
Thread-ID: 1023120
3 Beiträge
Zellenformat in Formeln
Larass

Hallo,
ich möchte in einer Zelle links von einem Ergebnis einen string anzeigen, jedoch nur wenn auch ein ergebnis in der Zelle steht.
Konkret habe ich z.B. als Ergebnis eine Spannung Sigma,st
Sobald ich eine Formel eingebe wird aber die Formatierung zerschossen, sprich das Sigma wi...
16.12.2008 16:42:12
Thread-ID: 1033346
6 Beiträge
Anzeige
Format in Combobox
Kat


Hi,
in einer Combobox habe ich eine Auswahl von Stunden.
Nun hätte ich aber gerne die formatierung der Box so,
das in der Box 12:45 Std angezeigt werden.
Hier die bisherige Formatierung im Stundenformat
ComboBox4 = Format(ComboBox4, "hh:mm")
Wie muß nun diese ergänz...
24.01.2009 23:34:54
Thread-ID: 1043486
3 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
Zahlenformat in abhängigkeit von referenzzelle
referenzzelle

Hallo,
ich habe in einem dropdownmenü 3 währungen
kann ich in abhängigkeit der gewählten währung das zahlenformat in einer anderen zelle bestimmen?
also, wenn z.B. im dropdown EUR gewählt ist, dann soll das zahlenformat €0 sein
bei GBP soll es £0 sein usw.
Jemand eine Idee?<...
16.03.2009 17:04:28
Thread-ID: 1060836
6 Beiträge
Anzeige
Datumsformat in der Maske bei Aufruf über VBA
Wusino

Hallo miteinander,
da meine Suche in ettlichen Büchern und Foren sehr frustrierend war, wende ich mich nun doch an Euch.
Ich habe ein kleines Skript, das beim Öffnen des Dokuments auf das Datenblatt Uebersicht springt und beim Wählen eines anderen Datenblatts die Maske anzeigt. Das Prob...
18.04.2009 09:42:39
Thread-ID: 1069435
2 Beiträge
Format in Formel
Jonathan

Hallo zusammen!
Ich habe eine ganz kurze Frage:
Wie kann ich das Format des Wertes in A1 in folgender Formel angeben:
=VERKETTEN("Zahlung in Höhe von ";A1;" erledigt")
Ich hatte es mir so gedacht:
=VERKETTEN("Zahlung in Höhe von ";FORMAT(A1;#.##0,00);" erledigt")
aber da...
18.05.2009 10:00:37
Thread-ID: 1075797
3 Beiträge
Datumsformat in UserForm
Carsten

Hallo Excel-Experten,
das nachfolgende UserForm erzeugt ausgehend von einem angebbaren Anfangsmonat, einem angebbaren Anfangsjahr und einer angebbaren Dauer einen Zeitplan, allerdings erfolgen die ausgegeben Daten im deutschen Format (Januar, Februar, ...). Meine Frage hierzu: Besteht die M...
22.05.2009 15:45:03
Thread-ID: 1076734
10 Beiträge
Textformat in Zahl umwandeln
Josef

Hallo!
Ich habe in einer Spalte textformatierte Zahlen mit führenden Nullen stehen.
Wie kann ich ohne Hilfsspalte (z.B. =A2*1) die führenden Nullenden in der Spalte wegbringen, damit eine Zahlenformatierung vorhanden ist?
z.B. 00013,80 = 13,80
Danke
Josef
09.07.2009 11:34:12
Thread-ID: 1087382
6 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

Datumsformat in Combobox

Schritt-für-Schritt-Anleitung

  1. Initialisiere die Comboboxen: Stelle sicher, dass die Comboboxen beim Laden des Formulars ein Datum enthalten. Das kannst Du mit folgendem Code erreichen:

    Private Sub UserForm_Initialize()
   ComboBox5 = Date
   ComboBox6 = Date
End Sub

  2. Setze das Datumsformat: Verwende die Format-Funktion, um das Datum in der gewünschten Form anzuzeigen. Achte darauf, dass das Datum korrekt in der Combobox gespeichert wird:

    Private Sub ComboBox5_Change()
   ComboBox5.Text = Date
   ComboBox5 = Format(Date, "dddd, dd/mm/")
End Sub

  3. Vergleiche die Werte: Um die Werte der beiden Comboboxen zu vergleichen, verwende CDate, um sicherzustellen, dass die Werte als Datum interpretiert werden:

    Private Sub CommandButton3_Click()
   If CDate(ComboBox5.Text) = CDate(ComboBox6.Text) Then
       MsgBox "Beide Datumseinträge sind gleich"
   Else
       MsgBox "Beide Datumseinträge sind nicht gleich"
   End If
End Sub

Häufige Fehler und Lösungen

  • Laufzeitfehler 13 "Typen unverträglich": Dieser Fehler tritt auf, weil die Werte in den Comboboxen als Text gespeichert werden. Verwende CDate, um die Werte in Datum zu konvertieren, bevor Du sie vergleichst.

  • Datumsformat wird nicht erkannt: Stelle sicher, dass Du die richtige Formatierung verwendest. Die richtige Syntax für die Formatierung ist entscheidend.

  • Fehlende Datumswerte: Wenn Du das Format anwendest, ohne es mit einem gültigen Datumswert zu kombinieren, wird der Wert ungültig. Achte darauf, dass Du beim Setzen des Wertes in die Combobox immer einen gültigen Datumswert hinterlegst.

Alternative Methoden

  1. Verwendung von IsDate: Du kannst die IsDate-Funktion nutzen, um zu überprüfen, ob der Inhalt der Combobox als Datum erkannt wird:

    If Not IsDate(ComboBox5.Text) Then
   MsgBox "Das Datum wird nicht erkannt!"
End If

  2. Verwendung von Val: Eine weitere Möglichkeit besteht darin, den Wert der Combobox mit der Val-Funktion zu konvertieren, um sicherzustellen, dass es sich um eine Zahl handelt, bevor Du mit dem Vergleich fortfährst.

Praktische Beispiele

Hier sind einige Beispiele, die Dir helfen, die Funktionsweise besser zu verstehen:

  • Beispiel zur Initialisierung:

    Private Sub UserForm_Initialize()
   ComboBox1 = Date
   ComboBox2 = Date
End Sub

  • Beispiel für den Vergleich der Daten:

    Private Sub Compare_Click()
   If CDate(ComboBox1.Text) = CDate(ComboBox2.Text) Then
       MsgBox "Die Daten sind gleich."
   Else
       MsgBox "Die Daten sind unterschiedlich."
   End If
End Sub

Tipps für Profis

  • Verwende Debug.Print: Bei der Fehlersuche kannst Du Debug.Print nutzen, um die Werte der Comboboxen in der unmittelbaren Fensteransicht zu überprüfen.

  • Vermeide globale Variablen: Halte Deinen Code sauber, indem Du lokale Variablen verwendest, um die Übersichtlichkeit zu erhöhen.

  • Verwende error handling: Implementiere Fehlerbehandlungsroutinen in Deinem Code, um unerwartete Fehler zu vermeiden und den Code robuster zu gestalten.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass ein Datum korrekt eingegeben wird?
Verwende die IsDate-Funktion, um vor der Verarbeitung zu überprüfen, ob das Datum gültig ist.

2. Warum erhalte ich einen Laufzeitfehler beim Vergleich?
Dieser Fehler tritt auf, wenn die Werte der Comboboxen als Text gespeichert werden. Stelle sicher, dass Du die Werte mit CDate konvertierst, bevor Du den Vergleich vornimmst.

3. Was ist der Unterschied zwischen Text und Value in einer Combobox?
Text gibt den aktuell angezeigten Text zurück, während Value den tatsächlichen Wert der Auswahl zurückgibt. In vielen Fällen ist es besser, Value zu verwenden, um sicherzustellen, dass Du den gespeicherten Wert erhältst.

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