Makro funzt net :-(
Maris
diese Makro fügt einen kopierten Wert in eine Zelle in Excel ein. Leider bekomme ich egal was ich mache immer als 1000er Separator ein Komma rein deswegen dieser Makro:
Sub text_einfuegen()
' Tastenkombination: Strg+x
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
.NumberFormat = "@"
.Value = Replace(ActiveCell.Value, ",", "")
End With
End Sub
Er macht auch alles was ich will nur das Komma ist trotzdem drin!Kann mir jemand diesen Makro anpassen? Er soll wirklich nur die inhalte als text einfügen und falls ein Komma vorkommt dieses entfernen...
Gruß
Maris