Herbers Excel-Forum - das Archiv

Arbeitsblatt vorhanden ?



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

Excel-Beispiele zum Thema "Arbeitsblatt vorhanden ?"
1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen Aktueller Arbeitsblattname in Formel
Arbeitsblatt 40 mal kopieren 40 neue Arbeitsblätter hinzufügen
Diagramm aus Arbeitsblatt in Diagrammblatt übertragen Wert in alle Arbeitsblätter eintragen
Ausgewählte Arbeitsblätter auslesen AutoFilter über mehrere Arbeitsblätter setzen
Alle überflüssigen Leerzeichen im Arbeitsblatt löschen Prozentuale Erhöhung über mehrere Arbeitsblätter hinweg