Makro macht zeile zuviel, abhilfe?
03.12.2004 10:25:31
BOperator
Hab gestern von Dr. nen Source bekommen, der soweit funktioniert hat.
Hab ihn noch leicht abgeändert, dass er zu unserer Namenskonvention passt.
Das Makro soll jeder zweiten zeile in einem markierten bereich einfärben.
Allerdings hat der Source einen kleinen Bug. Bei einer ungeraden zahl an selectierten Zeilen nimmt er noch eine zeile über die markierung hinaus mit...
wie kann ich das unterbinden?
Mein Ansatz ist in diesen rautenabschnitt eingefasst, aber des funzt net... was ja auch irgendwie logisch ist... nur wie kann ich es besser lösen?
MfG, BOperator
Option Explicit
Sub do_hesch()
Dim nY1 As Integer
Dim nY2 As Integer
Dim nX1 As Integer
Dim nX2 As Integer
Dim nI As Integer
Dim nJ As Integer
Dim nCountRow As Integer
Dim nCountColu As Integer
Dim sColor1 As String
Dim sColor2 As String
sColor1 = RGB(255, 0, 0)
sColor2 = RGB(0, 0, 255)
nCountColu = ActiveWindow.Selection.Columns.Count
nCountRow = ActiveWindow.Selection.Rows.Count
nX1 = ActiveWindow.Selection.Column
nY1 = ActiveWindow.Selection.Row
nX2 = ActiveWindow.Selection.Column + nCountColu - 1
nY2 = ActiveWindow.Selection.Row + nCountRow - 1
For nI = nY1 To nY2 Step 2
For nJ = nX1 To nX2
ActiveSheet.Cells(nI, nJ).Interior.Color = sColor1
If nI = nY2 And nJ <> nX2 Then
Next nJ
ElseIf nI = nY2 And nJ = nX2 Then
Exit For
End If
ActiveSheet.Cells(nI + 1, nJ).Interior.Color = sColor2
Next nJ
Next nI
End Sub