Microsoft Excel

Herbers Excel/VBA-Archiv

Problem mit ausblenden

Betrifft: Problem mit ausblenden von: Dennis
Geschrieben am: 29.08.2004 11:11:23

Moin,

ich habe 2 Gruppenfelder und möchte, das je nachdem was ausgewählt wurde, bestimmte Bereiche ausgeblendet werden.
So sieht die Formel bei einem Gruppenfeld aus:
___________________

Sub ausblenden()

Select Case Range("D18")
Case 1
s = "A": s1 = "G"
Case 2
s = "A": s1 = "L"
Case 3
s = "A": s1 = "Q"
Case 4
s = "A": s1 = "V"
Case 5
s = "A": s1 = "AA"

End Select
ActiveSheet.Protect "passwort", UserInterfaceOnly:=True
    Sheets(1).Columns.EntireColumn.Hidden = False
    Sheets(1).Columns("A:" & s).EntireColumn.Hidden = True
    Sheets(1).Columns(s1 & ":AA").EntireColumn.Hidden = True
    Sheets(1).Rows("150:65536").EntireRow.Hidden = True
    
    End Sub

_____________________
das funktioniert auch super!

Nun möchte ich aber, dass je nachdem was im 2ten Gruppenfeld ausgewählt wurde, Zeile 1 und dann bei Optionsfeld 1 von Zeile 44 bis Zeile 135 ausgeblendet wird, bei Optionsfeld 2 ab Zeile 90 bisZeile 135 ausgeblendet wird und bei Optionsfeld 3 ab Zeile 150 bis 65536 ausgeblendet wird.
Ich habe schon versucht, folgendes einfach in den ersten Code mit einzufügen:

Select Case Range("J17")
Case 1
s = "1": s1 = "44:135"
Case 2
s = "1": s1 = "90:135"
Case 3
s = "1": s1 = "150:65536"

aber das funktionierte so nicht.

Hoffe, das Ihr so nett seid, mir dabei behilflich zu sein.
MfG, Dennis
  


Betrifft: AW: Problem mit ausblenden von: andre
Geschrieben am: 29.08.2004 11:23:54

Hallo Dennis,
sollte doch klappen, nach dem Muster
Sub test2()
s1 = "1:44"
Sheets(1).Rows(s1).EntireRow.Hidden = True
End Sub



  


Betrifft: AW: Problem mit ausblenden von: Dennis
Geschrieben am: 29.08.2004 11:34:53

Hallo Andre,
ich kenne mich mit VBA leider fast garnicht aus.
Wärst du so nett, und kannst das mit in die Formel vom ersten Gruppenfeld einbauen?
Und es sollte ja Zeile beim ersten Optionsfeld dann Zeile 1 ausgeblendet werden und Zeile 44 bis 135.
Von der 135 steht in deiner Formel nix, kenne mich ja nicht aus, aber die müsste doch auch irgendwo auftauchen oder? Weil ab Zeile 136 soll wieder sichtbar sein.

MfG, Dennis


  


Betrifft: AW: Problem mit ausblenden von: andre
Geschrieben am: 29.08.2004 11:42:07

Hallo Dennis,
Sub ausblenden()

Select Case Range("D18")
Case 1
s = "A": s1 = "G"
Case 2
s = "A": s1 = "L"
Case 3
s = "A": s1 = "Q"
Case 4
s = "A": s1 = "V"
Case 5
s = "A": s1 = "AA"

End Select

ActiveSheet.Protect "passwort", UserInterfaceOnly:=True
    Sheets(1).Columns.EntireColumn.Hidden = False
    Sheets(1).Columns("A:" & s).EntireColumn.Hidden = True
    Sheets(1).Columns(s1 & ":AA").EntireColumn.Hidden = True
    Sheets(1).Rows("150:65536").EntireRow.Hidden = True

Select Case Range("J17")
Case 1
s = "1": s1 = "44:135"
Case 2
s = "1": s1 = "90:135"
Case 3
s = "1": s1 = "150:65536"

Sheets(1).Rows(s1).EntireRow.Hidden = True
    
End Sub



  


Betrifft: AW: Problem mit ausblenden von: Dennis
Geschrieben am: 29.08.2004 12:05:31

Hallo Andre,
deine Formel zeigt leider keine Wirkung,
erst bekam ich eine Fehlermeldung, aber nachdem ich End Select nach

Select Case Range("J17")
Case 1
s = "1": s1 = "44:135"
Case 2
s = "1": s1 = "90:135"
Case 3
s = "1": s1 = "150:65536"

eingefügt habe, ist die Fehlermeldung weg. aber es wird weiterhin nur der Bereich aus der ersten Formel ausgeblendet.

Hoffe, das du mir weiterhelfen kannst.

MfG, Dennis


  


Betrifft: AW: Problem mit ausblenden von: andre
Geschrieben am: 29.08.2004 12:41:39

Hallo Dennis,
was steht denn in J17? Bei mir gehts.


  


Betrifft: AW: Problem mit ausblenden von: Dennis
Geschrieben am: 29.08.2004 13:05:50

Hallo Andre,

in J17 steht, welches Optionsfeld ausgewählt wurde.


  


Betrifft: AW: Problem mit ausblenden von: Dennis
Geschrieben am: 29.08.2004 13:33:03

Danke Andre,

es geht jetzt doch soweit, aber immer nur einmal.
Wenn ich nur im 2ten Gruppenfeld etwas auswähle, passiert nix.
Wenn ich aber im 2ten Gruppenfeld erst auswähle und dann im ersten Gruppenfeld, dann wird auch das richtige ausgeblendet.
Allerdings werden die Zellen die ich übers 2te Feld ausgewählt habe dauerhaft ausgeblendet! Egal welches Feld ich danach auswähle.
Das ist beim ersten Gruppenfeld nicht so, dort kann ich jederzeit auswählen, und die dazugehörigen Spalten werden aus- oder eingeblendet.
Kann man da noch was machen?
weil es ist ziemlich nervig, wenn man erst das falsche ausgesucht hat, immer die komplette Tabelle neu zu öffnen.

MfG, Dennis


  


Betrifft: AW: Problem mit ausblenden von: andre
Geschrieben am: 29.08.2004 14:10:18

Hallo Dennis,
so wird's besser. Eventuell musst Du den zweiten Teil (für J17) in ein extra Makro packen.

Sub ausblenden()

Select Case Range("D18")
Case 1
s = "A": s1 = "G"
Case 2
s = "A": s1 = "L"
Case 3
s = "A": s1 = "Q"
Case 4
s = "A": s1 = "V"
Case 5
s = "A": s1 = "AA"

End Select

ActiveSheet.Protect "passwort", UserInterfaceOnly:=True
    Sheets(1).Columns.EntireColumn.Hidden = False
    Sheets(1).Columns("A:" & s).EntireColumn.Hidden = True
    Sheets(1).Columns(s1 & ":AA").EntireColumn.Hidden = True
    Sheets(1).Rows("150:65536").EntireRow.Hidden = True

Select Case Range("J17")
Case 1
s = "1": s1 = "44:135"
Case 2
s = "1": s1 = "90:135"
Case 3
s = "1": s1 = "150:65536"
Case Else
Exit Sub
End Select

Sheets(1).Rows("44:65536").EntireRow.Hidden = False
Sheets(1).Rows(s1).EntireRow.Hidden = True
    
End Sub




  


Betrifft: AW: Problem mit ausblenden von: Dennis
Geschrieben am: 29.08.2004 15:48:30

Danke Andre!!!
so läufts perfekt!!!


 

Beiträge aus den Excel-Beispielen zum Thema "Problem mit ausblenden"