VBA - Zellen einblenden, wenn bestimmte Zelle leer ist

[CurlySue]

Huhu! Ich hoffe ihr könnt mir helfen. Ich möchte gerne, dass immer eine neue Zeile eingeblendet wird, wenn in einer bestimmten Zelle (aus der vorherigen Zeile) ein Wert steht, bzw. diese einfach nicht leer ist. Das ganze soll (beispielsweise) nur für den Bereich Zeile 4 bis Zeile 13 gelten.

Bsp: Wenn ein Wert in Zelle A4 steht, soll Zeile 5 eingeblendet werden. Steht dann in Zelle A5 ein Wert soll Zeile 6 eingeblendet werden.


Habt ihr hierfür eine Lösung? Ich habe bislang nur eine sehr unschöne Lösung, wo Excel unheimlich lang arbeitet und quasi der Bildschirm flackert.

Lieben Dank!

  Makro Test Zeilen einblenden.xlsx (Größe: 10,69 KB / Downloads: 4)

[Kuwer]

Hallo,

folgender Code kommt in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes:

Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Cells.Count = 1 Then

   If Not Application.Intersect(Target, Range("A4:A12")) Is Nothing Then

     Rows(Target.Row + 1).Hidden = False

   End If

 End If

End Sub

Gruß Uwe