Nullen löschen
18.12.2007 14:54:00
Markus
ich kopiere Werte in verscheidene Bereiche eines Worksheets und möchte im Zielbereich anschließend eingefügte Nullen löschen. Im Zielbereich ist das Zahlenformat in "0,00" definiert.
Mit diversen Vorschlägen hier im Forum habe ich folgenden Code erzeugt, bei dem der Copy&Paste Teil auch funktioniert. Das Löschen der Nullen bereitet noch Probleme.
Sub kopierenundloeschen()
Worksheets("Tabelle1").Range("F101:L189").Copy
With Worksheets("Zieltabelle").Range("F101:L189")
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
With ThisWorkbook.Worksheets("Zieltabelle")
Range("F101:L189").Select
With Selection.Replace("0", "")
End With
End With
End Sub
Wer kann mir meinen Fehler nennen?!
Markus