Microsoft Excel

Herbers Excel/VBA-Archiv

Löschen ohne formatierung zu verändern | Herbers Excel-Forum


Betrifft: Löschen ohne formatierung zu verändern von: Steve
Geschrieben am: 18.02.2012 15:27:44

Hallo

habe noch ein anderes problem,

wie kann ich mit VBA den inhalt von bestimten zellen löschen ohne die Formatierung zu verändern?

Das heisst, wen ich in der aktivierte reihe zelle Ax:Cx lösche und die unteren zellen nach oben verschiebe habe ich irgendwann die bedingte formatierung nicht mehr.

Gibt es da eine möglichkeit das zu umgehen oder automatisch die bedingte formatierung wieder zu setzen?

Danke

Steve

  

Betrifft: AW: Löschen ohne formatierung zu verändern von: Hajo_Zi
Geschrieben am: 18.02.2012 15:48:45

Hallo Steve,

übertrage die Formatierung auf die gesamte Spalte.

GrußformelHomepage


  

Betrifft: AW: Löschen ohne formatierung zu verändern von: Tino
Geschrieben am: 18.02.2012 15:52:52

Hallo,
am einfachsten wäre "denke ich" die Bedingte Formatierung für die
komplette Spalte zu setzen und nicht nur bis zu einer bestimmten Zeile.
Dies ist bei manschen aufbauten nicht möglich,
dann würde ich mir aber ein anderes konzept für den aufbau ausdenken.
Eine andere Variante wäre mit VBA diese immer wieder neu zu erstellen.

Gruß Tino


  

Betrifft: AW: Löschen ohne formatierung zu verändern von: Uwe (:o)
Geschrieben am: 18.02.2012 15:53:47

Hallo Steve,
ich weiß nicht, ob ich Dich richtig verstehe.
Willst Du einfach nur den Inhalt löschen?
Dann mit:

Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 3)).ClearContents

oder einer ähnlichen Konstruktion.

Gruß
Uwe
(:o)


  

Betrifft: AW: Löschen ohne formatierung zu verändern von: Steve
Geschrieben am: 18.02.2012 15:59:51

Besten Dank an alle!!

Ich werde mal sehen was ich machen werde.
Wenn ich die Spalten komplett mi der bedingten formatierung versehen will, muss ich die gestaltung vom Blatt ändern.

Sobald ich wieder eine frage habe melde ich mich :)

Steve


  

Betrifft: AW: Löschen ohne formatierung zu verändern von: Reinhard
Geschrieben am: 18.02.2012 15:55:15

Hallo Steve,

meinst du so evtl.so

Sub nn()
With ActiveCell
  .EntireRow.Range("A1:C1").Copy
  .EntireRow.Range("A1:C1").Offset(1, 0).PasteSpecial xlPasteFormats
  .EntireRow.Range("A1:C1").Delete
End With
End Sub

Gruß
Reinhard


Beiträge aus den Excel-Beispielen zum Thema "Löschen ohne formatierung zu verändern"