767 Aufrufe
Gefragt in Tabellenkalkulation von kurtl Mitglied (239 Punkte)
Hallo liebe Experten,
noch eine Frage zu folgendem Makro welches mir heute hier -Danke vielmals- aufgezeigt wurde.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A3,B3,C1")) Is Nothing Then
If Target.Value > 10 Then
Call springen
End If
End If
End Sub
Bei Werten größer 10 in den Zellen A1;A2;A3;u.C1 wird das Makro "springen" aktiviert.

Wie müsste das aussehen, wenn
A1:A3 >10 = Aktivierung Makro "springen"
B3>10 Aktivierung Makro "hopsen"
C1>10 Aktivierung Makro "kriechen"
gewünscht wäre?

Gruß Kurt

1 Antwort

0 Punkte
Beantwortet von rainberg Profi (14.9k Punkte)
Hallo Kurt,

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case Is = "$A$1", "$A$2", "$A$3"
If Target.Value > 10 Then
Call springen
End If
Case Is = "$B$3"
If Target.Value > 10 Then
Call hopsen
End If
Case Is = "$C$3"
If Target.Value > 10 Then
Call kriechen
End If
End Select
End Sub


Gruß
Rainer
...