Select case
07.06.2017 16:05:35
Rolf
kann man die folgenden Zeilen auch mit "Select Case" schreiben?
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
[D1] = "wert"
End If
If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
[D1] = "Tor"
End If
If Not Intersect(Target, Range("C1:C10")) Is Nothing Then
[D1] = "Hut"
End If
End Sub
Gruß Rolf