Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

automatisches Speichern

automatisches Speichern
16.07.2004 13:37:37
frank
Hallo,
ich schreibe ein Macro, welches die Datei speichert, wenn das aktuelle Datum in Columns(1) vorhanden ist, sonst soll nichts gespeichert werden.
So sieht das Macro aus:
v_pos = Sheets("Sheet1").Range("T2").Value
If Not IsError(v_pos) Then
Set rng = Sheets("Sheet1").Columns(1).Find(v_pos)
ActiveWorkbook.Save
Beep
End If
T2=today()
In Columns(1)stehen Werktage.
Ist das aktuelle Datum in Columns(1) vorhanden , funktioniert es, sonst bekomme ich folgende Fehlermeldung "object variable or with blockvariable not set"
Danke für eure Tips
Frank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatisches Speichern
Ulf
Abfragen, ob rng Nothing ist.
Ulf
AW: automatisches Speichern
16.07.2004 15:43:03
frank
Hallo,
wie gehe ich denn da vor. Ich habe mit If rgn = nothing probiert und es kommt eine Fehlermeldung.
Danke
AW: automatisches Speichern
U
If v_pos "" Then
Set rng = Sheets("Sheet1").Columns(1).Find(v_pos)
If Not rng Is Nothing Then
ActiveWorkbook.Save
End If
End If
Wobei eigentlich noch getestet werden müßte, ob in der Zelle keine
verbotenen Zeichen stehen.
U
AW: automatisches Speichern
19.07.2004 13:32:21
frank
Danke,
jetzt funktioniert es.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige