| Von |
Michi |
| Am |
29. Oktober 2009 um 19:53:46 |
| Frage |
Hallo
Ich möchte Zellbereiche und Register (Sheets) ausblenden, welche sich in einer anderen Arbeitsmappe befinden. Für den Zellbereich habe ich einen Code, der aber nur funktioniert, wenn sich das Sheet in der gleichen Mappe befindet. Mit dem Ausbau hatte ich leider keinen Erfolg! ;-(
[code
Sub NurEinBereichSichtbar()
Dim wksA As Worksheet
Set wksA = Worksheets("Tabelle1") 'Beispiel
'Nur Spalte 1 bis 9 sichtbar
wksA.Range(wksA.Columns(10), wksA.Columns(wksA.Columns.Count)).Hidden = True
'nur Zeile 1 bis 30 sichtbar
wksA.Range(wksA.Rows(31), wksA.Rows(wksA.Rows.Count)).Hidden = True
End Sub
Sub AlleWiederDa()
Dim wksA As Worksheet
Set wksA = Worksheets("Tabelle1") 'Beispiel
wksA.Rows.Hidden = False
wksA.Columns.Hidden = False
End Sub[/code]
Weiss da jemand Bescheid?
Vielen Dank! |
|
Zum Seitenanfang