Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

automatisches Speichern

Forumthread: 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
Anzeige

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
Anzeige
AW: automatisches Speichern
19.07.2004 13:32:21
frank
Danke,
jetzt funktioniert es.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige