Löschen & neu Einfügen
26.05.2006 12:18:05
Heinz H
Habe unteren Code mittels Recorder aufgezeichnet.
Es sollte im Tab.Blatt "Test" E4:M12 die Werte nach "Ausdruck" A1:I9 Kopieren.
Wenn Werte in A1:I9 stehen diese vorher löschen.
Es sollten aber auch die verschiedenen Zellfarben generell gelöscht werden.
Also das nur Werte ohne Zellenfarben drinnen stehen.
Könnte mir dabei Bitte jemand helfen.
Danke Heinz
Private Sub CommandButton1_Click()
Range("E4:M12").Select
Selection.Copy
Sheets("Ausdruck").Select
Range("A1:I9").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Sheets("Test").Select
Selection.Copy
Sheets("Ausdruck").Select
ActiveSheet.Paste
Selection.Interior.ColorIndex = xlNone
End Sub