ich brauche eure hilfe. Ich mache mit der rechten MAustaste ein anderes Menue auf. Jetzt habe ich probleme mit einem Code. In dem Code gebe ich die Bereiche an wo die Daten hingeschrieben werden sollen die in der rechten Maustaste stehen. So wie der Code jetzt ist klappt noch alles aber sobald ich jetzt noch einen Bereich eingebe kommt eine fehlermeldung. Es sind wahrscheinlich zuviele Bereiche. Was kann man machen damit ich noch mehr Berieche eintragen kann? Bitte um Hilfe !!!!
Gruß Stephan
Hier der Code:
Sub eintrag(ByVal str As String)
Dim rng As Range, strRange As String
Select Case ActiveSheet.Name
Case "Jan"
strRange =
"I7:AM10,I17:AM20,I27:AM31,I38:AM41,I48:AM51,I58:AM61,I68:AM71,I78:AM81,I88:AM91,I98:AM98,I105: _
AM105,I112:AM112,I119:AM119,I126:AM126,I133:AM133,I140:AM140,I147:AM147,I154:AM154,I162:AM162,I169:AM169,I176:AM176,I183:AM183,I190:AM190,I197:AM197,I204:AM204"
Case "Feb"
strRange = "I7:AM47,I49:AM53,I55:AM57,I59:AM66,I68:AM73"
Case "März"
strRange = "I7:AM47,I49:AM53,I55:AM57,I59:AM66,I68:AM73"
Case "Apr"
strRange = "I7:AM47,I49:AM53,I55:AM57,I59:AM66,I68:AM73"
Case "Mai"
strRange = "I7:AM47,I49:AM53,I55:AM57,I59:AM66,I68:AM73"
Case "Jun"
strRange = "I7:AM47,I49:AM53,I55:AM57,I59:AM66,I68:AM73"
Case "Jul"
strRange = "I7:AM47,I49:AM53,I55:AM57,I59:AM66,I68:AM73"
Case "Aug"
strRange = "I7:AM47,I49:AM53,I55:AM57,I59:AM66,I68:AM73"
Case "Sep"
strRange = "I7:AM47,I49:AM53,I55:AM57,I59:AM66,I68:AM73"
Case "Okt"
strRange = "I7:AM47,I49:AM53,I55:AM57,I59:AM66,I68:AM73"
Case "Nov"
strRange = "I7:AM47,I49:AM53,I55:AM57,I59:AM66,I68:AM73"
Case "Dez"
strRange = "I7:AM47,I49:AM53,I55:AM57,I59:AM66,I68:AM73"
End Select
For Each rng In Selection
If Not Intersect(rng, Range(strRange)) Is Nothing Then
rng = UCase(str)
End If
Next
End Sub