Punkt & Komma

[Topology]

Hallo =) 

habe wie wild herumgesucht =(

wiso funktioniert dieser code nicht?
habe dies als Makro aufgezeichnet 

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

End Sub

Möchte die ganze Tabelle durchsuchen und das "," in "." ändern.

Wenn ich es mit Suchen/Ersetzen mache auserhalb VBA funktioniert es wunderbar!




Grüße,

[schauan]

Hallo,

ich glaube nicht, dass der Code beim Aufzeichnen in das Private Workbook ... geschrieben wurde.
Wenn Du die ganze Tabelle durchsuchen willst, lässt Du in so wie aufgezeichnet und startest den Code z.B. mit F5 oder einem Button ...