VBA Private Worksheets Change zusammenfügen
26.05.2015 21:31:02
Hanna
ich bin gerade dabei, mich ein bisschen mit Makros auseinanderzusetzen.
Konkret geht es darum, dass ich eine Excel-Tabelle habe, die verschiedene Eingabe(Listen)felder hat, insgesamt 11 Stück.
Bei der Arbeit mit der Tabelle kann es vorkommen, dass nur das erste Eingabefeld genutzt wird, oder nur 5 und dann die restlichen Felder leer sind. Die leeren Felder sollen dann optimalerweise verschwinden, sobald ich in dem auf das letzte genutzte Eingabefeld Dropdown-Menü "fertig" ausgewählt habe.
In Zeile 54-56 befindet sich dann nochmal ein verbindliches Eingabefeld, das nicht verschwinden soll.
Folgenden Code habe ich mir durch Google etc. zusammengebastelt und er funktioniert auch für das Eingabefeld 1 (d.h., wenn das leer ist, verschwindet es + alle darauffolgenden):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varAusblend As Range
Dim varSchalter As Range
Set varAusblend = ActiveSheet.Rows("10:53")
Set varSchalter = ActiveSheet.Cells(10, 1)
If varSchalter.Value = "fertig" And varAusblend.Hidden = False Then
varAusblend.Hidden = True
Else
If varSchalter.Value "fertig" And varAusblend.Hidden = True Then
varAusblend.Hidden = False
End If
End If
End Sub
Nun habe ich das gleiche aber auch für die nachfolgenden 10 Eingabefelder.Also Rows 14-53, Cells 14, 1 / Rows 18-53, Cells 18, 1 usw. (immer in 4er Schritten bis 50 also).
Mehrere Worksheet Changes in einem Dokument lässt mich der VBA irgendwie nicht machen, das wäre wohl zu "einfach" gewesen :)
Nun also meine Frage: Wie kann ich die 11 Codes zusammenbringen, kann mir das jemand erklären?
Das wäre wunderbar!!
Vielen Dank und liebe Grüße,
Hanna