Registriert seit: 19. Mär 2003
Ort: Wuppertal
835 Beiträge
Delphi 3 Standard
|
Re: Seltsames Excel-Problem
8. Dez 2003, 19:46
Hallo Eddy,
folgendes Makro sollte helfen.
Code:
Sub RepairNumber()
Cells(1, 1).Select
ActiveCell.CurrentRegion.Select
Zeilen = Selection.Rows.Count
Spalten = Selection.Columns.Count
For I = 1 To Zeilen
For J = 1 To Spalten
Cells(I, J).Value = Cells(I, J).Value2
Next J
Next I
Cells(1, 1).Select
End Sub
bye
Claus
Künftige Generationen wollen ihre Fehler selber machen.
Jedes Programm wird nie das können, was Du wirklich brauchst.
Das Gegenteil von gut ist gut gemeint
-----
|