VBA Problem
22.06.2008 22:53:00
Peter
ich habe hier diesen Code bei dem ich mit Rechtsklick Zellen färben kann. Ich bin jetzt aber beim Maximum der Zelleingabe angelangt. Ich bekomme die Meldung "Bezeichner zu lang". Ich müßte aber 4X so viele Zellen eingeben. Wie kann ich den Code umstellen das es klappt. Bitte um hilfe !!!
Gruß Peter
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([B4,D4,F4,H4,J4,L4,N4,P4,R4,T4,V4,X4,Z4,AB4,AD4,AF4,AH4,AJ4,AL4,AN4,AP4,AR4, _
AT4,AV4,AX4,AZ4,BB4,BF4,BH4,BJ4,BL4,BN4,BP4,BR4,BT4,BV4,BX4,BZ4,CB4,CD4,CF4,B6,D6,F6,H6,J6,L6,N6,P6,R6,T6,V6,X6,Z6,AB6,AD6,AF6,AH6,AJ6,AL6,AN6,AP6,AR6,AT6,AV6,AX6,AZ6;BB6,BF6,BH6], Target) Is Nothing Then
If Target.Interior.ColorIndex = 5 Then
Target.Interior.ColorIndex = x1None
Else
Target.Interior.ColorIndex = 5
End If
Cancel = True
End If
End Sub