Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelle mit Datum in Anführungszeichen ohne Punkte

Zelle mit Datum in Anführungszeichen ohne Punkte
21.02.2019 09:49:57
Marco
Hallo,
ich habe in Spalte H Zellen mit folgenden Datumsformat "19.02.2019"
Da die Einträge in Anführungszeichen stehen, bekomme ich die Punkte per VBA nicht raus.
Das Ergebnis soll "19022019" sein - also das Datum mit Anführungszeichen.
Kann mir Jemand helfen, die Punkte da raus zu bekommen? Bin am verzweifeln...
Gruß Marco

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zelle mit Datum in Anführungszeichen ohne Punkte
21.02.2019 09:57:40
Nepumuk
Hallo Marco,
teste mal:
Public Sub Test()
MsgBox Replace(Range("A1").Text, ".", vbNullString)
End Sub

Gruß
Nepumuk
AW: Zelle mit Datum in Anführungszeichen ohne Punkte
21.02.2019 10:10:26
Marco
Mein bisherigen, falscher Code war:
Sub Datumneu()
Sheets("Buchungsliste").Select
Range("H2:H1500").Select
Selection.NumberFormat = "ddmmyyyy"
End Sub
Wie baue ich jetzt dein funktionierenden Befehl ein?
Zelle mit Datum in Anführungszeichen ohne Punkte
21.02.2019 10:17:54
Nepumuk
Hallo Marko,
teste mal:
Public Sub TransformDate()
Dim avntValues As Variant
Dim ialngIndex As Long
With Worksheets("Buchungsliste")
avntValues = .Range(.Cells(2, 8), .Cells(.Rows.Count, 8).End(xlUp)).Value
For ialngIndex = 1 To UBound(avntValues, 1)
avntValues(ialngIndex, 1) = Replace(avntValues(ialngIndex, 1), ".", vbNullString)
Next
.Range(.Cells(2, 8), .Cells(.Rows.Count, 8).End(xlUp)).Value = avntValues
End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Zelle mit Datum in Anführungszeichen ohne Punkte
21.02.2019 10:36:23
Marco
Super, klappt.
Vielen DANK !!!!!
=""""&WECHSELN(WECHSELN(A1;"""";);".";)&""""
21.02.2019 12:06:46
WF
warum das per VBA so ein Aufwand ist ... ?
WF
=WECHSELN(A1;".";)
21.02.2019 12:20:09
WF
.
AW: Zelle mit Datum in Anführungszeichen ohne Punkte
21.02.2019 12:23:27
Daniel
HI
Columns(8).Replace ".", "", xlpart
Gruß Daniel

343 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige