WS-Name mit Wert in aktiver Zelle vergleichen
11.07.2004 22:29:57
thomas
habe da ein kleines Problem: In einer Arbeitsmappe habe ich u.a. Blätter, bei denen der Name nach dem Jahrgang definiert ist, also gibt es z.B. ein Blatt mit dem Namen (auf dem Blattreiter) 98, 94, 01 etc. Nun möchte ich, dass mein Makro den Wert der aktiven Zelle mit den Blattnamen vergleicht und bei Übereinstimmung das entsprechende Blatt aktiviert. Untenstehendes Makro funktioniert gut, jedoch leider nur für den Fall, dass nach einem fest vorgegebenen Namen gesucht wird (z. B. 98). Der kann aber je nach aktiver Zelle variieren, wie oben erklärt. Das Problem liegt im Makro glaub ich dort, wo ich mit GROSSBUCHSTABEN die gewünschte Funktion eingetragen habe. Der Rest des Makros funktioniert gut.
Kann mir jemand weiterhelfen?
Vielen Dank für Hilfe
thomas
Sub Seitenwahl ()
Dim iWks As Integer
For iWks = 1 To Worksheets.Count
If Worksheets(iWks).Name <> "WERT DER AKTIVEN ZELLE" Then
Worksheets(iWks).Visible = False
End If
Next
End Sub