Forumfreunde
Wie kann man es einrichten, dass jeder Datensatz der in der Datei gelöscht wird in einer externen Datei gespeichert wird?
Vielen Dank
Olga
Olga
Sub Schaltfläche1_BeiKlick()
Dim Zeile As Integer
ActiveSheet.Unprotect ("kennwort")
Selection.Copy
Zeile = 1
Do Until IsEmpty(Sheets("Tabelle2").Cells(Zeile, 1))
Zeile = Zeile + 2
Loop
Sheets("Tabelle2").Cells(Zeile, 1) = Date & Time
Sheets("Tabelle2").Cells(Zeile + 1, 1).PasteSpecial
Selection.ClearContents
ActiveSheet.Protect Password:="kennwort", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
mfg Heinz Franz
Übrigens bei der Errichtung einer Schaltfläche mache ich etwas falsch
1 Aus der Toolbox eine Schaltfläche ziehen
2 Schaltfläche über Menü Eigenschaften beschriften
3. doppelklicken und Code kopieren
4. Zurück zur Excel
Weiter habe ich vergessen was man da machen muß
Vielen Dank
Olga
Mit dieser Methode (Blattschutz in Verbindung mit Buttons die verschiedene Aktionen zulassen) muss Niemand - für eine erlaubte Funktion - ein kennwort wissen. Man kann auch den Blattschutz ohne Kennwort aktivieren - im Code dazu einfach die Teile in denen "kennwort" vorkommt rausnehmen.
Wenn Du Deine Kollegin heimlich kontrollieren willst, empfielt es sich dem betreffenden Tabellenblatt (im VB-Editor-Explorer mit Doppelklick zu öffnen) ein Activate und Deactivate-Ereignis für das Objekt Worksheet zu zuweisen, das die ganze Tabelle beim Öffnen sowie beim Schließen in eine andere Tabelle reinschreibt. Damit werden auch Änderungen erfasst.
Meine persönliche Erfahrung zeigt, dass die Button-Lösung bessere Ergebnisse bringt. Der erfahrene Benutzer kann dem unerfahrenen so vor zu mehr Rechte (und damit auch Pflichten) übertragen. Wenn das der Firmenphilosophie widerspricht, müssen halt auch die Konsequenzen in Kauf genommen werden.
Wenn's darum gar nicht geht - also wenn alle Kollegen von dieser Aktion wissen dürfen bzw. sogar wünschen, dann sollte eine Aktiv-Methode gewählt werden. Es könnte nämlich auch sein, dass jemand etwas löscht und dann wieder einfügt, aber mit Fehlern drin. Das könnte dann Verwirrung stiften und viel Zeit kosten. In diesem Fall lautet mein Vorschlag: Makro über Shortcut oder Symbol in der Symbolleiste (usw.) starten wenn ein markierter Bereich in eine andere Liste übertragen und danach gelöscht werden soll (oder andere Variationen von diesem Spiel)
MfG Heinz F.