Formatierungen sollen stehen bleiben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo MaBlu,
aus der Excel-Online-Hilfe zu Range-ClearContents:
In diesem Beispiel werden Formeln und Werte aus den Zellen A1:G37 in Blatt1 gelöscht, die Zellenformatierung und die bedingte Formatierung bleiben jedoch erhalten.
Und wenn man im Tabellenblatt ein ListObjekt (formatierte Tabelle) hat, dann sollten die _ Zellreferenzen auf dieses Objekt zeigen und nicht auf feste statische t+Zelladressen, hier mal mein Code dazu:


Sub Erledigte()
'30.01.2020 Rudi Maintaire
'06.02.2020 changed by Luschi
Dim rg1 As Range, rg2 As Range, lstObj As ListObject, _
i As Integer
Application.EnableEvents = False
With ActiveSheet
.Unprotect ("")     ' Schutz auf Tabelle setzen
Set lstObj = .ListObjects("Tabelle3")
End With
With lstObj
i = .HeaderRowRange.Row    ' ZeilenNr. der ?berschrift
With .ListColumns("Status")  ' Spalte mit der ?berschrift 'Status'
''Debug.Print .DataBodyRange.Address
For Each rg1 In .DataBodyRange  ' alle Daten-Zellen der Status-Spalte durchlaufen
If rg1.Value = "erledigt" Then
'nur ben?tigten Zellbereich im Listobjectt z.B. 'A6:K6'
'und nicht ganze Teile!
Set rg2 = Worksheets("ToDo-Liste").ListObjects("Tabelle3").DataBodyRange.Rows( _
rg1.Row - i)
With Worksheets("ToDoerledigt")
rg2.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Cells(1, 1).Resize(1,  _
rg2.Columns.Count)
End With
rg2.Value = ""  'Zellen leeren nicht plattmachen
End If
Next rg1
End With
End With
' Schutz auf Tabelle setzen
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:= _
True
'slle selbstdefinierten Object zerst?ren
Set rg1 = Nothing: Set rg2 = Nothing: Set lstObj = Nothing
Application.EnableEvents = False
End Sub

Gruß von Luschi
aus klein-Paris

Hallo Franz
Vielen Dank dass du mich hier Unterstützen möchtest, zu deinen Fragen
1.Das Kopieren nach ToDoerledigt macht das Makro Sub Erledigte() eigentlich ganz gut und meiner Meinung nach richtig. Einzig in Spalte J kommt die Formel mit, ist aber OK für mich wenn ich nämlich etwas wieder aufnehmen muss das versehentlich in die erledigt Liste gekommen ist kann ich es wieder auf Bearbeiten stellen, das Datum bleibt als Text.
2. wenn möglich sollten nur die Werte gelöscht werden Zellen A :I & K, dann wäre die Liste leer und könnte durch sortieren wieder bereitstehen für neue Termine mit allen Formaten.
b) danach sortieren so dass die Leere Zeile wider unten ist
3. Fehler der Formel in Spalte J muss ich noch korrigieren die Formel sollte immer gleich sein! Hier muss ich noch nachbessern. beim Hinzufügen einer Zeile sollten alle Formate und Formeln wie bisher mit eingefügt werden.
4.vor Formatieren, da weiss ich nicht wie ich das besser machen kann?
5.Das habe ich bewusst nicht so gemacht weil mein Gedanke der war hier werden viel mehr Daten landen als in der ToDo-Liste, und da hätte ich viel mehr vor Formatieren müssen.
Ich hoffe ich konnte mich klar ausdrücken wenn nicht Frage bitte nach, vorab besten Dank.
Freundliche Grüsse
MaBlu

Beliebteste Forumthreads (12 Monate)

Formatierungen sollen stehen bleiben

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formatierungen sollen stehen bleiben

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread