hab mal wieder ein problem.
wie kann ich beim öffnen einer arbeitsmappe alle arbeitsblätter ausser dem aktiven blatt ausblenden?
nicht über eine schaltfläche!
für eine anweisung wäre ich dankbar
gruß
martin
hab mal wieder ein problem.
wie kann ich beim öffnen einer arbeitsmappe alle arbeitsblätter ausser dem aktiven blatt ausblenden?
nicht über eine schaltfläche!
für eine anweisung wäre ich dankbar
gruß
martin
das geht so:
Den Code in "Diese Arbeitsmappe" kopieren, NICHT in ein Modul.
Gruss Rainer
ich hab ein problem. die anweisung habe ich in "diese arbeitmappe" geschrieben. die arbeitsblätter sind auch ausgeblendet bis auf das aktive, aber wenn ich jetzt über eine userform ein anderes blatt öffnen möchte, bekomm ich den laufzeitfehler '1004': die select-methode des worksheet-objekt ist fehlerhaft angezeigt. was mch ich verkehrt?
martin
zeige uns bitte mal den Code.
Gruß
Axel
hier den code:
Private Sub Workbook_Open()
Dim Blatt As String
Blatt = ActiveSheet.Name
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> Blatt Then
Worksheets(i).Visible = False
End If
Next i
End Sub
gruß martin
das ist doch der Code von Ramses. Der ist schon ok.
Ich meine die Prozedur, die über die Userform angestossen wird und die ein Blatt aktiviert, wo dann der Fehler entsteht.
Gruß
Axel
hier ein code mit dem ich ein tabellenblatt öffne:
Private Sub CommandButton3_Click()
Worksheets("Datenblatt-Damen").Select
Unload Me
End Sub
martin
aha, Select. Mit Activate würde kein Fehler erzeugt werden.
Wie dem auch sei, Du mußt das Blatt zurvor wieder einblenden, also
Gruß
Axel
sieht einleuchtend aus.
danke und ein schönen abend noch.
martin