Sheets Abfrage

Forumthread: Sheets Abfrage
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Sheets Abfrage

Sheets Abfrage

20.11.2005 12:58:02

Gerhard

Schönen Sonntag!
Bei uns schneit es !! Das heist ab nächsten Wochenende Snow and Fun statt Excel!
Spass bei Seite!
Habe ein kleines Problem mit folgendem Code und bitte um Eure Hilfe!
Möcht eingenlich nur prüfen ob meine Excel Liste ein Tabellenbaltt enthält mit dem Namen "Verrechnungsschein", wenn nicht soll abgebrochen werden.
Was mache ich da falsch?
With Workbooks(strDateiGelSuche)
If Sheets("Verrechnungsschein") Is Nothing Then
MsgBox "Die Datei enthält kein Tabellenblatt Verrechnungsschein! Bitte überprüfen", vbOKOnly + vbCritical
ActiveWindow.Close
Windows(strDateiMonat).Activate
Sheets(strMonatSheets1).Activate
Call Blattschutz
Windows(strNameSteuerung).Activate
Exit Sub
Else
Sheets("Verrechnungsschein").Activate
End If
End With
Danke im Voraus
Gerhard

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sheets Abfrage

20.11.2005 13:51:00

Unbekannter
AW: Sheets Abfrage

20.11.2005 13:54:23

Franz

AW: Sheets Abfrage

20.11.2005 13:51:00

Unbekannter

So.


Sub da()
For a = 1 To Sheets.Count
if sheets(a).name="Verrechnungsschein" then call Dein Makronamen
Next a
End Sub

Gruß UN1

AW: Sheets Abfrage

20.11.2005 13:54:23

Franz

Hallo Gerhard,
versuch's mal so:


Sub Blatt_suchen()
Dim wks As Worksheet
Dim wksName As String
For Each wks In Worksheets
If wks.Name = "Test" Then
wksName = wks.Name
End If
Next
If wksName = "" Then MsgBox "Das Blatt  ""Test""  wurde nicht gefunden!"
End Sub

Grüße
Franz