Makroaufruf durch Änderung einer Zelle
15.12.2020 15:51:50
Hans-Peter
Ich habe ein Makro (abgeschrieben :)), welches mir Zufallszahlen erst ändert, wenn ich in ein Feld z.B. "W" (für weiter) eingebe. Da es aber ziemlich viele Eingabemöglichkeiten gibt (ca. 360) und VBA nach so ca. 20 oder 30 Möglichkeiten streikt, hatte ich die Idee, im Tabellenblatt den Verweis durchzuführen z.B. in A1 = Wenn(oder H13="w"; R13="w"; usw);"W";""). Dann reagiert das Makro aber nicht mehr, weil eben wohl der Zellinhalt (W) abgefragt wird und nicht die Formel. Gibt es dafür eine Lösung?
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$H$13" Or Target.Address = "$R$13" Or Target.Address = "$AB$13" Or Target. _
Address = "$AL$13"
Or Target.Address = "$AV$13" Or Target.Address = "$H$25" Or Target.Address = "$R$25" Or Target. _
Address = "$AB$25" Or Target.Address = "$AL$25" Or Target.Address = "$AV$25" Or Target.Address = "$H$37" Or Target.Address = "$R$37"
Or Target.Address = "$AB$37" Or Target.Address = "$AL$37" Or Target.Address = "$AV$37" Or _
Target.Address = "$H$49" Or Target.Address = "$R$49" Or Target.Address = "$AB$49" Or Target.Address = "$AL$49" Or Target.Address = "$AV$49" Or Target.Address = "$H$61" Or Target.Address = "$R$61" Or Target.Address = "$AB$61" Or Target.Address = "$AL$61"
Or Target.Address = "$AV$61" Or Target.Address = "$H$73" Or Target.Address = "$R$73" Or Target. _
Address = "$AB$73" Or Target.Address = "$AL$73" Or Target.Address = "$AV$43" Then
Set Bereich = Range("L5:L10")
For Each Zelle In Bereich
Zelle.Value = Int((6 * Rnd) + 1)
Next Zelle
End If
End Sub
Wenn ich den Namen des Tabellenblattes durch den Bezug auf eine Zelle im Blatt selbst ändern möchte - wie bringe ich die beiden Module zusammen?