Office: Vba If-abfrage ob Worksheet visible...

Hallo Leute!

Also, ich hab ein MAkro mit dem ich eine neue seite(Worksheet) aufmache:

Private Sub seit3()
Dim TC3 As Worksheet, i As Integer
Set TC = Worksheets("Formular")

TC.[A1] = TC.[A1] + 1 '3
i = TC.[A1]
i = i + 1
Worksheets("Muster").Select
ActiveWindow.SelectedSheets.Copy Before:=Sheets(i)
'Worksheets("Muster").Copy Before:=Sheets(i)
Worksheets(i).Activate
Set TC3 = Sheets(i)
TC3.Name = "" & i - 1 & "Seite"
seit TC3, i
End Sub
Diese generiert dann Worksheets mit den anmen 2Seite, 3Seite usw...
----------

mit dem erstellt er mir wunderbar meine Seiten, jetzt müss ich aber bei einem anderen Makro abfragen, ob zB 2Seite offen ist:

Private Sub abc()
If Worksheets("2Seite").Visible = True Then
MsgBox ("true")
Else
MsgBox ("false")
End Sub

Dann bekomme ich jedoch die Fehlermeldung, dass der Index außerhalb des gültigen Bereiches ist!
Kann mir da jemand von euch helfen? danke schon mal!!

mfg Matthias

:)

 

Moin, Matthias,

die Zeile seit TC3, i wird bei mir angemeckert, beim zweiten Makro habe ich ein End If gesetzt - und dann läuft es sowohl unter XL97 als auch unter XL2000: Beim zweiten Makro kommt bei mir die Meldung true, was nach den gegebenen Informationen richtig ist...

 

Das End If hab ich nur da bvergessen zu schreiben, das is mir schon klar
Aber es sollte die 2. Funktion "False" zuückgeben, da ja Keine Arbeitsmappe "2Seite" offen ist!!!

seit TC3, i führt nur zu einem andren MAkro, dass noch aufgerufen wird!
Das hat damit aber nichts zutun, hab ich nur mitkopiert!

Wenn "2Seite" nicht offen ist, dann soltte er die MsgBOx False melden!!

Dank

 

Hallo Matthias,

was verstehst Du genau unter

Möchtest Du überprüfen, ob die Tabelle "2Seite" schon angelegt wurde oder ob "2Seite" sichtbar ist?

 

Naja, eher angelegt, als sichtbar...

Aber ich dachte mir, es funktioniert auch mit dem Visible Befehl

Worksheet "2Seite" wird ja mit dem Makro seit3 erst erstellt!

Ich möchte mit abc abfragen, ob es ein worksheet gibt oder nicht.

Wahrscheinlich hast du recht, dass das gar nicht mit .visible geht, weil es ja nicht ausgeblendet, sondern erst gar nicht erstellt wurde!

Hab die abc-Sub ein bisserl verändert, ich glaub so gehts auch, aber mir wärs anders lieber, wenn ich nicht die Fehlermeldung ignorieren müsste!

Private Sub abc()
On Error GoTo fehler
If Sheets("2Seite").Visible = True Then MsgBox ("true")
fehler:
MsgBox ("false")
End Sub

Danke euch!

[ 19. Februar 2002: Beitrag editiert von: ploeve ]

 

Hmmm - als Alternative fällt mir nur noch die indirekte Möglichkeit über Sheets.Count ein:

Hängt natürlich vom Aufbau Deiner Excel-Tabelle ab.

 

wär keine schlechte Idee, nur hab ich noch 5 weiter Arbeitsblätter offen!

Kann man nicht irgendwie abfragen ob ein Arbeitsblatt mit dem namen XY existiert?

 

Moin, Matthias,

ich weiß, es klingt ziemlich arrogant, aber

• wenn Du Arbeitsblätter überprüfst, kannst Du keine Rückmeldung über Arbeitsmappen erhalten
• wenn Du nicht den kompletten Code angibst, wird es schwierig, die richtigen Entscheidungen zu fällen
• nur wenn Du Dein Problem richtig beschreibst, kann Dir auch geholfen werden

Aus Deinem Posting geht nur hervor, dass Du den Zustand eines Blattes auf mögliche Eintragungen überprüfen willst - das macht das Makro, aber was ist daran falsch????
Dein geposteter Code im neuen Makro abc weist (ich sehe die Antwort jetzt schon voraus) einen Logikehler auf - oder ist es normal, erst die Mitteilung true und dann die Mitteilung false zu erhalten, wenn der Zustand des Blattes visible entspricht?

Die Überprüfung, ob ein Blatt mit bestimmtem Namen existiert, könnte z.B. wie folgt vorgenommen werden:

Code:

 

Danke Leute, aber ich hab eine Lösung gefunden die sehr gut funktioniert:

Function BlattDa(strBlatt As String) As Boolean
Dim wks As Worksheet
On Error Resume Next
Err = 0
Set wks = Sheets(strBlatt)
BlattDa = Err = 0
On Error GoTo 0
End Function

Sub abc()
If BlattDa("2Seite") Then
MsgBox("Hi!")
End If
'
' usw...
'
End Sub


Danke schön auf jeden Fall!

 

Moin, Matthias,

mit Hinweis auf