Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
384to388
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige