test in zahl/problem bei leerer Zelle
17.08.2022 11:09:02
Fred
ich wandel Text in Zahl bisher so um:
Sub text_in_Zahl()
Dim Zelle As Range
LZ_Depot3 = ThisWorkbook.Sheets("Depot").Cells(Rows.Count, 2).End(xlUp).Row
For Each Zelle In Sheets("Depot").Range("CA11:EL" & LZ_Depot3)
Zelle.Value = CDbl(Zelle.Value)
Next Zelle
End Sub
Klappt,- solange keine Leerzelle vorhanden ist. - Dann kommt Fehlermeldung (Typen unverträglich, 13)Wie umgehe ich dieses Problemchen am besten?
Gruss Fred