Office: (Office 2010) Zellen automatisch ausblenden und einblenden

Hallo zusammen,

brauche Euere Hilfe... Ich bin ein VBE Anfänger, denke aber das meine Idee nur so gelöst werden kann (ohne Aufwändige Wenn und Aber Formeln)

Ich habe eine Checkliste aufgebaut wo in Spalte "A" diverse Prozesse aufgelistet sind. In Spalte "B" werden diese mit "Available" oder "Not available" ausgewählt.

Weiter unten (ab zeile 44) habe ich die zugehörige Checkliste aufgelistet. Diese Zeilen sollen abhängig von den oben gewählten Prozessen aus-, bzw. eingeblendet werden.

Zusätzlich gibt es aber auch zu "Available" oder "Not available" eine bestimmte Anzahl (1-4) diese soll zusätzliche Zeilen ein oder ausblenden.

Schwer zu erklären, die Excel kann aber gerne zur Verfügung gestellt werden.

Hiermit habe ich es geschaft die erste bedingung zu implementieren. Leider weis ich nicht wie ich weitere hinzufüge oder ergänze... Code wurde ebenfalls im netz gefunden und kopiert.
________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)

Dim varAusblend As Range
Dim varSchalter As Range

Set varAusblend = ActiveSheet.Rows("48:47")
Set varSchalter = ActiveSheet.Cells(12, 2)

If varSchalter.Value = "Available" And varAusblend.Hidden = True Then
varAusblend.Hidden = False
Else
If varSchalter.Value "Available" And varAusblend.Hidden = False Then
varAusblend.Hidden = True
End If
End If

End Sub
_________________________________________________

DANKE schon mal für das lesen und Antworten

:)

 

Hallo Dima,

ja, dann mach das mal !

Dabei kannst Du erläutern, wie das zu verstehen ist.

Gruß
Aloys

 

Hi, erstmal vielen Dank für die Antwort

im Anhang die Excel die ich zusammen gebastelt habe.

Mal zur Erklärung:
In den Zellen A12 - A41 stehen mögliche Fertigungsprozesse die in den dazugehörigen Zeilen (B12 - B41) als "Available" oder "Not available" ausgewählt werden können.

Durch diese Auswahl der Prozesse ergeben sich verschiedene Checkpunkte die dann zu prüfen sind. Diese sind in den Zeilen A44 - A264 zu finden. Nur sollen diese sichtbar sein in Abhängigkeit der gewählten Fertigungsprozesse.

Die Zeilen A44 - A47 sind abhängig vom Ergebnis in der D7.
Die Zeilen A48 - A51 sind abhängig vom Ergebnis in der B12.
Die Zeilen A52 - A55 sind abhängig vom Ergebnis in der B13.
Die Zeilen A56 - A59 sind abhängig vom Ergebnis in der B14.
...

Ab Ergebnis B32 wird es etwas schwieriger...
Hier kann die Anzahl ausgewählt werden. Die dann auch die bestimmten Zeilen in der Tabelle A124 - A155 (Beispiel für das Ergebnis aus B32) aktiviert.

Genauso in B34/ B36/ B38 und B40

Das ergebnis aus B41 aktiviert die Zeile A264

 

Wäre super dankbar wenn mir jemand helfen könnte *Smilie

 

Brauche wirklich dringend hilfe zu diesem Thema. Verzweifle einfach an dieser Excel

 

Hi Dima,

was mich betrifft, ich habe nicht verstanden, was Du willst. Bsp.:

Was heißt denn abhängig? In D7 steht Available oder Not Available. Du Kannst aber nicht nur die Zeilen 44 bis 47 in Spalte A ausblenden. Entweder die Spalte komplett oder eben nicht.
Oder alle Zeilen von 44 bis 47? Dann betrifft es aber nicht nur Spalte A sondern alle Spalten. Naja, die Spalten bleiben schon da, aber die Zeilen sind dann weg....*wink.gif*
Also, was meinst Du mit abhängig?

 

...habe mir gerade Deine Datei runtergeladen und angesehen. Du hättest also gern ein Formular, dass in Abhängigkeit von D7 etc. entsprechende Steuerelemente auf dem Formular platziert? Und zwar mit Klassenmodulen und allem Schnickschnack? Und das bei Deinem Kenntnisstand? Bei dem, was Du da an Vorarbeit lieferst?

Sorry, aber das ist keine Hilfsanfrage. Das ist der Versuch eine Komplettlösung für lau zu erhalten.
Frag Deinen Chef, was er dafür auszugeben bereit ist und dann kannst Du mich nochmal fragen oder den Auftrag in die Jobbörse stellen, aber diesen Versuch hier und jetzt werte ich als hochgradig unseriös!

 

Hallo,

das war keine Anfrage um eine fertige Lösung von jemandem zu erhalten. Ich habe meinen Ansatz eingetragen und gesagt ich komme nicht weiter.

Ich habe nicht erwartet das mir jemand eine fertige Lösung präsentiert, wollte nur wissen wie ich weiter machen kann.

 

Moin
Mal als Ansatz, auf die schnelle(muss weg) fuer B12:B31
Code:

Ab B32 hab ich mir noch keine Gedanken gemacht.
gruss hary

 

Vielen Dank für die Unterstützung.
Das war genau der Ansatz den ich gebraucht habe.

KLASSE

 

Moin
Und den Rest hast du allein geschafft?
gruss hary

 

Habe es versucht nur leider ohne Erfolg. Ich habe es mit der gleichen Herangehensweise versucht, nur leider wenn ich das mit den Möglichkeiten 1-4 teste, packt excel nur die erste (also mit 1) von 2-3 geht es dann nicht mehr.

Case "B32": Rows("52:55").Hidden = Target = "1"
Case "B32": Rows("52:55").Hidden = Target = "2"
usw...
Kannst du mir nochmal einen Tipp geben wie ich die Auswahl hinbekomme?

Danke sehr für deine Unterstützung

 

Moin
Als erstes muss eine Variable gesetzt werden. Die wird fuer Case "B33" gebraucht.
Code:

Dein Bereich ( Case "B32": Rows("52:55").Hidden = Target = "1") passt aber nicht oder??
Fuer B32
Code:

Fuer B33. Wenn ich das so richtig verstehe!?
Code:

Erlaerung warum dein Testcode
Code:

Case=Fall
bei 1 stehen bleibt:
Mir wurde es, als ich am Anfang von VBA war, so erkaert.
Stell dir eine Kommode mit x Schubladen vor.
Du suchst die Schublade mit den Socken.
Machst die erste(erste Case) auf/ keine Socken.
Machst die zweite(zweite Case) auf/darin sind die Socken.
Dann brauchst du die folgenden nicht mehr oeffnen/pruefen.
Und so macht das VBA und verlaesst die Case Anweisung beim ersten zutreffenden Fall.
gruss hary