Aktive Zelle als Referenz für Formel
22.12.2005 10:51:42
petra
habe in spalten A und B ab Zeile 16 Datumsangaben, jeweils in Spalten E und F, H und I, K und L, N und O, Q und R von 3 bis 15 unterschiedliche Ausgangsdaten.
Nun ermöglicht mir der Makro:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zellen As Range
Set Zellen = Range("e16:f329")
If Not Intersect(Target, Zellen) Is Nothing Then
Tabelle1.Calculate
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zellen As Range
Set Zellen = Range("d3:f10")
If Not Intersect(Target, Zellen) Is Nothing Then
Tabelle2.Calculate
Tabelle1.Calculate
Range("E14").GoalSeek Goal:=Range("E15").Value, ChangingCell:=Range("E8")
Range("H14").GoalSeek Goal:=Range("H15").Value, ChangingCell:=Range("H8")
Range("K14").GoalSeek Goal:=Range("K15").Value, ChangingCell:=Range("K8")
Range("N14").GoalSeek Goal:=Range("N15").Value, ChangingCell:=Range("N8")
Range("Q14").GoalSeek Goal:=Range("Q15").Value, ChangingCell:=Range("Q8")
End If
End Sub
eine Berechnung von Werten in Zellen T8 bis AE8. (Eine Index-Vergleich-Formel bezieht sich auf ein weiteres Tabellenblatt)
Allerdings möchte ich nun über die aktive Zelle bestimmen, aus welchen Tabellenblatt er die Werte in Zellen T8 bis AE8 beziehen soll.
Geht das irgendwie?
lieben gruß
petra