Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum Uhrzeit per VBA zu "nur Datum"

Datum Uhrzeit per VBA zu "nur Datum"
05.09.2006 12:16:57
{mskro}
Hallo in die Runde,
ich beisse mir mal wieder die Zähne an etwas aus, wo bestimmt einer von euch eine Lösung parat hat.
Ich bekomme täglich eine *.cvs Datei geliefert, die unter anderem auch folgende Einträge hat:
02.09.2006 19:21:05
Nachdem ich diese Quelldaten mit "Text in Spalten" zu Excel geholt habe, ändere ich das Format über folgenden Weg:
"Bearbeiten", "Ersetzen", ersetze " **:**:**" durch ""
Wenn ich diesen Schritt allerdings über VBA laufen lasse, bekomme ich hinterher nicht das Format heraus um damit weiter arbeiten zu können.
Nun meine Frage: Wie kann ich per VBA das o.a. Format ändern, sodaß hinterher nur noch das Datum in der Zelle steht?
Gruss Manfred
PS: VBA Level = HobbyLevel (ging leider nicht anzugeben.)

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum Uhrzeit per VBA zu "nur Datum"
05.09.2006 12:24:25
mumpel
Hallo!
z.B. mit Format(Zelle, "DD.MM.YYYY"). Welchen Code verwendest Du? Ohne eine genaue Angabe ist eine gute Hilfe schwierig.
Gruss Rene
AW: Datum Uhrzeit per VBA zu "nur Datum"
05.09.2006 12:30:18
{mskro}
Hallo Rene,
ich verwende dafür folgenden Code:

Sub Makro1()
Cells.Select
Selection.Replace What:=" **:**:**", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub

Gruss Manfred
AW: Datum Uhrzeit per VBA zu "nur Datum"
05.09.2006 12:24:57
Uduuh
Hallo,
ich vermute mal, dass es sich nicht wirklich um ein Datum(=Zahl) sondern um Texte handelt. Somit Umwandlung mit
Datum=Datevalue(Left(Text,10))
Gruß aus’m Pott
Udo

Anzeige
AW: Datum Uhrzeit per VBA zu "nur Datum"
05.09.2006 12:45:42
{mskro}
Hallo Udo,
dabei bekomme ich die Meldung "Typen unverträglich".

Sub Makro1()
Cells.Select
Datum = DateValue(Left(Text, 10))
End Sub

Gruss Manfred
AW: Datum Uhrzeit per VBA zu "nur Datum"
05.09.2006 12:55:57
Uduuh
Hallo,
war doch nur ein Schema! Du musst der Variable 'Text' natürlich auch einen Wert zuweisen.
Gruß aus’m Pott
Udo

AW: Datum Uhrzeit per VBA zu "nur Datum"
05.09.2006 13:03:02
{mskro}
Hallo Udo,
ich bin wohl heute etwas Begriffsstutzig. Wie würde es im VBA denn aussehen müßen, wenn ich die Spalten "F", "G", "M", "N" und "O" so umwandeln möchte.
Gruss Manfred
AW: Datum Uhrzeit per VBA zu "nur Datum"
05.09.2006 12:46:07
{mskro}
Hallo Udo,
dabei bekomme ich die Meldung "Typen unverträglich".

Sub Makro1()
Cells.Select
Datum = DateValue(Left(Text, 10))
End Sub

Gruss Manfred
Anzeige
wer kann weiterhelfen?
05.09.2006 14:03:28
{mskro}
...ich schaffe es leider nicht alleine, die Hilfestellung von Udo ins VBA zu bringen, darum bitte ich um weitere Hilfe.
Die Spalten "F", "G", "M", "N" und "O" sollen so umwandelt werden, das aus dem Text ("TT.MM.JJJJ HH:MM:SS") ein Datum im Format ("TT.MM.JJJJ") wird.
Gruss Manfred
AW: wer kann weiterhelfen?
05.09.2006 14:32:30
IngGi
Hallo Manfred,
so vielleicht?

Sub Spalte()
Dim Bereich As Range
Set Bereich = Range("F:F")
Call Datum(Bereich)
Set Bereich = Range("G:G")
Datum
Set Bereich = Range("M:M")
Datum
Set Bereich = Range("N:N")
Datum
Set Bereich = Range("O:O")
Datum
End Sub



Sub Datum(Bereich As Range)
Dim rng As Range
For Each rng In Bereich
rng = DateValue(Left(rng, 10))
rng.NumberFormat = "DD.MM.YYYY"
Next 'rng
End Sub
Gruß Ingolf
Anzeige
AW: wer kann weiterhelfen?
05.09.2006 14:45:31
{mskro}
Hallo Ingolf,
dabei bekomme ich eine Fehlermeldung die lautet:
Argument ist nicht optional und der Curser bleibt auf "Datum" stehen.
Gruss Manfred
AW: wer kann weiterhelfen?
05.09.2006 14:50:43
mumpel
Ersetze "Datum" durch "Call Datum(Bereich)". Das sollte dann gehen.
Gruss Rene
AW: wer kann weiterhelfen?
05.09.2006 14:59:52
{mskro}
...klappt leider immer noch nicht. Makro läuft nun bis zum Punkt:
rng = DateValue(Left(rng, 10))
und gibt dann wieder die Meldung "Typen unverträglich" (vielleicht wegen der Überschrift?)
Gruss Manfred
AW: wer kann weiterhelfen?
05.09.2006 14:54:15
Rudi
Hallo,
für dein 'Hobby-Level' bist du reichlich hilflos.

Sub Spalte()
Dim Bereich As Range
Set Bereich = Range("F:G")
Call Datum(Bereich)
Set Bereich = Range("M:O")
Call Datum(Bereich)
End Sub

Gruß
Rudi
Anzeige
AW: wer kann weiterhelfen?
05.09.2006 15:05:25
{mskro}
Hallo Rudi,
wenn du bereits soviel herumexperimentiert hast wie ich, dann wärst du bestimmt auch schon verzweifelt und siehst vielleicht den Wald vor lauter Bäumen nicht mehr. Soviel zum Level.
Ich weiß auch gar nicht warum sich so viele Leute hier immer über die Angabe des Levels hermachen, aber egal.
Dein Tip läuft übrigens auch nicht und bleibt an der gleichen Stelle hängen.
Gruss Manfred
AW: wer kann weiterhelfen?
05.09.2006 14:40:38
mumpel
Hallo!
Damit sollte es gehen.

Sub Umwandeln()
On Error Resume Next
Selection.Replace What:=" **:**:**", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.NumberFormat = "m/d/yyyy"
End Sub

Gruss Rene
Anzeige
AW: wer kann weiterhelfen?
05.09.2006 14:52:56
{mskro}
Hallo Rene,
so wandelt Excel mir aber alle Zellen in das Format um, auch die Zellen, in der z.B. die Postleitzahl steht. Ich brauche das nur in den Spalten, wo das Datum als Text drin steht. Das sind momentan die Spalten "F", "G", "M", "N" und "O".
Gruss Manfred
AW: wer kann weiterhelfen?
05.09.2006 14:58:20
mumpel
So dürfte es gehen.

Sub Umwandeln()
On Error Resume Next
Dim bereich As Range
Set bereich = Range("F:G,M:O")
bereich.Select
Selection.Replace What:=" **:**:**", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.NumberFormat = "m/d/yyyy"
End Sub

Gruss Rene
Anzeige
Super Rene, das klappt jetzt
05.09.2006 15:10:03
{mskro}
Vielen Dank für die tatkräftige Unterstützung.
Gruss Manfred

212 Forumthreads zu ähnlichen Themen

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
Anzeige
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
Anzeige
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
VBA Ausdruck des Moduls mit aktueller Uhrzeit
MBorn

Hallo,
weiß vielleicht jemand von Euch, wie man ein VBA-Modul ausdruckt und es schafft,
die aktuelle Zeit / und das Datum in der ersten Zeile mit auszudrucken?
Gruß und Dank,
Born
31.01.2009 14:30:56
Thread-ID: 1045652
4 Beiträge
Datum und Uhrzeit aus Textbox passend in Tabelle e
Karsten

Hallo
Ich lese mit einer Userform ein Datum und eine Uhrzeit aus.
Wenn ich die wieder in die gleich Zelle schreiben lasse, werden sie nicht rechtsbündig sondern linksbündig gespeichert und nicht richtig "benutzt.
Wenn ich in der Zelle nur Enter drücke, wird das Datum und auch die Uh...
06.04.2009 19:01:58
Thread-ID: 1067159
3 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

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
5
2
1
12
4
3
1
3
2
1
5
5
2
3
11
2
9
4
1
4
2
7
2
7
6