Hallo Mandy,
wenn Du Dir in dem Makro mal den grünen Text durchgelesen hättest, so hättest Du sicherlich bemerkt, dass das Makro nur für Spalte A ausgelegt war und Du für eine andere Spalte eine Zahl hättest ändern müssen. Das habe ich nun für Dich erledigt und Dir nachfolgend das Makro für Spalte B nochmals aufgeführt.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Text_in_Datum()
Dim lngRow As Long
Application.ScreenUpdating = False
'Daten in Spalte A werden in Datum geändert. Bei einer anderen Spalte die Zahl 1 in dem Text _
Cells(Rows.Count, 1)" und "Cells(lngRow, 1)" gegen eine andere Spaltenindexzahl z.B. für _
Spalte B eine 2 , auswechseln
For lngRow = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If IsDate(Cells(lngRow, 2)) Then
With Cells(lngRow, 2)
.NumberFormat = "m/d/yyyy"
.Value = CDate(.Value)
End With
End If
Next
End Sub
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
