|
Hallo
ich möchte wenn in einer bestimmten Spalte eine 1 in Zeile x steht diese einfärben.
Und dann in dieser Zeile ein Eintrag in einer Spalte mit # beginnt, diese Spalte dann komplett einfärben.
Das Einfärben der Zeilen klappt, aber beim Indentifizieren der Spalten - vielleicht auch weil ich hier nicht auf 1 prüfe sondern auf erstes Symbol # - bekomme ich den Laufzeitfehler 1004. Hat da jemand eine Idee woran das liegen kann ?
Warum kann man column(x,y) nicht genauso verwenden wie rows(x,y) ?
Hier der Code: Ich hofe da kann mir jemand helfen ?
Option Explicit ' to ensure that only defined variables are used
Sub Colour()
'
' Colour Makro
'
' Tastenkombination: Strg+q
'
Const FirstLine As Long = 78 ' erste Zeile zum Fehlersuchen
Const LastLine As Long = 6000 ' letzte Zeile zum Fehlersuchen
Const ErrorColumn As Long = 278 ' Spalte Responseerror
Const FirstColumn As Long = 116 ' erste Spalte Auswertung #
Const LastColumn As Long = 277 ' letzte Spalte Auswertung #
Dim i, j As Long
ActiveWindow.SmallScroll Down:=77
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 262
Columns("JR:JR").Select
Range("JR78").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
For i = FirstLine To LastLine
If (Cells(i, ErrorColumn) = 1) Then
Rows(i & ":" & i).Select
Selection.Interior.PatternColorIndex = xlAutomatic
Selection.Interior.Color = 65535
For j = FirstColumn To LastColumn
If (Mid(Cells(i, j), 1, 1) = "#") Then
Columns(j & ":" & j).Select ' Columns("JJ:JJ").Select
Selection.Interior.PatternColorIndex = xlAutomatic
Selection.Interior.Color = 65535
End If
Next j
End If
Next i
End Sub
|