Office: Wenn in Zelle "X", dann Zeile kopieren

Jetzt habe ich beim Zeitstempel doch noch ein Problem entdeckt.

Und zwar wenn ich eine komplette Zeile lösche, wird der Zeitstempel bei jeder darunter liegenden Zeile neu gesetzt.

Ich vermute das liegt daran, dass durch das Löschen der Zeile sich die unteren Zeilen um 1 Position nach oben verschieben. Kann man das irgendwie ausschließen?

 

Hallo moonr,

Das kann ich mir gut vorstellen: Wenn ich mich recht erinnere, war von Zeilen löschen bisher nicht die Rede.

Dann beschreibe mal kurz, wie Du eine / mehrere (?) Zeilen im Moment löschst. Letzten Endes muß das Makro ja erkennen, was Du tust.
Eine Möglichkeit m.E. wäre, in Sp P ein "y" (statt "x" für Einfügen Zeile) zu setzen.

Gruß
Aloys

 

Ja das mit dem Löschen war mir vorher nicht so bewusst :-)

Ich lösche eigentlich auf eine ganz simple Art: In der linken Leiste gehe ich auf die Zeile -> Rechtsklick -> Zeile löschen

 

Hallo moonr,

Hast Du den Blattschutz ausgeschaltet ?
Bisher ist das Zeilen löschen im Makro nicht vorgesehen und wird dort auch nicht abgefangen.
Mein Vorschlag: RechtsClick auf Zelle Ax, ggf Rückfrage durch Makro, ob wirklich gelöscht werden soll, dann entfernen der Zeile durch Makro.

Gruß
Aloys

 

Ja ich entferne für den Löschvorgang den Blattschutz.

Ich glaub ich steh aber auf dem Schlauch bzgl. deines Vorschlags: Wenn die Zeile entfernt wird, wird doch auch wieder der Zeitstempel ausgelöst, oder?

 

Hallo moonr,

Wenn Dir dieses Vorgehen so viel Spaß bereitet, kanst Du es auch weiterhin tun. Es dürfte jetzt kein Zeitstempel mehr auf die Folgezeilen erfolgen.

Meine Empfehlung aber: RechtClick auf irgendeine Zelle der zu löschende Zeile, dann kommt eine Rückfrage, ob Zeile wirklich gelöscht werden soll.
Das Change-Ereignis wird hierbei unterdrückt, so dass auch keine Zeitstempel vergeben werden. Außerdem ist kein Abschalten des Blattschutzes errforderlich

Das erste Sub ist neu, das zweite ersetzt das bei Dir schon vorhandene.
Code:

Gruß
Aloys

 

Hallo Aloys,

entschuldige meine späte Rückmeldung. Ich hatte mir etwas Urlaub gegönnt :-)

Dein Code funktioniert super. Nur eine Kleinigkeit müsste ich noch dort einbinden ->

Aktuell kann mit dieser Funktion jeder Nutzer in der Datei eine Zeile löschen. Wie müsste ich dies umstellen, dass man nur eine Zeile mit vorheriger Passwort-Abfrage (alternativ: Blattschutz mit Passwort aufheben) löschen kann?

Vielen Dank und Gruß

moonr

 

Hallo moonr,

Wenn ein Password abgefragt wird, um den Benutzer als berechtigt auszuweisen, dann solltest Du das Password in kurzen Abständen ändern, weil Du es ansonsten auch gleich an eine Pinwand nageln könntest.
Alternative: den Windows-Usernamen. Die Namen der berechtigten User könnten zB in einem geschützten und ausgeblendeten Tabellenblatt abgelegt sein.

Gruß
Aloys

 

Dann würde ich eher die Lösung bevorzugen, dass ich alleine nur Zeilen löschen kann. Und das über Blattschutz deaktivieren.

Wie müsste hierfür der Code angepasst werden?

 

Hallo moonr,

meine Empfehlung:

1. lass den Blattschutz wie er ist,
2. nenne mir Deinen User-Namen der Windows-Sitzung, wozu Du Dich sicherlich mit Password anmelden mußt, und ich ändere den Code entsprechend, so dass nur User 'moonr' die Zeile löschen darf.

Gruß
Aloys

 

Lassen wir mal als Beispiel moonr als Windowsusername nehmen

 

Hallo moonr,

dann tausche mal die Prozedur für den RechtsClick aus.
Code:

 

Funktioniert klasse Aloys, vielen Dank!!

 

Aloys ich habe noch eine andere Baustelle, wo ich dein Know-how benötige :-)

Und zwar habe ich einen Button, der ein Reporting generiert. D.h. er zieht sich aus der Datenbank gewisse Informationen, wandelt diese in ein PDF um und hängt es als Anhang an eine Mail in Outlook.

Das klappt auch alles wunderbar. Nur möchte ich jetzt gerne aus einem anderen Tabellenblatt auch Daten ziehen und in eine 2. PDF packen und in den Mailanhang stecken.

Ich habe mal den Code des zweiten Reportings fett markiert.

Code:

 

Hallo moonr,

Ich vermisse Deine Frage !
Ich habe mal drüber geschaut, sehe aber nichts Auffälliges. Allerdings kenne ich mich auf dem Gebiet nicht besonders aus.

Ich empfehle Dir daher, für diese neue Baustelle auch ein neues Thema zu öffnen.

Gruß
Aloys