Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
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
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum in einem Range Formatieren

Datum in einem Range Formatieren
06.11.2008 13:13:00
TomTom
Hi,
ich möchte per Makro einen Range auf dem Tabellenblatt "Tabelle5" deffinieren (zB. C5:C40) und in diesem das Datum auf TT.MM.JJJJ stellen, egal was vorher für ein Format stand (ob amerikanisch, ob Deutsch, JJJJ.MM.TT.....)
Wie formatiere ich einen Range in dieses datumsformat ?
Danke mal Tom

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum in einem Range Formatieren
06.11.2008 13:21:50
Rudi
Hallo,
ganz einfach:
Range("C5:C40").numberformat="DD.MM.YYYY"
Gruß
Rudi
funktioniert bei mir nicht..
06.11.2008 14:52:02
TomTom
Hi,
die entsprechende Spalte wird bei mir nicht nach diesem Datumsformat formatiert. Könnte es damit zusammen hängen:
ich kopere die Daten vorher aus einem textfile in eine Excel Arbeitsmappe. (copy, paste)
von da an scheint mir das Format der Spalte nicht mehr DATUM zu sein, sondern TEXT.
Kann das damit zu tun haben, dass ich jetzt ein TEXT nach Datum formatieren will ? Wenn ich ein Datum manuell in diese C-Spalte schreibe, dann funktionierts komischerweise.
Gruss
Tom
richtig erkannt !
06.11.2008 15:19:00
Matthias
Hallo
so kannst Du vorgehen.
Userbild
Gruß Matthias
Anzeige
AW: richtig erkannt !
06.11.2008 15:46:36
TomTom
Hi Matthias,
Danke, dabei habe ich aber dann ein weiteres Problem: da es sich hierbei um keinen einmaligen Vorgang handelt, müsste ich diesen Schritt mit dem INHALT EINFÜGEN nach jedem neustart des Makros neu machen (bzw. nach jedem Copy/Paste) , oder ?
Kann man Diesen Schritt auch mit einem Makro automatisieren, damit ich mir diesen Zwischenschritt sparen kann ? Sonnst müsste ich jedes mal meine Tabelle noch manuell nachbearbeiten.
Danke
Tom
ja das geht auch :)
06.11.2008 16:40:00
Matthias
Hallo Tom
hier ein Beispiel:
https://www.herber.de/bbs/user/56563.xls 

Option Explicit
Sub TomTom()
Dim x As Byte
For x = 5 To 40
Cells(x, 3) = CDate(Cells(x, 3)) * 1
Next
Range("C5:C40").NumberFormat = "DD/MM/YYYY"
End Sub


Gruß Matthias

Anzeige
Danke, so gehts :-) oT
07.11.2008 08:29:19
TomTom
bitte :o) _oT
07.11.2008 12:15:55
Matthias
Sorry, kleine Nachfrage
12.11.2008 13:39:00
TomTom
Hi Matthias,
ich habe in meiner Tabelle gesehen, dass es auch mal vorkommen kann, dass es im Range C auch mal leere Zellen gibt. In diesem Fall würde der Code aus einere leeren Zelle "01.01.1900" machen.
Kann man den Code so ändern , dass innerhalb des Ranges nur die Zellen geprüft werden, die auch befüllt sind ?
Hier nochmal der Code
Dim x As Byte
For x = 5 To 40
Cells(x, 3) = CDate(Cells(x, 3)) * 1
Next
Range("C5:C40").NumberFormat = "DD/MM/YYYY"
End Sub
Gruss
Tom
klar geht das :o)
12.11.2008 17:08:35
Matthias
Hallo

Option Explicit
Sub TomTom()
Dim x As Byte
For x = 5 To 40
If Not IsEmpty(Cells(x, 3)) Then Cells(x, 3) = CDate(Cells(x, 3)) * 1
Next
Range("C5:C40").NumberFormat = "DD/MM/YYYY"
End Sub


Gruß Matthias

Anzeige

306 Forumthreads zu ähnlichen Themen

Datum in der Userform formatieren
Nadine

Hallo,
ich habe im VBA eine Userform erstellt. In einem der Textfelder soll ein Datum stehen.
Wenn Buchstaben in dieser Textbox stehen, soll keine Übertrabung in die -von mir vorgesehen- Excelzelle erfolgen.
Bitte um HILFE!!!
Vielen Dank
Nadine
18.08.2008 16:17:00
Thread-ID: 1002660
7 Beiträge
Anzeige
Datum in Deutsch und Französisch
Karin

Hallo
Ich habe folgende Siutation:
in der Zelle A1 habe ich ein Datum. In der Zelle B1 möchte ich dieses Datum wie folgt ausgeben: gültig per TT.MM.JJJ
Ich verwende dazu die Funktion =verketten() und füge das Datum als Text an.
Wenn ich nun zwischen deutschen und französischen E...
06.01.2009 11:32:00
Thread-ID: 1037177
2 Beiträge
Datum mit Bedingte formatieren färben
CarstenAS

Hallo
Wie erreiche ich mit der bedingten formatierung dass ich alle zeilen mit selben datum in einer farbe bekomme
meine Liste ist so aufgebaut in spalte A steht ein Datum nun möchte ich alle Werte die mit dem 01.02.2009 beginnen zb grün sind alle werte die 02.02.2009 beginnen rot sind...
08.02.2009 12:47:31
Thread-ID: 1048270
3 Beiträge
Anzeige
ddmmyy oder ttmmjj
dieter

Hallo Forum,
mit der unten stehenden Excelformel (die ich hieraus dem Forum habe)
erreiche ich,dass das Datum (steht in J19) und die zahl zweier kalenderwochen (zb. Woche 27 +28) ohne punkt und komma als zahl geschrieben wird.
Beispiel: 10.07.09 und die Wochen 27 +28 werden dann dar...
13.07.2009 13:36:11
Thread-ID: 1087989
2 Beiträge
Datumfeld im Makro nur als tt.mm.JJJJ ohne Zeit
walter

Moin moin,
ich habe ein Makro welches im Durchlauf nen Datum setzt [Cells(1, 2).Value = Date] und damit entsprechend weiterarbeitet. Nun scheint es so zu sein, daß in diesem Makrodatum auch die Uhrzeit des Makrolaufes mitgezogen wird, welches, wenn das Makro zu spät gestartet wird, zu falsc...
07.10.2009 14:29:05
Thread-ID: 1107833
3 Beiträge
Datum in Zahlenreihe umformatieren
petrig

Hallo zusammen,
ich stehe vor folgender Knacknuss. ich sollte verschiedene exceltabellen miteinander verknüpfen. Leider sind die Datumanzeigen verschieden
1.file: 10.12.2009
2.file: 20091210 (amerikanisch - nur als zahlenreihe)
Frage: Wie kriege ich aus der zahlenreihe des 2....
14.10.2009 08:38:16
Thread-ID: 1109499
7 Beiträge
Zext in Zahl formatieren funktioniert nicht
Mandy

Hallo
ich möchte ein paar Spalten , wo zahlen drin stehen, aber als Text formatiert sind, per Makro in eine zahl mit Tausendertrennzeichen und 2 Nachkommastellen formatieren.
Dim c As Range
For Each c In Range("A10:A1111,D10:D1111")
If c "" And c "-" Then
c = c * 100
...
19.10.2009 14:11:50
Thread-ID: 1110648
8 Beiträge
=Text(I10;"tt.mm.jj hh:mm") mit Fehler
Stef@n

Hallo ExcelFreunde
ich steh vor einem Rätsel,
in der Zelle I10 steht 04.11.2009 17:34
Wenn ich in der Zelle I11 die o.a. Formel erfasst =Text(I10;"tt.mm.jj hh:mm)
wird mir interessanterweise
04.34.09 17:34
ausgewiesen ?
Was ist denn an der Formel falsch ? Ha...
01.12.2009 14:24:59
Thread-ID: 1121230
3 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
6
1
1
2
7
1
2
6
7
2
3
2
2
2
17
3
7
3
5
2
3
2
7
11
1