Makro auslösen
14.01.2009 22:39:00
werner
ich habe hier im Forum sehr gr0ße Hilfe bekommen, Danke!!
Doch im nachfolgenden Makro habe ich anscheinend schon wieder den Wurm reingekrigt.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Range("B6") = 1 Then
Range("D7") = Range("D5")
ElseIf Range("B6") = 2 Then
Range("D8") = Range("D5")
ElseIf Range("B6") = 3 Then
Range("D9") = Range("D5")
ElseIf Range("B6") = 4 Then
Range("D10") = Range("D5")
ElseIf Range("B6") = 5 Then
Range("D11") = Range("D5")
ElseIf Range("B6") = 6 Then
Range("D12") = Range("D5")
ElseIf Range("B6") = 7 Then
Range("D13") = Range("D5")
ElseIf Range("B6") = 8 Then
Range("D14") = Range("D5")
ElseIf Range("B6") = 9 Then
Range("D15") = Range("D5")
ElseIf Range("B6") = 10 Then
Range("D16") = Range("D5")
ElseIf Range("B6") = 11 Then
Range("D17") = Range("D5")
ElseIf Range("B6") = 12 Then
Range("D18") = Range("D5")
End If
Application.EnableEvents = True
End Sub
Die Werte der Zellen B6 und D5 kommen durch einen Bezug zustande ( =Tabelle1!B6), und =Tabelle1!D5)
soweit, sogut aber wenn sich in Tabelle1 der Wert ändert , ändert sich in Tabelle2 wo das Makro steht zwar der Wert aber das Makro wird erst ausgelöst wenn ich in der Tabelle2 eine Zelle Anklicke. Das ist sicher nur eine kleinigkeit, aber ich komme nicht trauf.
Gruß Werner