unterschiedliches Verhalten in Excel und per VBA?
20.02.2008 13:08:49
Michael Dirksen
Hallo,
ich habe eine Tabelle die Datumsangaben enthält, diese sind aber irgedwie so eingegeben dass sie Excel nicht als Datum erkennt und entsprechend formatiert (tt,mm,jj).
Wenn man in Excel manuell die Funktion "Daten-Text in Spalten.." aufruft werden die Datumswerte korrekt erkannt. (man kann auch einfach einmal in die Zelle klicken und schon funktionierts...)
Ich habe daher ein Makro geschrieben (s.u.)
Das Makro läuft, nur die Termine werden nicht konvertiert.... Warum?
Oder wenn jemand eine anderen Lösungsansatz damit das Datum erkannt wird das wäre auch klasse.
Vielen Dank für Hilfe!!!!
ciao
Michael
Private Sub termineKOrrektur()
Dim Dateitab As String
Dim i As Long
Dateitab = ActiveSheet.Name
Worksheets("Termine").Activate
Worksheets("Termine").Unprotect
' text werte durch die Excel Standard zell formate ersetzen für korrekte Funktion der _
Serienbriefe
Sheets("Termine").Range("G1").Value = "Name_Vertreter"
For i = 1 To 20
Sheets("Termine").Columns(i).Select
Selection.TextToColumns Destination:=Cells(1, i), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Next i
Worksheets(Dateitab).Activate
ende:
End Sub