Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich löschen aber nur Farbennd Inhalt

Forumthread: Bereich löschen aber nur Farbennd Inhalt

Bereich löschen aber nur Farbennd Inhalt
09.02.2008 20:45:18
Fred
Hallo zusammen
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

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich löschen aber nur Farbennd Inhalt
09.02.2008 20:54:42
Andy
hallo fred,
mein makrorekorder hat mir das folgende ausgespuckt (was keine zauberei war):

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!

Anzeige
AW: Bereich löschen aber nur Farbennd Inhalt
09.02.2008 21:09:21
Luschi
Hallo Fred,
versuch es mal so: 

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

Anzeige
AW: Bereich löschen aber nur Farbennd Inhalt
09.02.2008 21:15:00
Fred
Hallo zusammen
VielenDank
für eure Mühe.
Habe mich für Folgendes entschieden.

Private Sub CommandButton1_Click()
Range("B39:AF39").SpecialCells(xlCellTypeConstants).ClearContents
Range("B39:AF39").Interior.ColorIndex = xlNone
End Sub


Grüße Fred

Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige