Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1068to1072
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
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsaddition --> Textformat

Datumsaddition --> Textformat
23.04.2009 16:04:30
Stefan
Hallo zusammen,
ich muss in einem Macro eine Zelle (AL) in die Zelle (AI) kopieren. Die Zelle (AI) soll dann im Textformat formatiert werden. Es handelt sich dabei um Datum und Uhrzeit mit Hochkomma am Anfang.
Bisher habe ich es problemlos geschafft, die im Zahlenformat darzustellen. Die Konvertierung in Textformat ist mir aber bisher leider nicht gelungen. Kann mir da bitte jemand weiterhelfen.
Vielen Dank.
Hier der Ausschnitt aus dem bisherigen Makro:
Range("AL2:AL158").Select
Selection.Copy
Range("AI2:AI158").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("AI2:AI158").Select
Selection.NumberFormat = "'DD.MM.YYYY hh:mm"
Range("A1").Select
ActiveSheet.Protect
ActiveWorkbook.Save

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsaddition --> Textformat
23.04.2009 16:25:39
Rudi
Hallo,

Sub tt()
Dim rngC As Range
Application.ScreenUpdating = False
Range("AL2:AL158").Copy
Range("AI2:AI158").PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False
For Each rngC In Range("AI2:AI158")
rngC = Format(rngC, "DD.MM.YYYY hh:mm")
Next
Range("A1").Select
ActiveSheet.Protect
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub


Gruß
Rudi

AW: Datumsaddition --> Textformat
23.04.2009 16:43:39
Stefan
Hallo Rudi,
das sieht sehr gut aus! Im ersten Test kam das gewünschte Ergebnis raus! Ich muss es morgen nur noch mit einer "Folgeanwendung" testen!
Vielen Dank
Stefan
Anzeige
AW: Datum in Textformat
23.04.2009 18:56:27
Erich
Hi Stefan,
hier eine Alternative. Der Ausgabebereich in Spalte AI erhält Format "@" (=Text): 

Option Explicit
Sub ttt()
Dim arrQ, arrZ() As String, lngQ As Long, zz As Long
arrQ = Application.Transpose(Range("AL2:AL158"))   ' einlesen
lngQ = UBound(arrQ)
ReDim arrZ(1 To lngQ)
For zz = 1 To lngQ
arrZ(zz) = Format(arrQ(zz), "DD.MM.YYYY hh:mm") ' umformen
Next zz
With Range("AI2").Resize(lngQ)
.NumberFormat = "@"
.Value = Application.Transpose(arrZ)            ' ausgeben
End With
ActiveSheet.Protect
ActiveWorkbook.Save
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Datum in Textformat
24.04.2009 10:32:37
Stefan
Hallo Erich,
ich habe jetzt Deinen Lösungsvorschlag nicht ausprobiert (der vorher genannte hat tatsächlich funktioniert); habe aber gestern bereits eine ähnliche Lösung wie Du sie vorschlägst versucht, also eben mit "@", und das hat leider nicht funktioniert, weil dann das Ergebnis als Zahlenformat des Datums dargestellt wurde.
Viele Grüße
Stefan

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige