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

VBA: überprüfen ob ein Datenblatt existiert

VBA: überprüfen ob ein Datenblatt existiert
11.02.2005 14:08:42
Thomas
Hallo zusammen, ich hab ein kleines prob ( oder einfach ein brett vorm kopf). mittels eines button wird ein abrbeitsblatt erstellt. mit einem anderen button soll ein arbeitsblatt angezeigt werden. so weit so gut. das ganze funktioniert einwandfrei, es sei denn das gesuchte blatt gibt es nicht. hat da jemand ne gute idee?
Code schnipsel:
----------------------------
WorkerName = Range("B10").Value
VarYear = Range("B14").Value
SheetName = WorkerName & VarYear
If "Blatt existert" Then
Shees(SheetName).Select
Else
MsgBox ("blatt existiert nicht")
End If
------------------------------
Danke für eure hilfe

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: überprüfen ob ein Datenblatt existiert
Nike
Hi,
mit Fehlerbehandlung, so?

Sub test()
Dim wks As Worksheet
WorkerName = Range("B10").Value
VarYear = Range("B14").Value
SheetName = WorkerName & VarYear
On Error GoTo ErrEnd
Set wks = Worksheets(SheetName)
On Error GoTo 0
wks.Select
Exit Sub
ErrEnd:
Err.Clear
MsgBox ("blatt existiert nicht")
End Sub

bye
Nike
AW: VBA: überprüfen ob ein Datenblatt existiert
Thomas
funzt gut ;-)) thx
AW: VBA: überprüfen ob ein Datenblatt existiert
UweD
Hallo Thomas
War doch schon fast richtig....

Sub testen()
WorkerName = Range("B10").Value
VarYear = Range("B14").Value
SheetName = WorkerName & VarYear
On Error GoTo Fehler
Sheets(SheetName).Select
'weiter mit deinem Makro
Exit Sub
Fehler:
MsgBox ("Blatt existiert nicht")
Resume Next
End Sub

Hier wird nur der Fehler abgefangen, wenn das Blatt nicht da ist.
Gruß Uwe
Anzeige
AW: VBA: überprüfen ob ein Datenblatt existiert
Thomas
funzt gut ;-)) thx
AW: VBA: überprüfen ob ein Datenblatt existiert
11.02.2005 14:17:54
Chris
habe dir mal einen Code zusammengebaut.
Viel efolg und bitte Rückmeldung.

Sub neu()
WorkerName = Range("B10").Value
VarYear = Range("B14").Value
SheetName = WorkerName & VarYear
For Each mysheet In ActiveWorkbook.Worksheets
If mysheet.Name = "test" Then
x = 1
End If
Next
If x = 1 Then
Sheets("test").Select
Else
MsgBox ("blatt existiert nicht")
End If
End Sub

AW: VBA: überprüfen ob ein Datenblatt existiert
Thomas
klappt super danke!!!

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige