sorry muss mich korregieren
Hallo Mackie,
vielen Danke für die Info, funktioniert.
Ich habe das script jetzt abgeändert auf den Zellenbereich A3:D und funktioiert prima. Danke für die Info
Jetzt kommt nochmal eine Spalte E hinzu, in der Spalte E von E3-E100000 stehen Single Werte wie 2,1, 3,2, 4,6, 1,1.
Dafür habe ich jetzt zum script hinzugefügt:
Dim cell
For Each cell In Worksheets("Tabelle1").Range("A3:D" & Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row)
If cell <> "" Then cell.Value = Val(cell)
Next cell
Dim zelle
For Each zelle In Worksheets("Tabelle1").Range("E3:E" & Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row)
If zelle <> "" Then zelle.Value = CDbl(zelle)
Next zelle
Leider macht er mir die Umwandlung nicht und bringt mir die Fehlermeldung:
Es ist ein Fehler aufgetreten. Fehlernummer 13. Fehlerbeschreibung: Typen unverträglich.
Hättest Du da nochmal eine Idee was man machen kann?
|