Hallo zusammen,
ich habe wieder ein kleines Problem.
Mit dem Code unten setze ich eine Combobox
sobalt eine Zelle in einem besteimmten Bereich ewählt wird.
Soweit so gut. Ich benutze mehrere Bereiche wo dies geschehen
soll. Bis "r9" funktioniert das auch. Alles darüber funktioniert
dann nicht mehr. Hat evtl. jemand eine Lösung für mein Problem?
Vielen Dank!
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Dim r1 As Range
Dim r2 As Range
Dim r3 As Range
Dim r4 As Range
Dim r5 As Range
Dim r6 As Range
Dim r7 As Range
Dim r8 As Range
Dim r9 As Range
Dim r10 As Range 'ab hier keine Funktion mehr
Dim r11 As Range
Dim r12 As Range
Dim r13 As Range
Dim r14 As Range
Dim r15 As Range
Dim r16 As Range
Dim r17 As Range
Dim r18 As Range
Dim r19 As Range
Dim r20 As Range
Dim r21 As Range
Dim r22 As Range
Dim r23 As Range
Dim r24 As Range
Dim r25 As Range
Set r1 = Range("C30:C44, K30:K44, S30:S44")
Set r2 = Range("C48:C62, K48:K62, S48:S62")
Set r3 = Range("C66:C80, K66:K80, S66:S80")
Set r4 = Range("C84:C98, K84:K98, S84:S98")
Set r5 = Range("C102:C116, K102:K116, S102:S116")
Set r6 = Range("C120:C134, K120:K134, S120:S134")
Set r7 = Range("C138:C152, K138:K152, S138:S152")
Set r8 = Range("C156:C170, K156:K170, S156:S170")
Set r9 = Range("C174:C188, K174:K188, S174:S188")
Set r10 = Range("C195:C209, K195:K209, S195:S209") 'ab hier keine Funktion mehr
Set r11 = Range("C213:C227, K213:K227, S213:S227")
Set r12 = Range("C231:C245, K231:K245, S231:S245")
Set r13 = Range("C249:C263, K249:K263, S249:S263")
Set r14 = Range("C267:C281, K267:K281, S267:S281")
Set r15 = Range("C285:C299, K285:K299, S285:S299")
Set r16 = Range("C303:C317, K303:K317, S303:S317")
Set r17 = Range("C321:C335, K321:K335, S321:S335")
Set r18 = Range("C339:C353, K339:K353, S339:S353")
Set r19 = Range("C357:C371, K357:K371, S357:S371")
Set r20 = Range("C375:C389, K375:K389, S375:S389")
Set r21 = Range("C393:C407, K303:K407, S303:S407")
Set r22 = Range("C411:C425, K411:K425, S411:S425")
Set r23 = Range("C429:C443, K429:K443, S429:S443")
Set r24 = Range("C447:C461, K447:K461, S447:S461")
Set r25 = Range("C465:C479, K465:K479, S465:S479")
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Union(r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12, r13, r14, r15, r16, r17, r18, r19, r20, r21, r22, r23, r24, r25)) Is Nothing Then
CB01_MAListe.Visible = False
Exit Sub
Else
CB01_MAListe.Visible = True
CB01_MAListe.Top = Target.Top
CB01_MAListe.Left = Target.Left
CB01_MAListe.Value = ActiveCell.Value
CB01_MAListe.Activate
End If
End Sub
|