ich will einige ausgeblendete Tabellenblätter per Schaltfläche (mit Makro verknüpft) einblenden lassen können. Nun habe ich einerseits das Makro erstellt (leer) um die Schaltfläche zuzuweisen und andererseits von Steffen einen Code erhalten mit dem ich die ausgeblendeten Blätter wieder einblenden kann.
Aber ihr glaubt es nicht.. ich habe nach mehrstündigen Versuchen nicht rausbekommen, wie ich den einen Code in den anderen verschachteln kann.. *grmpf*
Hier der Code des leeren Makros: ("Manorga ist der Name des Tab.-Blattes)
Sub Manorga()
'
' Manorga Makro
' Makro am 20.01.2003 von . aufgezeichnet
'
'
End Sub
und hier noch der Code für das einblenden:
Private Sub CommandButton1_Click()
If Sheets("Tabelle3").Visible = xlSheetHidden Then
Sheets("Tabelle3").Visible = xlSheetVisible
End If
Sheets("Tabelle3").Activate
End Sub
versteht mich nicht falsch, ich würde sehr gerne die Lösung selbst ausarbeiten.. nicht auf eine komplette Lösung angewiesen zu sein.. aber ich hab auch mitttels der Office-Hilfe und der Recherche hier nicht rausgekriegt wie das zu bewerkstelligen ist.
Für einen Tip bin ich sehr dankbar.
Gruss Rico