Einzelnen Beitrag anzeigen

Benutzerbild von Duffy
Duffy

Registriert seit: 19. Mär 2003
Ort: Wuppertal
835 Beiträge
 
Delphi 3 Standard
 
#5

Re: Seltsames Excel-Problem

  Alt 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
-----
  Mit Zitat antworten Zitat