Array Falsch?
03.11.2012 15:43:20
Lorenz
Ich vermute: Excelspezis können die Aufgabenstellung erkennen. Wäre mir lieber so, da meine Erklärungen immer sehr mies sind. Falls es aber doch notwendig wird, werde ich eine Erläuterung meiner Wünsche nachreichen. Ganz kurz: Zwei gleich aufgebaute Blätter und es soll wenn im 2ten Blatt ein "F" vorkommt, so soll im 1ten Blatt ein Kreuz erscheinen
Sub uebertrag()
Dim arr1, arr2
arr1 = Array(wksKalender.Range("H14:ABK97"))
arr2 = Array(wksWE_F.Range("H14:ABK97"))
With Range(arr1)
If Range(arr2) = "F" Then
With .Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Else
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
End With
End Sub
Wie gehört der Code "funktionierend" umgestrickt (Mustercode würde auch reichen)
Grüße Lorenz