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
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
Anzeige