Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Arbeitsbuch oeffnen, Blatt suchen

Forumthread: Arbeitsbuch oeffnen, Blatt suchen

Arbeitsbuch oeffnen, Blatt suchen
19.02.2004 09:29:21
Alexej
Hallo nochmals!
Wie soll ein makro aussehen, wenn ich sagen will:
Oeffne die Datei, wessen Adresse sich in der Zelle C2 befindet und suche dort nach dem Arbeitsblatt Namen "xyz". Wenn dieses Arbeitsblatt nicht gefunden wurde, Fehlermeldung...
Viele Gruesse,
Alexej
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsbuch oeffnen, Blatt suchen
19.02.2004 09:51:38
Mac4
Hallo Alexej,
das wäre eine Möglichkeit:

Sub test()
On Error GoTo Fehler
Workbooks.Open Filename:=Cells(1, 1)
Sheets("xyz").Activate
Fehler:
MsgBox "Tabellenblatt xyz  nicht vorhanden"
End Sub

Marc
Danke schoen :) k.T.
19.02.2004 10:54:17
Alexej
AW: Arbeitsbuch oeffnen, Blatt suchen
19.02.2004 10:00:13
AndreasS
Morgen,
noch ne Mgl:

Sub TabelleSuchen()
Dim blatt As Worksheet
Application.ScreenUpdating = False
Workbooks.Open Filename:=ActiveSheet.[a1], ReadOnly:=False
For Each blatt In ActiveWorkbook.Sheets
blatt.Activate
If blatt.Name <> "ABC" Then
MsgBox "Blatt wurde nicht gefunden"
Exit Sub
End If
Next blatt
Application.ScreenUpdating = True
End Sub

Gruß Andreas
Anzeige
Danke sehr :)) k.T.
19.02.2004 10:54:37
Alexej
Bitte, danke für die Rückmeldung
19.02.2004 10:58:09
AndreasS
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige