Hallo,
habe folgenden Code:
Sub KreuzeErzeugen_Feld1()
Dim a As Range
Dim Bereich As Range
Set Bereich = Worksheets("Tabelle5").Range("I25:O31")
Bereich.Borders(xlDiagonalUp).LineStyle = xlNone
Bereich.Borders(xlDiagonalDown).LineStyle = xlNone
For Each a In Bereich
Select Case a
Case Is = Range("Tabelle4!E5"), Range("Tabelle4!F5"), Range("Tabelle4!G5"), Range(" _
Tabelle4!H5"), _
Range("Tabelle4!I5"), Range("Tabelle4!J5")
With a.Borders(xlDiagonalDown)
.Weight = xlMedium
End With
With a.Borders(xlDiagonalUp)
.Weight = xlMedium
End With
End Select
Next
End Sub
Der Code erzeugt in Tabelle5 Im Bereich I25:O31 Kreuze und benötigt dafür Zahlen, die in Tabelle4 stehen in den Feldern E5 bis J5.Nun habe ich diesen Code, der in meiner Testmappe steht, umgeändert und wollte
ihn in meine Projektmappe einfügen:
Sub KreuzeErzeugen_Feld1()
Dim a As Range
Dim Bereich As Range
Set Bereich = Worksheets("Tabelle8").Range("B7:H13")
Bereich.Borders(xlDiagonalUp).LineStyle = xlNone
Bereich.Borders(xlDiagonalDown).LineStyle = xlNone
For Each a In Bereich
Select Case a
Case Is = Range("Tabelle4!E30"), Range("Tabelle4!F30"), Range("Tabelle4!G30"), Range(" _
Tabelle4!30"), _
Range("Tabelle4!I30"), Range("Tabelle4!J30")
With a.Borders(xlDiagonalDown)
.Weight = xlMedium
End With
With a.Borders(xlDiagonalUp)
.Weight = xlMedium
End With
End Select
Next
End Sub
Hier werden die Daten in Tabelle4 in den Feldern E30 bis J30 benötigt und die
Kreuze sollen in Tabelle8 im Bereich B7 bis H13 erscheinen.
Jetzt kommt die Fehlermeldung "Index liegt außerhalb des gültigen Bereiches"; gelb
markiert ist im Debugger Set Bereich = .....
Wieso klappt es in der Testmappe und nicht in der Projektmappe? In beiden Fällen
stehen die benötigten Daten doch auf einem anderen Tabellenbaltt als dem, in dem
die Kreuze erscheinen sollen.