selbständige Aktualisierung VBA - Zeilen ausblenden

[so.egal]

Hallo,

ich habe folgendes Problem:

Mit diesem VBA-Code blende ich unnötige Zeilen aus:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("A14:A23")
If xRg.Value = "0" Then
xRg.EntireRow.Hidden = True

Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub


Allerdings möchte ich, dass die Zeilen aus- und eingeblendet werden, sobald sich etwas ändert. Also, dass wenn etwas in der Zelle A14 steht, dass die Zeile 14 dann eingeblendet wird. Momentan geht das nur wenn ich in das ungeschützte Tabellenblatt gehe und mit Enter in einer der Zellen "aktiviere".

Kann mir da jemand helfen?
LG Tina

[Klaus-Dieter]

Hallo Tina,

wie kommt denn etwas in Zelle A14, wenn die Zeile ausgeblendet ist?

[Kuwer]

Hallo Tina,

das hier ( Klick mich! ) muss nur geringfügig geändert werden.

Gruß Uwe

[so.egal]

Hallo,
durch die Verknüpfung mit einem anderen Tabellenblatt.

LG Tina

---

...mit Worksheet_Calculate?

---

Ich lerne dazu. 

Nuss geknackt:

Private Sub Worksheet_Calculate()
'Updateby Extendoffice
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("A14:A23")
If xRg.Value = "0" Then
xRg.EntireRow.Hidden = True

Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub

[so.egal]

Hallo nochmal,

jetzt hab ich das Problem, dass es bei jeder Eingabe läd und so die Bedienung der Eingabetabelle stark verlangsamt. Gibt es eine Möglichkeit, dass das Macro erst anspringt, wenn ich den Tab anwähle und nicht bei jeder Eingabe?

LG Tina

[schauan]

Hallöchen,

durch die Verknüpfung mit einem anderen Tabellenblatt.

Dann musst Du auf die Änderung im anderen Tabellenblatt reagieren, also dort das Change-Ereignis nutzen und im Code dann auf das "EinAusBelndBlatt" verweisen

For Each xRg In Sheets("EinAusBelndBlatt").Range("A14:A23")

usw. (oder With nutzen)

[Kuwer]

Hallo Tina,

Gibt es eine Möglichkeit, dass das Macro erst anspringt, wenn ich den Tab anwähle und nicht bei jeder Eingabe?

dann schiebe den Code in das

Private Sub Worksheet_Activate() - Ereignis.

Gruß Uwe