in einer Spalte steht z.B. 650.54kg. Dies ist Text und soll in eine Zahl umgewandelt werden. Statt "kg" kann auch "mm" stehen. Kann man das Makro so anpassen, dass die Zellen, die umgewndelt werden sollen vorher markiert und abgefragt wird, ob das anschließende Bebutzer definierte Format Standard "mm" oder Standard "kg" haben soll. Mit meienm Makro wird der Punkt in ein Komma gewandelt un mm oder KG entfernt, Dann wird das entsprechende Benutzer definierte Format auf Standard "mm" oder Standar "kg" gesetzt. Hier habe ich mein Muster Makro mit Rekorder:
Sub kg_TextInZahl()
ActiveCell.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Find(What:=".", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Range("V3").Select
ActiveCell.Replace What:="kg", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Find(What:="kg", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Range("V3").Select
Selection.NumberFormat = "General ""kg"""
End Sub
Freue auf jede Hilfe.
Gruß, Dieter(Drummer)