Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
116to120
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
116to120
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Arbeitsblatt vorhanden ?

Arbeitsblatt vorhanden ?
26.04.2002 14:19:47
Carsten
Hallo!
Folgendes Problem:

Im Tabellenblatt1 kann man in Zelle "B4" einen Namen und In "F4" einen Speicherort eingeben. Nun soll ein Button betätigt werden, der einige Ereignisse auslöst.
Falls es schon ein Arbeitsblatt existiert mit dem Speicherort "F4" und dem Namen "B4" soll eine Msgbox erscheinen und die nachfolgenden Ereignisse dürfen erst nach Änderung von "F4" oder "B4" ausgeführt werden.

Kann mir jemand weiter helfen???

Danke
Carsten

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Arbeitsblatt vorhanden ?
26.04.2002 16:17:19
Daniel R.
Mit folgendem Code müsste es gehen: Sub prüfen() Dim dateiname Dim pfad dateiname = ActiveSheet.Range("b4").Value pfad = ActiveSheet.Range("f4").Value With Application.FileSearch .NewSearch .LookIn = pfad .SearchSubFolders = True .FileName = dateiname .MatchTextExactly = True .FileType = msoFileTypeExcelWorkbooks If .Execute() > 0 Then MsgBox "Dateiname schon vorhanden!" End If End With End Sub Gruss Daniel

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige