Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Umwandlung

Forumthread: Umwandlung

Umwandlung
05.03.2003 13:23:51
Rolf
Hallo,Leute
ich habe in Spalte A ein Bereich A50:A120
en dem Datum als Text vorliegt also
z B. 05.03.2003 es ist leider nur Text.
Frage : wie kan ich per Makro den Text
in Datumswerte umwandeln?
Rolf

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Umwandlung
05.03.2003 13:28:59
Heidrun

Hallo Rolf,

mit der Funktion Datwert (aufgezeichneter Code)

ActiveCell.FormulaR1C1 = "=DATEVALUE(RC[-1])"

Tschau
Heidrun

Re: Umwandlung
05.03.2003 15:07:03
Rolf

Hallo,Heidrun
Danke für den Hinweis,
hast Du zufällig ein Beispiel
wie das ganze Makro aussiet.
Grüsse
Rolf

Re: Umwandlung
05.03.2003 15:12:27
Heidrun

Hallo Rolf,

nein, das Problem hat sich mir erst durch Deine Frage gestellt.

Heidrun

Anzeige
Und doch
05.03.2003 15:20:05
Heidrun

Hallo Rolf,

hier ein Muster:

Sub tdat()
For i = 2 To 10
Cells(i, 2).Value = "=DATEVALUE(RC[-1])"
Next i
End Sub


Heidrun

Re: Und doch
05.03.2003 16:49:18
Rolf

Hallo,Heidrun
dein Beispiel tut es leider nicht-
es kommt nur #WERT!
Sorry
Rolf

Re: Umwandlung
05.03.2003 17:04:16
Panicman

Hallo Rolf,

Bereich makieren und Makro starten

Gruß
Holger

Anzeige
Re: Umwandlung
05.03.2003 19:25:12
Rolf

Hallo,Holger
beim besten Willen will Dein Makro nicht.
Es passiert garnichts,dochwohl kan es den
Bereich mit nötigem Text nicht finden.
Sehr schade.
Gruss
Rolf

Re: Umwandlung
05.03.2003 19:33:52
Panicman

Hallo Rolf,

du hast doch bevor du das Makro gestartet hast den bereich makiert ? Denn das Makro durchsucht nur einen makierten Bereich.
Falls ja, dann lösche mal die Zeilen
"If IsDate(.Text) Then" und
"End If"

Gruß
Holger

Anzeige
Re: Umwandlung
05.03.2003 20:13:45
Rolf

Hallo,Holger
ich habe nicht markiert weil es automatisch
ablaufen soll,man sollte den Bereich genau vorgeben
(A50:A120) aber ich weis nicht wie.
Gruss
Rolf

Re: Umwandlung
05.03.2003 20:24:02
Panicman

Hallo Rolf,

dann so:


Sub FormatTextToDatum()
Dim rngCell As Range
For Each rngCell In Range("A50", "A120")
    With rngCell
        .NumberFormat = "General"
    If IsDate(.Text) Then
        .Value = DateValue(.Text)
    End If
    End With
Next 'rngCell
End Sub
 
     Code eingefügt mit Syntaxhighlighter 1.15

Gruß
Holger

Anzeige
Re: Umwandlung
05.03.2003 21:30:26
Rolf

Hallo,Holger
Deine letzte Variante -ist PRIMA es geht
wunderbar!!!!!
Ich freue mich sehr.
Gute lösung!!
Danke und Grüsse!
Rolf

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige