Makro innerhalb einer Datei

21/08/2009 - 15:37 von Julia | Report spam
Hallo zusammen,

möchte Euch um Eure Mithilfe bitten.
Innerhalb eines Arbeitsblattes habe ich in der Zelle F7 eine Summe aus
zwei Werten.
Wenn diese Summe nicht 0 ergibt, sollte ein Makro (Makro1) starten.
Auf Anraten eines Kollegen habe ich auf der VBA-Entwicklungsebene
unter dem Arbeitsblatt, auf dem sich die relevante Zelle F7 befindet,
folgendes Makro.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = [f7].Address And [f7] <> 0 Then Call Makro1

End Sub

Das Makro funktioniert bei ihm in einem vergleichbaren Modell.
Leider funktioniert es bei mir nicht. Mein Kollege + ich können uns
dies beide nicht erklàren.

Hat jemand von Euch diesbezüglich eine Idee?
Über entsprechende Hinweise würde ich mich sehr freuen.

Vorab vielen Dank + schöne Grüsse,
Julia
 

Lesen sie die antworten

#1 Thomas Ramel
21/08/2009 - 15:42 | Warnen spam
Grüezi Julia


On 21 Aug., 15:37, Julia wrote:
Innerhalb eines Arbeitsblattes habe ich in der Zelle F7 eine Summe aus
zwei Werten.



Wie lauten die Adressen diese beiden Zellen?

Wenn diese Summe nicht 0 ergibt, sollte ein Makro (Makro1) starten.
Auf Anraten eines Kollegen habe ich auf der VBA-Entwicklungsebene
unter dem Arbeitsblatt, auf dem sich die relevante Zelle F7 befindet,
folgendes Makro.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = [f7].Address And [f7] <> 0 Then Call Makro1

End Sub

Das Makro funktioniert bei ihm in einem vergleichbaren Modell.
Leider funktioniert es bei mir nicht. Mein Kollege + ich können uns
dies beide nicht erklàren.



Das Ganze klappt so nur dann, wenn ein Wert in F7 eingetragen wurde.
In den folgenden Zeilen wird davon ausgegangen, dass sich die Summe in
F7 aus den Werten in A1 und B1 zusammensetzt:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2,B1")) Is Nothing Then
If Range("F7").Value = 0 Then

'Hier dein Makro starten

End If
End If
End Sub

Mit freundlichen Grüssen

Thomas Ramel
- MVP für MS-Excel -

Ähnliche fragen