Datumtext zu "echtem" Datum ...

... wo eine serielle Zahl dahinter steckt.
Liebe Forum
Ich muss eine Spalte mit Daten (Mehrzahl von Datum?) auswerten. Doch die Quelldatei liefert mir zwar das Datum (optisch), jedoch als Text.
Deshalb will ich dies umwandeln mit folgendem Code. Dieser Code wird aus verschiedenen Tabellen aufgerufen und es soll jeweils im aktiven Worksheet ablaufen.
Mein Problem (hoffentlich nur dies): mir ist nicht klar, was ich vorkehren muss, damit dieser code jeweils nur im aktiven Worksheet läuft. Wenn ich zudem noch begrenzen könnte, dass er nur in den Tabellen (VBA-Name) Tabelle11, Tabelle12, Tabelle 13 und Tabelle 14 laufen darf, wäre dies ein zusätzliches Plus (mit Case?).
Danke für ein Feedback.
Peter


Sub datum()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim lngRow As Long, lngC As Long
lngRow = 8
For lngC = lngRow To 1000
'Application.StatusBar = "Eintrag in Zeile " & lngRow
Worksheets(activeworksheet).Cells(lngRow, 4) = CDate(lngC)
lngRow = lngRow + 1
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.StatusBar = ""
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Datum() With ActiveSheet Select Case .CodeName Case "Tabelle11", "Tabelle12", "Tabelle13", "Tabelle14" .Columns(4).TextToColumns Destination:=.Cells(1, 4), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 1), TrailingMinusNumbers:=True End Select End With End Sub

Sub TtoD() With ActiveSheet Select Case .CodeName Case "Tabelle11", "Tabelle12", "Tabelle13", "Tabelle14" .Range(Cells(8, 4), Cells(1000, 4)).TextToColumns Destination:=.Cells(8, 4), _ DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 1), TrailingMinusNumbers:=True End Select End With End Sub

Sub Datum() Dim rngC As Range With ActiveSheet Select Case .CodeName Case "Tabelle11", "Tabelle12", "Tabelle13", "Tabelle14" Application.ScreenUpdating = False For Each rngC In .Range(.Cells(8, 4), .Cells(65536, 4).End(xlUp)) rngC.NumberFormat = "General" rngC = CDate(rngC) Next Application.ScreenUpdating = True End Select End With End Sub

Sub exTextneuDate() Dim xRow As Long Dim rngC As Range With ActiveSheet lngRow = .Cells(3, 5).Value Select Case .CodeName Case "Tabelle11", "Tabelle12", "Tabelle13", "Tabelle14" Application.ScreenUpdating = False Application.StatusBar = "" For Each rngC In .Range(.Cells(8, 4), .Cells(lngRow, 4)) rngC.NumberFormat = "General" rngC = CDate(rngC) Next Application.ScreenUpdating = True End Select End With End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datumtext zu "echtem" Datum ...

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread