Makrofehler
11.02.2022 15:31:20
mike49
mit den beiden Makros möchte ich Zellbereich und Reihenbereich gleichzeitig ansprechen.
Die Farbe habe ich über die bedingte Formatierung festgelegt.
Aber leider funktioniert es nur bei Zeile. Die Namen "beißen" sich!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B9:AF49,B12:AF12,B15:AF15,B18:AF18,B21:AF21,B24:AF24,B27:AF27,B30:AF30,B33:AF33,B36:AF36,B39:AF39,B42:AF42")) Is Nothing Then
Range("AQ1").Value = Target.Row
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B6:AF42")) Is Nothing Then
Range("AQ2").Value = Target.Column
End If
End Sub
Was habe ich da falsch gemacht? Kann man das beheben?Gruß
mike49