Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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!

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

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige