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

arbeitsblatt in geschlossener datei prüfen

Forumthread: arbeitsblatt in geschlossener datei prüfen

arbeitsblatt in geschlossener datei prüfen
12.01.2006 09:36:46
Bernd
hallo und guten morgen,
ich möchte gerne per code in einer geschlossenen arbeitsmappe nachsehen ob dort ein bestimmtes tabellenblatt exestiert.
ich habe folgenden codeschnipsel:
ich bin in der arbeitsmappe "Q:\ZD-Bereich\Urlaub\gesamtübersicht.xls"
tbname = ActiveSheet.Name
If Workbook("Q:\ZD-Bereich\Urlaub\Gruppe_HV.xls").Sheets.Name = tbname Then
MsgBox "ja"
Else
MsgBox "nein"
End If
da bricht der code aber ab, markiert Workbook und sagt:
fehler beim kompilieren
sub oder function nicht definiert
hat da jemand ne zündende idee?
vielen dank
gruss bernd
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: arbeitsblatt in geschlossener datei prüfen
12.01.2006 09:50:41
Josef
Hallo Bernd!
Das geht z.B. so!
Sub BlattVorhanden()
Dim strName As String, strPath As String
Dim blnSheetExist As Boolean
Dim objWb As Workbook, objSh As Worksheet

strName = ActiveSheet.Name
strPath = "Q:\ZD-Bereich\Urlaub\Gruppe_HV.xls"

On Error GoTo ErrExit

Application.ScreenUpdating = False

Set objWb = Workbooks.Open(strPath)

For Each objSh In objWb
  If objSh.Name = strName Then
    blnSheetExist = True
    Exit For
  End If
Next

If blnSheetExist Then
  MsgBox "ja"
Else
  MsgBox "Nein"
End If

ErrExit:

objWb.Close False
Application.ScreenUpdating = True

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
vielen dank Sepp :-) o.t.
12.01.2006 10:27:28
Bernd
funzt doch nicht.
12.01.2006 10:59:32
Bernd
hi sepp,
habe dein code 1:1 übernommen.
leider kommt die msgbox meldung nicht.
egal ob es das baltt gibt oder nicht.
habe beide möglichkeiten ausprobiert.
kannste da noch mal bitte schauen
vielen dank
gruss bernd
AW: funzt doch nicht.
12.01.2006 11:05:30
Josef
Hallo Bernd!
Sorry, das kommt davon, wenn man den Code nicht testet;-((
Ändere die Zeile

For Each objSh In objWb

um in

For Each objSh In objWb.Worksheets

dann läuft's!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
danke :-) o.t.
12.01.2006 11:10:41
Bernd
;

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