Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum automatisch formatieren

Forumthread: Datum automatisch formatieren

Datum automatisch formatieren
29.04.2008 08:56:00
Roland
Hallo Leute
Ich habe folgendes Makro im Internet gefunden:

Sub Rechteck25_BeiKlick()
'Alle Werte in Zahlenwerte umwandeln
Dim zelle2 As Object
Sheets(1).Range("B1:D200").Select
For Each zelle2 In Selection
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next zelle2
End Sub


nun wäre meine Frage, ob das in so ähnlicher Form auch mit dem Datum möglich wäre. Also wenn ich verschiedene Zeilen, die Datum enthalten in meine Tabelle kopiere und einige die Form 02.04.2008 enthalten, ich das Makro starten kann und dieses die betreffenden Zellen in das folgende Format wandelt: 02.04.08. ist das möglich dies direkt in das obige einzubinden?
Danke jetzt schon und Grüsse
Roland

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum automatisch formatieren
29.04.2008 09:13:00
Schnee
Hi Roland,
ich bin mir zwar nicht ganz sicher, ob ich dich richtig verstanden habe, dennoch sollte folgender Code in etwa deinen Wünschen entsprechen:

Sub Rechteck25_BeiKlick()
Dim Zelle As Range
For Each Zelle In ActiveSheet.Cells
If IsDate(Zelle) Then Zelle.NumberFormat = "dd/mm/yy;@"
Next Zelle
End Sub


Alternativ könntest du aber doch auch einfach die Bereiche in denen ein Datum vorkommen kann gleich in dem gewünschten Format formatieren.
Beste Grüße,
Schnee

Anzeige
AW: Datum automatisch formatieren
29.04.2008 10:24:42
Roland
Hallo Schnee
Ich danke dir ganz herzlich, es funktioniert so wie ich das wollte. sorry wenn ich mich ein bisschen unverständlich ausgedrückt habe!:)
Grüsse
Roland
;

Forumthreads zu verwandten Themen

Letzte Stelle einer Zahl mittels VBA in 0 umwand.
Josef

Guten Morgen!
Ich habe in der Spalte A in einem Arbeitsblatt eine Menge siebenstelliger Zahlen, am Schluß mit einer Prüfziffer versehen, stehen. Ich möchte nun, wenn möglich, mittels VBA immer die letzte Zahl in eine 0 umwandeln.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
10.04.2009 06:26:04
Thread-ID: 1068138
12 Beiträge
Datumsformat wird nicht übernommen
Klaus

Hallo Forum,
ich habe hier ein merkwürdiges Problem:
Ich habe ein Worksheet mit 2 Datümern (Format TT.MM.YYYY)
Ich dupliziere das Worksheet mit .ActiveSheet.Copy after:=.Worksheets(.Worksheets.Count)
Ein Datum wird danach angezeigt als MM./TT./YYYY, das andere ist ok,
beide...
11.07.2009 21:09:29
Thread-ID: 1087902
4 Beiträge
Datum wird in Combox falsch angezeigt
Fredy

Hallo zusammen
Ich verwende diesen code um über eine ComboBox Daten in einem UserForm anzuzeigen
Dim wksCombo As Worksheet, Zeile1 As Long
Private Sub ComboBox1_Click() Dim Zeile As Long Zeile = Zeile1 + Me.ComboBox1.ListIndex Me.TextBox1 = Format(wksCombo.Cells(Zeile, 2).Value, "h...
10.05.2010 17:53:00
Thread-ID: 1156494
12 Beiträge
Datumsformat (Standard) wird nicht übernommen
nico

Hallo alle zusammen,
wenn ich mit VBA aus einer anderen Datenquelle ein Datum einlese, dass leider ein Format "Standard" hat, z.B. 31.12.2010 wird daraus in der neuen Tabelle 31122010.
Code ist für das Kopieren:
...
shQuelleK.UsedRange.Copy
shZielK.Range("A11").PasteSpecial...
30.12.2010 17:50:43
Thread-ID: 1193382
2 Beiträge
DPPicker - Datum falsches Format
KLE

Hi,
in meiner USerform nutze ich für das Bestelldatum ein DPPicker-Element (Kalender).
Incl. Checkbox, damit es auch "leer" gelassen werden kann...
Wenn ich den Wert speichere daraus, schreibt es in die Tabelle nicht nur das Datum, sondern auch die aktuelle Zeit ?! Warum ?, wie kan...
19.08.2011 12:51:01
Thread-ID: 1226764
14 Beiträge
Anzeige
Datum wird falsch ermittelt
reiner

Hallo Leute
https://www.herber.de/bbs/user/81313.xlsx
B1 ist das Tagesdatum; D1 ist ein willkürlich gewähltes Datum.
E1 enthält das Datum aus B1 oder D1 je nachdem welche Optionsschaltfläche betätigt wurde.
Enthält D1 kein Datum (Wert gleich "0") und wird Optionsschaltfläche B...
07.08.2012 11:34:38
Thread-ID: 1274088
5 Beiträge
Zahl wird als Datum angezeigt
Nancy

Hallo liebe VBA Künstler,
in meiner Tabelle, werden automatisch beim Öffnen Zahlen zum Datum umgewandel.
Bsp.:
22.1 wird zu 22.Jan
35.5 wird nicht umgewandelt und bleibt so erhalten
Das ganze habe ich in den Spalten E bis H.
Das blöde ist, dass ich das in der Datenabfrag...
17.04.2013 09:26:15
Thread-ID: 1309147
11 Beiträge
Datum wird in Listbox nicht richtig dargestellt
Karo

Hallo Profi's
Habe ein Problem und hoffe ihr könnt mir weiter helfen.
Ich habe ein Suchformular gepostet.
https://www.herber.de/bbs/user/90448.xlsm
Problembeschreibung:
Wenn ich in Visual Basic auf den Play Button klicke (Vorschau) wird das Datum korrekt angezeigt.
Ich...
03.05.2014 03:43:27
Thread-ID: 1359516
12 Beiträge
Bezugnahme auf Zelle mit Datum - falsches Format
themax

Liebe ExPerten!
Immer noch kämpfe ich mit der gleichen Auswertung.
Ihr habt mir dabei jetzt schon bei zwei Klippen geholfen.
Nun gibt es in der betreffenden Datei unerwartet ein weiteres Problem:
In Tabelle1 wird mit einer Index/Verweis-Formel (hier: Array-Formel) ein Datum mit...
05.02.2015 12:44:43
Thread-ID: 1407471
4 Beiträge
Datum wird falsch dargestellt
Martin

Hallo,
ich würde gerne aus unserem NAV Daten ins Excel exportieren, was ja prinzipiell funktioniert. Das einzige Problem dabei ist, dass die Zellen, welche ein Datum anzeigen sollen, eine Zahl ausweisen.
Bsp: Datum im NAV: 20.10.2015
Datum in Excel: 201.015,00
Hat jemand einen T...
21.10.2015 13:25:09
Thread-ID: 1453522
3 Beiträge
Anzeige
Datum wird nicht richtig kopiert
Larissa

Hi,
ich möchte in eine Zeile den Inhalt einer anderen bzw. mehreren schreiben:
KW 10 Dienstag 5 2016-03-08 08:00:00 15:00:00 7
Range("A1").Value = Range("A1").Value & "," & Range("B1").Value & "," & Range("C1").Value & "," & Range("D1").Value & "," &...
07.03.2016 12:05:23
Thread-ID: 1480342
3 Beiträge
Anzeige
Anzahl Zeilen, Spalten wird falsch ermittelt
SteffenS

Hallo Zusammen,
für die Bestimmung eines Bereichs verwende ich:
WS.UsedRange.SpecialCells(xlCellTypeLastCell).Row
WS.UsedRange.SpecialCells(xlCellTypeLastCell).Column
nur leider stimmt die Anzahl der Zeilen nicht es werden nur 710 anstatt über 5.000 Zeilen gefunden. Die Anzahl d...
12.10.2016 18:10:56
Thread-ID: 1519351
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige