Office: Letzte Zeile kopieren, anfügen, Kommentare und Inhalte löschen

Hallo,

mit dem Code

PHP:

         Sub letze_kopieren_und_anhängen()
With Cells(Rows.Count, 1).End(xlUp)
.EntireRow.Copy .Offset(1, 0)
.Offset(1, 0).EntireRow.SpecialCells(xlCellTypeConstants).ClearContents
End With
End Sub


:)

 

Moin
Nicht mitkopieren.
Code:

Brauchst du wirklich die gesamte Zeile?
gruss hary

 

Hallo hary,

zunächst einmal vielen Dank. Die Kommentare der darüberligenden Zeile werden bei der Verwendung des Codes

PHP:

         With Cells(Rows.Count, 1).End(xlUp)
.EntireRow.Copy
.Offset(1, 0).PasteSpecial Paste:=xlFormulas
End With


 

Hallo,

habe noch etwas getestet!

Wenn ich beim einfügen neuer Mitarbeiter mit der Methode arbeite, bei denen die "bedingten Formatierungen" erhalten bleiben, dann ist das Ergebnis zwar optisch (bis auf die mitkopierten Kommentare), aber nicht inhaltlich perfekt.

Anstatt, dass der Zellbereich der bedingten Formatierungen genau um jeweils eine Zeile erweitert wird, legt Excel eine neue "bedingte Formatierung" genau für diese eine Zeile an.

Deshalb erlebe ich wohl auch immer wieder Tabellen, bei denen das Fenster der "bedingten Formatierungen" kilometerlange Listen anzeigt.

Wie muss denn beim noramlen, als auch beim kopieren und einfügen per VBA vorgegangen werden, damit sich der Bereich der bedingten Formatierung erweitert, anstatt dass jeweils eine neue angelgt wird? Oder handelt es sich hierbei um eine Excel-Schwäche, für die es noch keine Lösung gibt?

 

Hallo,

ich hab' mir Deine zusätzlichen Erläuterungen nicht weiter durchgelesen, aber zu Deiner 1. Frage im Prinzip genauso wie beim Inhalte löschen:

Gruß, Muller2

 

Hallo Muller2,

vielen Dank für deine Lösung! Durch die Abfrage der Hilfe zu "SpecialCells" kam ich zwar auch schon auf die Anweisung:

.SpecialCells(Type:=xlCellTypeComments).ClearComments,

aber nicht auf die Idee, beide durch ein With/End With zu verbinden.

Ich stehe halt mit der Syntax von VBA noch sehr auf dem Kriegsfuß. Aber mit diesem Beispiel fange ich nun langsam an, den Sinn von With/End With zu verstehen.

Allerdings musste ich feststellen, dass zumindest nach meinem empfinden hier Excel bzw. VBA etwas unlogisch arbeitet.

Werden nicht vorhandene Zellinhalte gelöscht, dann produziert dies keine Fehlermeldung. Aber das löschen von nicht vorhandenen Kommentaren produziert eine Fehlermeldung und muss somit durch eine On Error-Anweisung abgefangen werden.

 

Moin
Hast du es schon versucht mit:
Bereich als Tabelle?
Und ja, Excel haemgt beim kopieren die bedingten Formatierungen immer neu huebsch unten ran.
gruss hary

 

Moin hary,

ich arbeite inzwischen teilweise recht gern mit der Funktion "Als Tabelle formatieren", habe es auch hier gerade noch einmal getestet. Aber auch in diesem Fall werden die "bedingten Formatierungen" für jede neue Zeile einzeln kopiert, anstatt, dass der von/bis-Bereich nur um eine Zeilennummer erhöht werden würde.

Weiterhin ist in diesem Fall sehr störend, dass alle Spalten, auch die unsinnigen, mit dem Filtersymbol vershen werden, die auch nicht einzeln entfernt werden können.

Wegen der bedingten Formatierungen habe ich gestern noch eine Weile gegoogelt. Mit dem Ergebnis, dass dies wohl noch eine echte Excelschwäche ist.

Hatte letztes bei uns in der Firma für eine bedingte Formatierung den Inhalt von "wird angewendet auf" in ein Worddokument kopiert. Mit dem Ergebnis, dass dies in Word dann rund 1,5 Seiten waren.

Und dies in einer Tabelle, in die nur, in einer vorhandenen Mitarbeiter/Kalendermatrix, Abwesenheitsarten eingetragen werden.

Dabei handelt es sich um eine Abteilungstabelle, in die nur relativ selten Spalten für neue Mitarbeiter eingefügt werden.

Ich konnte bis jetzt noch nicht herausfinden, durch welche Aktionen die Bereich der bedingten Formatierungen so zerfleddert wurden.