vba: Langes Format auf Spalte anwenden mit Fähler

21/09/2009 - 14:15 von Erik Harren | Report spam
Moin!

Mit nachstehender Funktion versuche ich einem Spaltenbereich nach einem
Import die überflüssigen Leerzeichen zu entfernen und anschließend in
das Log Time-Format (DD.MM.YYYY hh:mm:ss) zu überführen.

In der Zeile w=Trim steigt der Debugger allerdings mit Fehler 91 aus.

Welchen Fàhler habe ich eingebaut?

Sub TrimmDichEH()
Dim TmpSpalte As Range
Dim TmpZelle As Range
Dim w As Range

'Ich brauch das lange Format und muss einige Leerzeichen am Anfang
'und Ende rausschmeißen

Set TmpSpalte = Range("A2:A9999")
For Each TmpZelle In TmpSpalte
w = Trim(TmpZelle.Text)
If InStr(w, ":") > 0 Then w = Format(w, "Long Time")
TmpZelle.Value = w
Next
End Sub

Gruß und Danke,

Erik.
 

Lesen sie die antworten

#1 Claus Busch
21/09/2009 - 15:27 | Warnen spam
Hallo Erik,

probiers mal so:
Sub LangesDatum()

Dim LRow As Long
Dim rngZelle As Range

LRow = Cells(Rows.Count, 1).End(xlUp).Row
For Each rngZelle In Range("A2:A" & LRow)
If InStr(rngZelle, ":") > 0 Then
rngZelle.NumberFormat = "mm/dd/yyyy h:mm:ss"
rngZelle = CDate(Trim(rngZelle))
End If
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen