Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1800to1804
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
1800to1804
1800to1804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Datumformat

VBA Datumformat
21.12.2020 10:00:46
A-Ron
Hallo Forum,
ich habe folgendes Problem: Ich habe mir mit VBA ein Tool geschrieben, mit dem ich neue Versuchsvorschriften erstellen kann. Diese werden anschließend in eine anderes Workbook übertragen und dort gesammelt. Anschließend habe ich eine Liste erstellt, in der Alle Versuche mit Datum und Ergebnissen etc eingetragen werden.
Nun mein Problem: seit ich die Versuchsvorschriften mit VBA erstelle, funktioniert meine _ bedingte Formatierung nicht mehr. 

(Abfrage, ob das Datum > oder
Das Datum wird mit VBA als Datum formatiert, wird allerdings immer > Heute angezeigt, obwohl es eigentlich kleiner sein sollte.
Hat jemand eine Idee, woran das liegen könnte?

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Datumformat
21.12.2020 10:06:57
Hajo_Zi
Du hast Text in die Zelle geschrieben.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.

Anzeige
AW: VBA Datumformat
21.12.2020 10:07:28
RPP63
Moin!
Findest Du nicht, dass Du mindestens den relevanten Code posten solltest?
Nur mal der Spur nach: 
?"9.12.2012" < date
Falsch

Dies, weil "9.12.2012" korrekt als Text erkannt und entsprechend sortiert wird.
Gruß Ralf
AW: VBA Datumformat
21.12.2020 10:22:23
A-Ron
Hey,
danke euch beiden für die Antwort.
Hochladen ist hier leider schwer, weil die Datei sensible Rezepturen enthält und ich dafür viel löschen/bearbeiten müsste. (Sind ca 150 Tabellenblätter)
Habe aber durch euren Hinweis mein Problem lösen können.
'Speichern
Private Sub CommandButton1_Click()
Dim lngHelp As Long
Dim intZel As Integer
Dim i As Integer
intZel = 9
If OptionButton1.Value = True Then
For i = 1 To 4
ThisWorkbook.ActiveSheet.Range("C" & intZel) = Controls("TextBox" & i)
intZel = intZel + 1
ThisWorkbook.ActiveSheet.Range("C" & intZel) = Date
Next
ElseIf OptionButton2.Value = True Then
For i = 1 To 4
ThisWorkbook.ActiveSheet.Range("C" & intZel) = Controls("TextBox" & i)
intZel = intZel + 1
ThisWorkbook.ActiveSheet.Range("C" & intZel).Formula = Date + 1
Next
Else:
If IsDate(TextBox5) Then TextBox5 = CDate(TextBox5)
For i = 1 To 4
ThisWorkbook.ActiveSheet.Range("C" & intZel) = Controls("TextBox" & i)
intZel = intZel + 1
Next
End If
lngHelp = CLng(ThisWorkbook.Worksheets("Neue Vorlage").Range("C11"))
ThisWorkbook.Worksheets("Neue Vorlage").Range("C11").NumberFormat = "General"
ThisWorkbook.Worksheets("Neue Vorlage").Range("C11") = lngHelp
End Sub
Dies ist mein Code und ich habe ihn mit 

ThisWorkbook.ActiveSheet.Range("C" & intZel).Formula = DateValue(TextBox5)
erweitern und so das Problem lösen können.
Danke für eure Hilfe
Anzeige
AW: VBA Datumformat
21.12.2020 10:26:33
A-Ron
Ich hatte ursprünglich gehofft, dass folgende Zeile reichen würde: 
If IsDate(TextBox5) Then TextBox5 = CDate(TextBox5)
Danke nochmals für eure Hilfe und sorry für den Fehlenden Upload im ersten Post.
Viele Grüße,
A-Ron
AW: VBA Datumformat
21.12.2020 10:29:21
Hajo_Zi
ich hatte als Recht, das möchtest Du nich beachten. Eine TextBox enthält nun mal Text.
Ich bin dann raus, da ich nicht für den Papierkorb schreibe.
Gruß Hajo
AW: VBA Datumformat
21.12.2020 10:29:23
Werner
Hallo,
eine Textbox enthält, wie der Name schon sagt, Text. Und nur weil du den Eintrag in der Textbox entsprechend "formatierst" ändert sich daran nichts.
Hier: 
ThisWorkbook.ActiveSheet.Range("C" & intZel) = Controls("TextBox" & i)

schreibst du Text in die Zelle, der wie ein Datum aussieht. 
ThisWorkbook.ActiveSheet.Range("C" & intZel) = CDate(Controls("TextBox" & i))
Gruß Werner
Anzeige
Erklärung
21.12.2020 10:36:48
RPP63 

If IsDate(TextBox5) Then TextBox5 = CDate(TextBox5)

Damit bleibt der Inhalt der Textbox immer noch Text, der wie ein Datum aussieht.
Wenn Du diesen ohne explizite Typumwandlung einer Zelle als Wert zuweist, ändert sich nix am Ergebnis.
Userforms in Excel sind halt "Krüppel", die nichts mit echten Formularen in Access zu tun haben, wo Typzuweisungen bereits in den Formularfeldern zugewiesen werden.
Meine ganz persönliche Meinung:
Ich nutze keine Userforms mehr.
Nicht, weil meine VBA-Skills nicht ausreichen, sondern schlicht, weil ich faul bin. ;)
Statt dessen benutze ich (ausgeblendete) Formular-Tabellenblätter.
Schließlich hat eine Excel-Zelle fünfunddrölfzig Eigenschaften, mit denen ich prima mein Debugging gegen Null fahren kann.
Ich habe vor Jahren mal eine quasi-relationale Datenbank in Excel erstellt, die mittels UFs bedient wurde.
Waren grob 1.500 Zeilen Code und ca. 40 Stunden Debugging.
Sowas tue ich mir nicht mehr an.
Aber dies nur als kleiner Plausch aus dem Nähkästchen.
Gruß Ralf
Anzeige

306 Forumthreads zu ähnlichen Themen

VBA - Zellen nach Prozentformat abfragen
Jenny

Hi, Excel-Freaks!
Kann mir bitte jemand sagen, wie ich per VBA Zellen auf ein beliebiges Prozentformat abfragen kann?
If rngZ.NumberFormat = "0%" Then...
findet leider/natürlich nur die Zellen, die ohne Nachkommastellen formatiert sind.
Danke im Voraus!
Grüße von Jenny im Ex...
28.08.2008 15:03:49
Thread-ID: 1005460
4 Beiträge
Anzeige
VBA: Verlust Zellenformat bei Workbooks.Close
Andreas

Hallo und guten Morgen:
Als Neuling hier möchte ich mich sogleich mit einem Problem an Euch wenden:
Ich habe 2 Excel-Tabellen, wobei Daten in der einen und Referenzen in der anderen Tabelle stehen.
Nun lese ich Daten über die ReferenzTabelle aus der DatenTabelle aus und schreibe die...
02.04.2009 09:14:45
Thread-ID: 1066193
16 Beiträge
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
Anzeige
per VBA viele Diagramm-Datenreihen formatieren
Bernd

Guten Abend allerseits,
ich habe es tatsächlich geschafft, in ein Diagramm 235 Datenreihen mit Diagrammtyp xlXYScatterLines einzubinden. Nun suche ich eine Lösung, um diese Datenreihen in einer bestimmten Art und Weise zu formatieren. Händisch viel Arbeit, deswegen möchte ich die Datenreihe...
23.08.2009 19:49:55
Thread-ID: 1098037
5 Beiträge
per VBA Teile einer Zelle formatieren
Steinritz

Hallo!
Ich habe folgendes Problem:
Habe in Excel mit der VERKETTEN Funktion 4 Zellen verkettet.
Im Ergebnis z.B.
Nach Abzug der Gebühr in Höhe von 10,- € ergibt sich ein Gesamtbetrag von 200,- €.
Jetzt möchte ich in dieser Zelle nur den letzen Zahlenwert mit dem Währungssymb...
10.09.2009 18:45:11
Thread-ID: 1101849
3 Beiträge
Datum formatieren mit VBA (Formular)
Wolle


Hallo Forum,
nachdem es jetzt klappt das die Daten aus der Tabelle in das Formular angezeigt werden, habe ich noch ein Problem mit der Formatierung "Datum"
Ich schreibe in dem Formular das Anfangs und enddatum und lasse Sie über das Formular in die Tabelle schreiben. Dort sollen Si...
01.12.2009 07:18:45
Thread-ID: 1121125
12 Beiträge
VBA: Gültigkeit für eine Zelle zuweisen
André

Moin zusammen,
ich möchte per VBA einer Zelle eine Gültigkeit zuweisen, und zwar eine Liste von Werten, die dann per Dropdown ausgewählt werden können.
Um den hierzu notwendigen Code zu erhalten, habe ich die Gültigkeit manuell zugewiesen und per Makrorekorder aufzeichnen lassen. Dabei...
22.03.2010 14:10:36
Thread-ID: 1147568
3 Beiträge
Formatieren von Zellen per VBA
Zellen

Guten Tag
habe bereits eine Ergänzungsfrage zu einem Projekt bei welchem mir hier via Forum schon sehr sehr gut geholfen wurde....
und zwar:
mittels folgendem Code schreibe ich in eine Spalte ein Datum:
Cells(j, 10).Value = CDate(MyDatStrg)
Wie müsste ich diese Zeile erweite...
07.12.2010 10:53:17
Thread-ID: 1190357
18 Beiträge
Anzeige

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
3
11
15
1
5
4
2
11
2
17
1
2
3
2
2
2
10
1
17
3
5
2
2
9
3