Ich möchte gerne einenBestimmten Bereich inmeiner Tabelle Löschen aber nur die Inhalte und die Farbe. Die Rahmenund Formeln sollen erhalten bleiben.
weis jemand wie das Makro aussehen müsste
Grüße Fred
Sub Makro1()
' Makro1 Makro
' Makro am 09.02.2008 von Andy aufgezeichnet
Range("B4:E22").Select
Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
End Sub
allerdings lösche ich mit dem 'inhalt' auch die formeln (entspricht schließlich dem drücken der enf-taste.
aber das war ja dein wunsch...
gruß
Andy!
Dim rg1 As Range, rg2 As Range
'Aktionsbereich: alle markierten Zellen
Set rg1 = Selection
'alle markieren Zellen durchlaufen
For Each rg2 In rg1
If Not rg2.HasFormula Then
'wenn in der Zelle keine Formel steht
rg2.ClearContents
End If
'Hintergrundfarbe
rg2.Interior.ColorIndex = xlNone
'Schriftfarbe
rg2.Font.ColorIndex = 0
Next rg2
Set rg1 = Nothing
Set rg2 = Nothing
Gruß von Luschi
aus klein-Paris
Private Sub CommandButton1_Click()
Range("B39:AF39").SpecialCells(xlCellTypeConstants).ClearContents
Range("B39:AF39").Interior.ColorIndex = xlNone
End Sub
Grüße Fred