Office: [Excel 2007]: Makro bezug auf Zelle, die Formel enthält

Hallo Zusammen,

ich bin absoluter Anfänger was das programmieren von VBA´s angeht, habe es aber irgendwie doch geschafft ein Makro zu erstellen welches Zeilen einblendet, wenn in einer Bestimmten Zelle ein "1" eingetragen wird. Das Makro muss dabei nicht extra aktiviert werden, sonder startet automatisch, wenn sich die betreffende Zelle ändert.

Jetzt habe ich allerdings eine Zelle in der kein manueller Wert eingetragen werden soll, sondern der Wert errechnet sich anhand einer Formel. Wenn die Formel jetzt als Ergebnis "1" hat, funktioniert das Makro allerdings nicht.

Könnt Ihr mir weiterhelfen?

Vielen Dank und viele Grüße,

buster

 

Hallo!

Wie sieht denn dein bisheriger Code aus?
Vielleicht reicht es schon, das Ding als Calculate-Ereignis einzubinden!?

 

Das ist der bisherige Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$21" Then
Range("$I$21").Select
If ActiveCell = "1" Then
Range("A21").EntireRow.Hidden = True
Else
Range("A21").EntireRow.Hidden = False
End If
Else
End If
End Sub

Was ist ein Calculate Ereignis und wie binde ich das ein? Heißt das die Berechnung in das Makro mit einbeziehen?

Vielleicht sollte ich auch noch etwas weiter ausholen.
Bei der Formel handelt es sich nicht im eigentlichen Sinn um eine Berechnung. Es geht nur darum das, wenn in einem anderen Arbeitsblatt in der Zelle A1 eine "1" steht, dies das Makro im eigentlichen Arbeitsblatt aktivieren soll. Da ich den Bezug zu dem anderen Arbeitsblatt nicht hinbekommen habe, wollte ich den Umweg gehen die "1" erstmal in das Arbeitsblatt des Makro rüberzunehmen und dann das Makro auszulösen.
Wenn man also als Auslöser des Makros A1 eines anderen Tabellenblatts bestimmen kann, würde mir das auch weiterhelfen.

 

Hi,

habe ich das richtig verstanden - wenn in I21 eine 1 eingetragen wird, soll in einem anderen Tabellenblatt die Zeile 21 ausgeblendet werden?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$I$21" Then Worksheets("Tabelle1").Rows(21).EntireRow.Hidden = Target = 1
End Sub

Bis später,
Karin