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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige