Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
224to228
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
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Anzeige
Re: Umwandlung
05.03.2003 17:04:16
Panicman

Hallo Rolf,

Bereich makieren und Makro starten

Gruß
Holger

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

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

Anzeige
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige