Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei schließen code aushelfen

Datei schließen code aushelfen
26.09.2006 10:00:21
achim
wer kann helfen?
wer kann mit einem code aushelfen?
funktion: ist die datei.09_Fragebogen1.xls activ dann schließen wenn nicht dann mache gar nichts
danke
gruß
achim h.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei schließen code aushelfen
26.09.2006 10:31:21
Rolf
Hallo Achim,

Sub filecheck()
Dim strFile$
strFile = "datei.09_Fragebogen1.xls"
On Error GoTo nixtun
Windows(strFile).Close
nixtun:
End Sub

fG
Rolf
AW: Datei schließen code aushelfen
26.09.2006 15:19:25
achim
hallo rolf
vielen dank für die rückmeldung.
eine bitte noch?
kanst du das noch erweitern? und zwar: diese datei auch schließen wenn activ
03_Straßenverkehrsordnung außer Vorfahrt.xls
danke achim h.
habe diese frage noch mal ins forum gestellt
26.09.2006 15:48:04
achim
danke
AW: habe diese frage noch mal ins forum gestellt
26.09.2006 16:09:36
Rolf
Hallo Achim,
Option Explicit

Sub startFileCheck()
Dim strFile1$, strFile2$
strFile1 = "datei.09_Fragebogen1.xls"
strFile2 = "03_Straßenverkehrsordnung außer Vorfahrt.xls"
Call filecheck(strFile1)
Call filecheck(strFile2)
End Sub


Sub filecheck(strFile$)
On Error GoTo nixtun
Windows(strFile).Close
nixtun:
End Sub

fG
Rolf
Anzeige
Danke tipp hat geholfen
29.09.2006 08:13:22
achim
hallo rolf
danke für die rückmeldung und hilfe.
gruss
achim h.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige