Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1464to1468
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
Inhaltsverzeichnis

Datum (Text) in Zahl wandeln

Datum (Text) in Zahl wandeln
06.01.2016 18:40:01
Michael
Guten Abend,
ich schaffe es einfach nicht, mit VBA das Datum (Text) in Spalte A in ein Datum (Zahl) umzuwandeln.
Alle in Netz gefundenen Makros und Ratschläge versagen.
Wer kann mir bitte helfen?
Hier die Beispieldatei:
https://www.herber.de/bbs/user/102628.xlsx
Vielen Dank
Michael

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum (Text) in Zahl wandeln
06.01.2016 18:46:36
Sepp
Hallo Michael,
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub umwandeln()
Range("A:A").TextToColumns Destination:=Range("A1"), _
  DataType:=xlDelimited, _
  TextQualifier:=xlDoubleQuote, _
  ConsecutiveDelimiter:=False, _
  Tab:=True, _
  Semicolon:=False, _
  Comma:=False, _
  Space:=False, _
  Other:=False, _
  FieldInfo _
  :=Array(1, 4), _
  TrailingMinusNumbers:=True
End Sub

Gruß Sepp

Anzeige
Was ist daran nicht zu schaffen, ...
06.01.2016 18:48:20
Luc:-?
…Michael?
Einfach nur den Bereich auswählen! ;-)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xZ As Range
For Each xZ In Target
xZ = CDate(xZ)
Next xZ
End Sub
Gruß, Luc :-?

kleine Schleife
06.01.2016 18:49:07
Michael
Hi Namensvetter,
versuch mal das Makro:
Sub DatumRichtig()
Dim i&
For i = 2 To 32: Range("A" & i).Value = DateValue(Range("A" & i).Value): Next
End Sub
Schöne Grüße,
Michael

DANKE!
06.01.2016 18:58:56
Michael
Hallo Ihr Drei,
alle drei Lösungen funktionieren.
Offensichtlich bin ich für VBA zu blöd...!
Vielen Dank auch, der Abend ist für mich gerettet.
Michael

Anzeige
alle drei wieder "aufgewacht"...
06.01.2016 19:21:36
Michael
... bzw. zur Erholung vom Feiertagsstress am Rechner ;).
Es freut mich insbesondere, daß Du alle 3 getestet hast.
Gerne wieder und schöne Grüße,
Michael

333 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige