Arbeitsblatt vorhanden ?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: xl9
nach unten

Betrifft: Arbeitsblatt vorhanden ?
von: Carsten
Geschrieben am: 26.04.2002 - 14:19:47

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

nach oben   nach unten

Re: Arbeitsblatt vorhanden ?
von: Daniel R.
Geschrieben am: 26.04.2002 - 16:17:19

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

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Arbeitsblatt vorhanden ?"