Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1116to1120
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

Spalte lässt sich nicht formatieren

Spalte lässt sich nicht formatieren
Joachim
Hi,
habe hier ein ganz komisches Problem. Es geht um ein Template, welches von einem Notes-System mit Daten gefüllt wird. In dem Template gibt es eine Spalte mit Datum. (Es steht zumindest das Datum drin)
Wenn ich das Format anschaue, steht es auf Standard.
Diese Spalte wollte ich in Zahl umwandeln. Das lässt sich aber nicht machen. Ich kann die Spalten umformatieren, wie ich will. Es scheint so als seit diese Spalte Text.
Wie bekomme ich diese Spalte (wenn es Text ist) in eine Zahl formatiert.
Danke
Joachim

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spalte lässt sich nicht formatieren
23.11.2009 10:46:38
Tino
Hallo,
schau Dir mal die Funktion Text in Spalte an, da kannst Du als Ausgabeformat Datum angeben.
Zellen zuvor auf Standard Formatieren.
Userbild
Gruß Tino
AW: Spalte lässt sich nicht formatieren
23.11.2009 11:06:14
fcs
Hallo Joachim,
formatiere die Spalte erst als Standard oder im gewünschten Datums-/Zeitformat.
Dann eine Zelle in der Spalte selektieren und das folgende Makro starten.
Alternativ kannst du in eine Zelle den Wert 1 eingeben. Dann diese Zelle selektieren und kopieren.
Nun die Zellen mit den Datums-Angaben selektieren und via Bearbeiten-Inhalte einfügen-Option Werte und Rechenoperation Multiplikation die Texte in Datumszahlen umwandeln.
Gruß
Franz
Sub DatumKonversion()
Dim wks As Worksheet, Spalte As Long, Zelle As Range
Set wks = ActiveSheet
Spalte = ActiveCell.Column
With wks
If MsgBox("Datumstext in Spalte """ & Replace(Columns(Spalte).Address, "$", "") _
& """ in Exceldatum umwandeln?", vbQuestion + vbOKCancel, _
"Datums-Konversion") = vbOK Then
For Each Zelle In .Range(.Cells(1, Spalte), .Cells(.Rows.Count, Spalte))
If IsDate(Zelle.Value) Then Zelle.Value = CDate(Zelle.Value)
Next
End If
End With
End Sub

Anzeige

356 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige