Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1204to1208
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
1204to1208
1204to1208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum als Text

Datum als Text
Julia
Hallo,
ich habe in Spalte B Einträge mit Datum. Format ist : TT.MM.JJJJ
In Spalte D hätte ich jetzt gerne das Datum im Format MM.JJJJ
Also nur Monat und Jahr. Allerdings bräuchte ich das als Text und nicht als Datum
Weil ich diese Werte in Pivot auswerte. Und wenn ich in D als Format MM.JJJJ auswähle dann wird das in der Pivottabelle nicht angezeigt.
Gruppieen kann ich auch nicht da nicht jede Zeile ein Datum hat.
Jemand eine Idee?

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datum als Text
23.03.2011 09:33:04
Rudi
Hallo,
=Text(B2;"MM.JJJJ")
Gruß
Rudi
AW: Datum als Text
23.03.2011 09:48:29
Julia
Klappt super.
Kann man das in ein Makro packen?
Also ab B2 bis letzter Eintrag von B soll wie von dir gelöst in D geschrieben werden.
Allerdings habe ich gerade festgestellt, wenn in B kein Datum steht dann schreibt er in D "01.1900"
Wenn in B nichts steht muss in D auch nichts stehen
AW: Datum als Text
23.03.2011 10:07:56
Ralf_P
Hallo Julia,
in D2 folgende Formel:
=WENN(B2="";"";Text(B2;"MM.JJJJ")
Dann runterkopieren.
VG, Ralf
AW: Datum als Text
23.03.2011 10:10:22
Julia
@ Ralf
Danke für die Lösung.
Allerdings bräuchte ich das in einem Makro. Die Anzahl der Zeilen variiert immer.
Außerdem laufen bereits merhere Makros in meiner xls.
Das müsste ich dann einbinden
Gruß
Julia
Anzeige
AW: Datum als Text
23.03.2011 10:39:32
Ralf_P 

Sub Makro1()
Dim rng As Range
Dim wks As Worksheet
Dim lngLetzteZeile As Long
Set wks = Worksheets("Tabelle1") 'anpassen
Set rng = wks.Columns("B:B")
lngLetzteZeile = rng.SpecialCells(xlCellTypeLastCell).Row
Range("D2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",TEXT(RC[-2],""MM.JJJJ""))"
Selection.AutoFill Destination:=Range(Cells(2, 4), Cells(lngLetzteZeile, 4)), Type:= _
xlFillDefault
End Sub

VG, Ralf
AW: Datum als Text
23.03.2011 10:54:42
Julia
Hi Ralf,
danke für deine Hilfe
In meiner Original xls habe ich das Makro eingefügt.
Irgendow hab ich noch einen Fehler.
Das Datum steht im Original in Spalte L
Das "neue" Datum soll in Spalte BB geschrieben werden.
Soweit konnte ich es anpassen:
Sub Makro1()
Dim rng As Range
Dim wks As Worksheet
Dim lngLetzteZeile As Long
Set wks = Worksheets("Datenbasis") 'anpassen
Set rng = wks.Columns("L:L")
lngLetzteZeile = rng.SpecialCells(xlCellTypeLastCell).Row
Range("BB2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",TEXT(RC[-2],""MM.JJJJ""))"
Selection.AutoFill Destination:=Range(Cells(2, 4), Cells(lngLetzteZeile, 4)), Type:= _
xlFillDefault
End Sub
Bei dieser Zeile kommt eine Fehlermeldung (Auto-Fill-Methode des Range Objects konnte nicht ausgeführt werden)
Selection.AutoFill Destination:=Range(Cells(2, 4), Cells(lngLetzteZeile, 4)), Type:= _
xlFillDefault
Gruß
Julia
Anzeige
AW: Datum als Text
23.03.2011 11:07:54
Ralf_P
Hallo Julia,
Level: Excel gut - VBA gut solltest Du überdenken ;-)
Sub Makro1()
Dim rng As Range
Dim wks As Worksheet
Dim lngLetzteZeile As Long
Set wks = Worksheets("Datenbasis") 'anpassen
Set rng = wks.Columns("L:L")
lngLetzteZeile = rng.SpecialCells(xlCellTypeLastCell).Row
Range("BB2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-42]="""","""",TEXT(RC[-42],""MM.JJJJ""))"
Selection.AutoFill Destination:=Range(Cells(2, 54), Cells(lngLetzteZeile, 54)), Type:= _
xlFillDefault
End Sub

VG, Ralf
AW: Datum als Text
23.03.2011 11:14:03
Julia
Klappt super.
Das mit VBA gut war ein Versehen ;)
Anzeige
AW: Datum als Text
23.03.2011 11:08:27
Rudi
Hallo,
so: 
Sub Makro1()
Dim rng As Range
Dim wks As Worksheet
Dim lngLetzteZeile As Long
Set wks = Worksheets("Datenbasis") 'anpassen
With wks
Set rng = .Columns("L:L")
lngLetzteZeile = .Cells(Rows.Count, 12).End(xlUp).Row
.Range(.Cells(2, 54), .Cells(lngLetzteZeile, 54)).FormulaR1C1 = _
"=IF(RC[-42]="""","""",TEXT(RC[-42],""MM.JJJJ""))"
End With
End Sub

Gruß
Rudi
noch ein Tick besser ;-)
23.03.2011 11:20:08
Ralf_P
aber ich mach ja auch nur learning & helping by doing...
VG, Ralf
AW: noch ein Tick besser ;-)
23.03.2011 11:26:05
Rudi
Hallo, 
aber ich mach ja auch nur learning & helping by doing...

so, wie ich auch.
Gruß
Rudi
Anzeige

322 Forumthreads zu ähnlichen Themen

Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
Anzeige
Datum als Text kopieren
Thomas3

Hallo zusammen,
ich habe folgendes Problem.
Aus einer Datei werden aus einer Spalte das Tagesdatum in eine andere Datei kopiert.
Das ist kein Problem.
Aus der zweiten Datei werden dann mittels Serienbrief diese Daten ausgelesen.
Und nun beginnt das Problem.
Das Datum ko...
16.09.2008 18:22:00
Thread-ID: 1010173
4 Beiträge
Datumsüberschreitung und Textfelder zählen
Lemmi

Hallo Beate,
Hallo zusammen,
leider hat Diene Formel noch nicht das gewünschte Ergebnis erbracht !
Es sollen Textfelder und Datums Überschreitungen gezählt werden!
Könnten jemand oder /und Beate noch einmal schauen?
Siehe Datei!
https://www.herber.de/bbs/user/55582.xls <...
22.09.2008 21:16:00
Thread-ID: 1011578
3 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
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge
Formatiert Text nicht als Datum
Günter

Hallo Zusammen,
ich habe wieder ein sicherlich einfaches Problem.
In Spalte A stehen Werte wie "18.12 15:30".
Die Spalte ist als Datum formatiert.
Um nun ein komplettes Datum mit Jahr zu bekommen habe ich folgendes Makro geschrieben:
Sub JahrErgaenzen() Dim Z As Integer F...
21.12.2008 08:20:33
Thread-ID: 1034520
11 Beiträge
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

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