Laufzeitfehler bei Text in Spalte die Za

Hallo zusammen,
ich habe das kleine Problem das ich nicht lösen kann.
Ich nutze eine SAP DWL und strukturiere das Format so das es leichter zu lesen ist.
Aus SAP ist es systembedingt so das Zahlenkolonnen mit führender Null diese Null dann abgeschnitten ist.
das Problem habe ich folgendermaßen gelöst.
''Fürende 0 bei Funktionsbereich und Fipo
Set rg = ws1.Range("A1:Z1").Find(what:="Send. Fber")
If Not rg Is Nothing Then
ws1.Columns(rg.Column).NumberFormat = "0000000"
For Zeile = 2 To LZ
ws1.Cells(Zeile, rg.Column) = CCur(ws1.Cells(Zeile, rg.Column))
Next
End If
Set rg = ws1.Range("A1:Z1").Find(what:="S.Fipos")
If Not rg Is Nothing Then
ws1.Columns(rg.Column).NumberFormat = "000000000"
For Zeile = 2 To LZ
ws1.Cells(Zeile, rg.Column) = CCur(ws1.Cells(Zeile, rg.Column))
Next
End If
Nun ist es aber so das in der Spalte "Send. Fber" seit neuesten auch echter Text auftaucht der ignoriert werden muss.
Im Moment ist es so das der echte Text dann einen Laufzeitfehler bringt.
Wie kann ich den Laufzeitfehler an dieser Stelle übergehen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With ws1 Set rg = .Range("A1:Z1").Find(what:="Send. Fber") If Not rg Is Nothing Then .Columns(rg.Column).NumberFormat = "0000000" For Zeile = 2 To LZ If IsNumeric(.Cells(Zeile, rg.Column)) Then ws1.Cells(Zeile, rg.Column) = CCur(ws1.Cells(Zeile, rg.Column)) End If Next Zeile End If Set rg = .Range("A1:Z1").Find(what:="S.Fipos") If Not rg Is Nothing Then .Columns(rg.Column).NumberFormat = "000000000" For Zeile = 2 To LZ If IsNumeric(.Cells(Zeile, rg.Column)) Then .Cells(Zeile, rg.Column) = CCur(ws1.Cells(Zeile, rg.Column)) End If Next Zeile End If End With

Hi
Ist CCur als Umwandlung zwingend oder reicht auch ein normales CDbl?
Wenn die normale Umwandlung reicht, kannst du auch einfach die Menüfunktion Daten - Datentools - Text in Spalten auf die Spalte anwenden, um als Text formatierte Zahlen in echte Zahlen zu wandeln.
Das stört sich nicht an Texten zwischen drin und sollte auch schneller sein als so eine Schleife.
Du solltest nur wenn du das per VBA ausführst, immer FAS Dezimalzeichen angeben. (Im Assistenten Schritt 3 WEITERE)
Ansonsten verwendet VBA immer den Punkt als Dezimalzeichen, während bei der von-Hand-ausführung dasjenige der Ländereinstellung verwendet wird. (Hier komma)
Ansonsten wie von Werner gezeigt mit IsNumeric prüfen, ob der Wert in eine Zahl gewandelt werden kann.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler bei Text in Spalte die Za

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread