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