|
Hallo in die Runde!
Ich bin ziemlich am Anfang bwzüglich meiner VBA Skills und bitte euch bei folgendem Problem um Unterstützung.
Ich habe ein Excel Sheet, welches aus vielen weiteren Sheets Inhalte per Formeln (Sverweise,...) einfügt, wenn diese Sheets auch mit Inhalt befüllt sind. Sprich, wenn mein Formelergebnis "" ist, dann wird nichts angezeigt, sonst der Wert, der Wert, der sich in dem zugrunde liegenden Sheet/Zelle befindet. Soweit klappt das gut -> ich habe mir dazu aus dem Internet VBA Code kopiert und angepasst der wie folgt aussieht:
-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("D17:D44")
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub
-----------------------------
Mein Problem ist folgendes: Ich muss auf dem Sheet nun manuell eine Aktualisierung herbeiführen (Zelle klicken, enter) um die gewünschte Darstellung zu erhalten.
Meine Frage: Was kann ich am Code ändern, sodass eine Aktualisierung automatisch zieht?
Vielen Dank für eure Hilfe,
Liebe Grüße,
Wolfgang
|