|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.11.2008 00:21:32 |
Thomas Stengele |
|
|
|
06.11.2008 10:03:55 |
jh |
|
|
|
06.11.2008 10:33:40 |
Thomas Stengele |
|
|
|
06.11.2008 11:24:28 |
jh |
|
|
|
06.11.2008 14:36:16 |
Thomas Stengele |
|
|
|
06.11.2008 15:39:45 |
jh |
|
|
 Aw:Aw:Aw:Makro für Excel |
06.11.2008 17:47:44 |
Thomas Stengele |
|
|
|
07.11.2008 07:34:24 |
jh |
|
|
|
07.11.2008 16:38:39 |
Thomas Stengele |
|
|
|
07.11.2008 20:57:10 |
jh |
|
|
Von:
Thomas Stengele |
Datum:
06.11.2008 17:47:44 |
Views:
1485 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Makro für Excel |
Hallo jh,
"kurze" Schilderung was ich bisher getan habe und wo ich gerne hin möchte.
1. in einem Tabellenblatt habe ich in eine Zelle "=JETZT()" geschrieben und in eine andere lasse ich über den VBA - Code "Cells (20,7) = Now " das Datum mit Uhrzeit schreiben. In einer anderen Zelle wandle ich den Wert, den VBA erzeugt hat in Datum und Stund um, weil VBA Sekunden wiedergibt, der Excelbefehl "Jetzt()" aber nicht. Dieses beiden Zellen vergleiche ich miteinander und kann so gewährleisten, dass das Tool nur funktioniert, wenn Makros aktiviert sind.
Nachteil: ich muß in dem Tabellenblatt, in das VBA die Zeit schreibt, mindestens einmal reinklicken damit die Zeit aktualisiert wird und bei einem Wechsel der Stund (z.B. von 17:59 Uhr auf 18:00 Uhr) auch.
2. In einer Zelle gebe ich ein Datum ein (Ablaufdatum), in einer weiteren Zelle folgenden Zirkelbezug:
"=WENN(G6>G8;G6;G8)"
Zelle "G6" beinnhaltet "=JETZT()". Dadurch speichert die Zelle "G8" immer das größte Datum. Mit dem Code
Private Sub Workbook_Open()
ActiveWorkbook.Save
End Sub
in "Diese Arbeitsmappe" erzwinge ich die Speicherung. Hat funktioniert. Damit wird verhindert, dass das Tool durch zurücksetzen des Systemdatums wieder aktiviert wird.
3. In einer seperaten Excel - Datei habe ich eine Liste mit 10 zufälligen Zeichen pro Tag abgelegt und in einem Ordner im Windows - Verzeichnis versteckt. Für diesen Ordner habe ich die Zugriffsberechtigung nur für das System und für den Administrator eingetragen. Funktioniert auch. Die gleiche Liste mit den zufälligen Zeichen habe ich in einem geschützten Tabellenblatt in meinem Exceltool. Jetzt lasse ich mittels "SVERWEIS" jeweils den Wert des aktuellen Datums suchen und vergleiche die Werte. Dies verhindert bisher die Weitergabe der Datei.
Nachteil: man muss wird bei jedem Start gefragt, ob man die Verknüpfung aktualisieren will, ist die Datei nicht vorhanden, wird auch der Name der Datei angezeigt und über die Windows - Suchfunktion ist sie dann auch zu finden. Ob man sie dann auch rauskopieren kann bin ich mir nicht sicher. (also zu einfach)
Deshalb ist jetzt mein Ziel, über die Abfrage der Festplattenseriennummer meinen Punkt Nr. 3 zu ersetzen.
Dabei möchte ich in ein Tabellenblatt, welches ich dann schütze, alle erlaubten Festplatten eintragen und mit der von VBA ausgelesenen Seriennummer vergleichen.
Ist die Seriennummer nicht vorhanden, möchte ich in jedem vorhandenen Tabellenblatt mittels VBA alles markieren und entfernen.
Ist glaube ich nicht viel und eigentlich auch nicht kompliziert wenn man sich ein bischen auskennt, oder?
Das mit dem alles markieren und dann entfernen habe ich über die Excel - Funktion "Makro aufzeichnen" ausprobiert. Ist nur ein Vierzeiler, aber ich bekomme ihn halt nicht aktiviert.
Gibt es Hoffnung für mich? Grüße vom Bodensee
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.11.2008 00:21:32 |
Thomas Stengele |
|
|
|
06.11.2008 10:03:55 |
jh |
|
|
|
06.11.2008 10:33:40 |
Thomas Stengele |
|
|
|
06.11.2008 11:24:28 |
jh |
|
|
|
06.11.2008 14:36:16 |
Thomas Stengele |
|
|
|
06.11.2008 15:39:45 |
jh |
|
|
Aw:Aw:Aw:Makro für Excel |
06.11.2008 17:47:44 |
Thomas Stengele |
|
|
|
07.11.2008 07:34:24 |
jh |
|
|
|
07.11.2008 16:38:39 |
Thomas Stengele |
|
|
|
07.11.2008 20:57:10 |
jh |
|
|