Thema Datum  Von Nutzer Rating
Antwort
Rot Makro Zellen automatisch einbleden/ausblenden
21.06.2022 10:27:36 Max
NotSolved
21.06.2022 10:47:03 Gast33605
NotSolved

Ansicht des Beitrags:
Von:
Max
Datum:
21.06.2022 10:27:36
Views:
72
Rating: Antwort:
  Ja
Thema:
Makro Zellen automatisch einbleden/ausblenden

Guten Morgen zusammen!

Ich habe ein Makro geschrieben, welches im ersten Schritt den Blattschutz aufhebt und danach automatisch 4 Zeilen einblenden soll.
Diese Zeilen sollen eingeblendet werden, wenn in Zelle Q3 oder W3 oder AC3, u.s.w. (siehe Makro) "belongs to multiple Shippble Items" (Auswahl aus Drop Down Menü [Liste], in welchem auch andere Auswahlmöglichkeiten sind) steht.
Falls ein andere Beschreibung aus dem Drop-Down Menü ausgewählt wird, sollen keine Zellen eingeblendet werden.
An sich funktioniert das Makro, allerdings nur bei dem Feld Q4, bei den restlichen Feldern leider nicht.

Private Sub Worksheet_Change(ByVal Target As Range)

'Prüfen, ob wir in der richtigen Zelle sind
If Not Intersect(Target, Range("Q3,W3,AC3,AI3,AO3,AU3,BA3,BG3,BM3,BS3,BY3,CE3,CK3,CQ3,CW3,DC3,DI3,DO3,DU3,EA3,EG3,EM3,ES3,EY3,FE3,FK3,FQ3,FW3,GC3,GI3,GO3,GU3,HA3,HG3,HM3,HS3,HY3,IE3,IK3,IQ3,IW3,JC3")) Is Nothing Then

'Prüfen, ob "Buchungen" in Zelle Q3 steht
If Range("Q3,W3,AC3,AI3,AO3,AU3,BA3,BG3,BM3,BS3,BY3,CE3,CK3,CQ3,CW3,DC3,DI3,DO3,DU3,EA3,EG3,EM3,ES3,EY3,FE3,FK3,FQ3,FW3,GC3,GI3,GO3,GU3,HA3,HG3,HM3,HS3,HY3,IE3,IK3,IQ3,IW3,JC3").Value = "please choose" Then
Sheets("Project Scope").Unprotect
Rows("4:7").EntireRow.Hidden = True
Sheets("Project Scope").Protect
ElseIf Range("Q3,W3,AC3,AI3,AO3,AU3,BA3,BG3,BM3,BS3,BY3,CE3,CK3,CQ3,CW3,DC3,DI3,DO3,DU3,EA3,EG3,EM3,ES3,EY3,FE3,FK3,FQ3,FW3,GC3,GI3,GO3,GU3,HA3,HG3,HM3,HS3,HY3,IE3,IK3,IQ3,IW3,JC3").Value = "belongs to multiple Shippable Items" Then
Sheets("Project Scope").Unprotect
Rows("4:7").EntireRow.Hidden = False
Sheets("Project Scope").Protect
End If

End If

End Sub

Vielleicht kann mir da einer helfen?

LG

dernass09

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro Zellen automatisch einbleden/ausblenden
21.06.2022 10:27:36 Max
NotSolved
21.06.2022 10:47:03 Gast33605
NotSolved