|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Zeilen einblenden/ ausblenden wenn Bedingung erfüllt |
26.05.2017 09:31:23 |
Bravolus |
|
|
|
26.05.2017 14:07:46 |
Werner |
|
|
|
26.05.2017 17:40:04 |
Gast22602 |
|
|
Von:
Bravolus |
Datum:
26.05.2017 09:31:23 |
Views:
1059 |
Rating:
|
Antwort:
|
Thema:
Zeilen einblenden/ ausblenden wenn Bedingung erfüllt |
|
Hallo zusammen,
ich sitze nun schon eine ganze Weile an der Programmierung von Makros, doch ich komme nicht voran. Folgende Situation ist gegeben:
Von Zeile 15 bis 238 habe ich untereinander 9 Tabellen aufgelistet. Jede Tabelle stellt ein anderes Land dar. Von Zeile 242 bis 465 sind genau die selben Tabellen aufgelistet. Im Feld A6 habe ich eine DropDownListe eingefügt. wählt man nun hier ein Land aus, so soll nur das Land aus dem Abschnitt 15:238 erscheinen. Das habe ich soweit hinbekommen. Nun möchte ich aber ein Land mit einem anderen vergleichen. Dazu habe ich eine weitere DropDownListe im Feld A9 hinzugefügt. Wähle ich hier ein Land aus, so soll das jeweilige Land aus dem Zeilenabschnitt 242:465 angezeigt werden. Dies bekomm ich allerdings nicht hin.
Ich hoffe mir kann jemand weiter helfen. Meine bisherige Programmierung lautet:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Tabelle1
If .Range("A6").Text = "Global" Then 'DropDownZelle natürlich anpassen
.Rows("40:238").EntireRow.Hidden = True
Else
.Rows("40:238").EntireRow.Hidden = False
With Tabelle1
If .Range("A6").Text = "Deutschland/ Österreich/ Schweiz" Then 'DropDownZelle natürlich anpassen
.Rows("15:38").EntireRow.Hidden = True
.Rows("65:238").EntireRow.Hidden = True
Else
.Rows("15:38").EntireRow.Hidden = False
.Rows("65:238").EntireRow.Hidden = False
With Tabelle1
If .Range("A6").Text = "Frankreich" Then 'DropDownZelle natürlich anpassen
.Rows("15:63").EntireRow.Hidden = True
.Rows("90:238").EntireRow.Hidden = True
Else
.Rows("15:63").EntireRow.Hidden = False
.Rows("90:238").EntireRow.Hidden = False
With Tabelle1
If .Range("A6").Text = "Großbritanien" Then 'DropDownZelle natürlich anpassen
.Rows("15:88").EntireRow.Hidden = True
.Rows("115:238").EntireRow.Hidden = True
Else
.Rows("15:88").EntireRow.Hidden = False
.Rows("115:238").EntireRow.Hidden = False
With Tabelle1
If .Range("A6").Text = "Spanien" Then 'DropDownZelle natürlich anpassen
.Rows("15:113").EntireRow.Hidden = True
.Rows("140:238").EntireRow.Hidden = True
Else
.Rows("15:113").EntireRow.Hidden = False
.Rows("140:238").EntireRow.Hidden = False
With Tabelle1
If .Range("A6").Text = "Italien" Then 'DropDownZelle natürlich anpassen
.Rows("15:138").EntireRow.Hidden = True
.Rows("165:238").EntireRow.Hidden = True
Else
.Rows("15:138").EntireRow.Hidden = False
.Rows("165:238").EntireRow.Hidden = False
With Tabelle1
If .Range("A6").Text = "USA" Then 'DropDownZelle natürlich anpassen
.Rows("15:163").EntireRow.Hidden = True
.Rows("190:238").EntireRow.Hidden = True
Else
.Rows("15:163").EntireRow.Hidden = False
.Rows("190:238").EntireRow.Hidden = False
With Tabelle1
If .Range("A6").Text = "China" Then 'DropDownZelle natürlich anpassen
.Rows("15:188").EntireRow.Hidden = True
.Rows("215:238").EntireRow.Hidden = True
Else
.Rows("15:188").EntireRow.Hidden = False
.Rows("215:238").EntireRow.Hidden = False
With Tabelle1
If .Range("A6").Text = "Türkei" Then 'DropDownZelle natürlich anpassen
.Rows("15:213").EntireRow.Hidden = True
Else
.Rows("15:213").EntireRow.Hidden = False
With Tabelle1
If .Range("A9").Text = "Global" Then 'DropDownZelle natürlich anpassen
.Rows("267:465").EntireRow.Hidden = True
Else
.Rows("267:465").EntireRow.Hidden = False
With Tabelle1
If .Range("A9").Text = "Deutschland/ Österreich/ Schweiz" Then 'DropDownZelle natürlich anpassen
.Rows("242:265").EntireRow.Hidden = True
.Rows("292:465").EntireRow.Hidden = True
Else
.Rows("242:265").EntireRow.Hidden = False
.Rows("292:465").EntireRow.Hidden = False
With Tabelle1
If .Range("A9").Text = "Frankreich" Then 'DropDownZelle natürlich anpassen
.Rows("242:290").EntireRow.Hidden = True
.Rows("317:465").EntireRow.Hidden = True
Else
.Rows("242:290").EntireRow.Hidden = False
.Rows("317:465").EntireRow.Hidden = False
With Tabelle1
If .Range("A9").Text = "Großbritanien" Then 'DropDownZelle natürlich anpassen
.Rows("242:315").EntireRow.Hidden = True
.Rows("342:465").EntireRow.Hidden = True
Else
.Rows("242:315").EntireRow.Hidden = False
.Rows("342:465").EntireRow.Hidden = False
With Tabelle1
If .Range("A9").Text = "Spanien" Then 'DropDownZelle natürlich anpassen
.Rows("242:340").EntireRow.Hidden = True
.Rows("367:465").EntireRow.Hidden = True
Else
.Rows("242:340").EntireRow.Hidden = False
.Rows("367:465").EntireRow.Hidden = False
With Tabelle1
If .Range("A9").Text = "Italien" Then 'DropDownZelle natürlich anpassen
.Rows("242:365").EntireRow.Hidden = True
.Rows("392:465").EntireRow.Hidden = True
Else
.Rows("242:365").EntireRow.Hidden = False
.Rows("392:465").EntireRow.Hidden = False
With Tabelle1
If .Range("A9").Text = "USA" Then 'DropDownZelle natürlich anpassen
.Rows("242:390").EntireRow.Hidden = True
.Rows("417:465").EntireRow.Hidden = True
Else
.Rows("242:390").EntireRow.Hidden = False
.Rows("417:465").EntireRow.Hidden = False
With Tabelle1
If .Range("A9").Text = "China" Then 'DropDownZelle natürlich anpassen
.Rows("242:415").EntireRow.Hidden = True
.Rows("442:465").EntireRow.Hidden = True
Else
.Rows("242:415").EntireRow.Hidden = False
.Rows("442:465").EntireRow.Hidden = False
With Tabelle1
If .Range("A9").Text = "Türkei" Then 'DropDownZelle natürlich anpassen
.Rows("242:440").EntireRow.Hidden = True
.Rows("442:465").EntireRow.Hidden = True
Else
.Rows("242:440").EntireRow.Hidden = False
.Rows("442:465").EntireRow.Hidden = False
End If
End With
End If
End With
End If
End With
End If
End With
End If
End With
End If
End With
End If
End With
End If
End With
End If
End With
End If
End With
End If
End With
End If
End With
End If
End With
End If
End With
End If
End With
End If
End With
End If
End With
End If
End With
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Zeilen einblenden/ ausblenden wenn Bedingung erfüllt |
26.05.2017 09:31:23 |
Bravolus |
|
|
|
26.05.2017 14:07:46 |
Werner |
|
|
|
26.05.2017 17:40:04 |
Gast22602 |
|
|