Microsoft Excel

Herbers Excel/VBA-Archiv

Einzelne Tabellen ausblenden

Betrifft: Einzelne Tabellen ausblenden von: Peter
Geschrieben am: 20.08.2008 22:33:32

Hallo,

hab folgendes Problem. Ich habe eine Arbeitsmappe mit 15 Arbeitsblättern. Von diesen 15 AB sollen jedoch nur die Tabellen 1-10 sichtbar sein. Der Code, den ich mir gebastelt habe funktioniert leider nicht. Vielleicht stehe ich auch einfach nur auf dem Schlauch.

Hier der Code:

Sub EinblendenSeiten()

    Dim iWks As Integer
    For iWks = 1 To 10
        Sheets("iWks").Visible = True
    Next iWks
    
End Sub


  

Betrifft: AW: Einzelne Tabellen ausblenden von: firmus
Geschrieben am: 20.08.2008 22:50:11

Hallo Peter,

ganz spontan - standardmäßig stehen sie auf visible.
Warum nicht 11-15 auf visible=false ??

Gruß
Firmus


  

Betrifft: AW: Einzelne Tabellen ausblenden von: Ramses
Geschrieben am: 20.08.2008 23:30:25

Hallo

Ohne Anführungszeichen

Sheets(iWks).Visible = True

Gruss Rainer


  

Betrifft: AW: Einzelne Tabellen ausblenden von: Peter
Geschrieben am: 21.08.2008 14:43:06

Hallo Rainer,

Das mit den Anführungszeichen weglassen hat auch nicht funktioniert


  

Betrifft: AW: Einzelne Tabellen ausblenden von: Ramses
Geschrieben am: 21.08.2008 19:41:43

Hallo

Dann arbeitest du nicht mit EXCEL :-)

Der Code den du verwendest blendet die ersten 10 Tabellen deiner Mappe aus, ... dafür lege ich meine beiden Hände ins Feuer.
Wenn deine Tabellennamen !!!! 1 bis 10 heissen, dann musst du das so machen

Sheets("" & iWks & "").Visible = True

oder noch genauer/richtiger

Worksheets("" & iWks & "").Visible = True

Aber wir sind ja keine Hellseher :-)

Gruss Rainer


  

Betrifft: AW: Einzelne Tabellen ausblenden von: Peter
Geschrieben am: 21.08.2008 22:50:53

Sorry Rainer,

Fehler lag bei mir. Nach behebung des Fehlers und Entfernen der "" hat es dann auch geklappt.

Danke.


  

Betrifft: AW: Einzelne Tabellen ausblenden von: Peter
Geschrieben am: 21.08.2008 14:35:40

Sinn des ganzen ist, dass z.B. der Admin alle AB sehen soll und der Endanwender nur die besagten.

Außerdem habe ich in der AM mehrer Tabellenarten wie z.B. Inputseiten, Outputseiten und Interne Seiten. Die sollen nach Möglichkeit definiert werden, also z.B. Outputseiten sind grundsätzlich die Tabellen 1-10, Interne Seiten die Tabellen 11-15. So soll nach Möglichkeit z.B. eine Drucksteuerung nur die "Outputseiten" (Tabellen 1-10) drucken.


 

Beiträge aus den Excel-Beispielen zum Thema "Einzelne Tabellen ausblenden"