habe ein Problem...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "D4" Then
If Not Target Is Nothing Then
If Target.Value 13 Then
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run "https://www.google.de"
End If
End If
End If
End Sub
Wie kann ich diese nicht nur auf die Zelle D4 anwenden sondern auf D4 bis D30
habe schon einiges versucht, ich bekomme es einfach nicht hin.