Hallo Community :-)
Aus der Kramkiste .-)
Gruß Nighty
1)Genutzter Bereich als Text formatieren
2)Datei Import
3)Makrostart
Gruß Nighty
Der zu nutzende Bereich in der zweiten Zeile anpassen
[code]Sub Wechsel()
Dim Zelle As Range
For Each Zelle In Range("A2:A" & ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row)
If InStr(Cells(Zelle.Row, Zelle.Column), ",") > 0 And InStrRev(Cells(Zelle.Row, Zelle.Column), ",") > 0 And InStr(Cells(Zelle.Row, Zelle.Column), ",") <> InStrRev(Cells(Zelle.Row, Zelle.Column), ",") Then
Cells(Zelle.Row, Zelle.Column).Replace What:=",", Replacement:="."
Cells(Zelle.Row, Zelle.Column).NumberFormat = "d/m/y"
End If
If InStr(Cells(Zelle.Row, Zelle.Column), ".") > 0 And InStr(Cells(Zelle.Row, Zelle.Column), ".") = InStrRev(Cells(Zelle.Row, Zelle.Column), ".") Then
Cells(Zelle.Row, Zelle.Column).Replace What:=".", Replacement:=","
Cells(Zelle.Row, Zelle.Column).NumberFormat = "0.00"
End If
Next Zelle
End Sub[/code]