Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1564to1568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mehrere VBA- Codes zusammenführen

Mehrere VBA- Codes zusammenführen
03.07.2017 10:42:22
Jasmin
Hallo zusammen
Ich möchte mehrere VBA- Codes zu einem Makro zusammenführen.
Es geht darum, dass bei der entsprechenden Auswahl in Zelle C2 einige Zeilen ausgeblendet werden.
In der Zelle C2 ist ein Dropwdown Menü hinterlegt, welches verschiedene Texte anzeigt.
Ich habe den unten stehenden VBA Code erstellt. Dieser funktioniert auch, aber natürlich nur für einen Text aus der Zelle C2.
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Position").Range("$C$2").Value = "Randverschluss" Then
Rows("110:122").Hidden = True
Else
Rows("110:122").Hidden = False
End If

Dies wäre beispielsweise der nächste Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Position").Range("$C$2").Value = "Side opening profile" Then
Rows("110:122").Hidden = True
Else
Rows("110:122").Hidden = False
End If

Wie kann ich die zusammenfügen, damit auch beide zusammen funktionieren?
Besten Dank im Voraus.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere VBA- Codes zusammenführen
03.07.2017 10:47:41
Michael
Hallo!
Fall für die Fall-Auswahl ;-):
Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Position").Range("$C$2")
Select Case .Value
Case Is = "Randverschluss", "Side opening profile"
Rows("110:122").Hidden = True
Case Is = "Ein anderer Zelltext"
'hier andere Zeilen die ausgeblendet werden
'usw.
Case Else 'Wenn keine der o.a. Werte in der Zelle steht
'was soll dann passieren bzw.
Rows("110:122").Hidden = False
End Select
End With
LG
Michael
AW: Mehrere VBA- Codes zusammenführen
03.07.2017 10:59:17
Jasmin
Perfekt.
Vielen herzlichen Dank.
Gern, Danke für die Rückmeldung, owT
03.07.2017 11:03:09
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige