Zeilen ohne x ausbleden
14.10.2015 21:18:42
Christian
Ich habe folgendes Problem:
Ich habe so eine Art Auswahlliste erstellt, wo immer nur eine Auswahl gelten kann.
Meine Auswahlbeschreibungen stehen in Spalte B (B3:B10)
In A3:A10 schreibe ich eine beliebige Zelle X, und alle anderen Zeilen sollen ausgeblendet werden.
z.B.: A4 wird mit x befüllt, dann sollen die Zeilen 3, 5-10 ausgeblendet werden
Beim entfernen von x auch wieder eingeblendet.
Nun habe ich folgenden Befehl gefunden, der die Zelle A3 auf x prüft und die Zeilen 4-10 ausblendet.
#####
Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.CountIf(Range("a3:a3"), "x") > 0 Then
Rows("4:10").Hidden = True
Else
Rows("4:10").Hidden = False
End If
End Sub
Ich will das aber nicht für alle Zellen A3, A4, A5, ... separat schreiben, sondern in einem VBA-Befehl.
Vermutlich gibt es da einen kleinen feinen zusatz, aber da ich VBA nur beschränkt beherrsche komme ich nicht darauf.
Wäre toll wenn ihr mir helfen könnt.
Danke im Voraus
Christian
Anzeige