VBA: überprüfen ob ein Datenblatt existiert

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: VBA: überprüfen ob ein Datenblatt existiert von: Thomas Beissel
Geschrieben am: 11.02.2005 14:08:42

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

Bild


Betrifft: AW: VBA: überprüfen ob ein Datenblatt existiert von: Nike
Geschrieben am: 11.02.2005 14:15:00

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


Bild


Betrifft: AW: VBA: überprüfen ob ein Datenblatt existiert von: Thomas Beissel
Geschrieben am: 11.02.2005 14:55:02

funzt gut ;-)) thx


Bild


Betrifft: AW: VBA: überprüfen ob ein Datenblatt existiert von: UweD
Geschrieben am: 11.02.2005 14:16:43

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


Bild


Betrifft: AW: VBA: überprüfen ob ein Datenblatt existiert von: Thomas Beissel
Geschrieben am: 11.02.2005 14:55:37

funzt gut ;-)) thx


Bild


Betrifft: AW: VBA: überprüfen ob ein Datenblatt existiert von: Chris b
Geschrieben am: 11.02.2005 14:17:54

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



Bild


Betrifft: AW: VBA: überprüfen ob ein Datenblatt existiert von: Thomas Beissel
Geschrieben am: 11.02.2005 14:54:03

klappt super danke!!!


 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA: überprüfen ob ein Datenblatt existiert"