Hallo, ich will in meiner tabelle den Wert -1 suchen, und diesen sowie die beiden Zellen rechts davon gelb markieren. Hab ihn dann auch einen Button gelegt, aber es kommt immer ein fehler beim kompilieren.
Hab diesen Code hier geschrieben:
Private Sub CommandButton2_Click()
Option Explicit ->>>>>>>>>>>>>>>>>>>>> hier kommt immer während einer Prozedur ungültig!
Dim WS As Object
Sub markieren()
Dim c As Range
Dim firstAddress As String
Set WS = Sheets("Tabelle1")
With Range(WS.Cells(1, 1), WS.Cells(leZeile, leSpalte))
Set c = .Find(-1, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Range(WS.Cells(c.Row, c.Column), WS.Cells(c.Row, _
c.Column + 2)).Interior.ColorIndex = 6
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
Function leZeile() As Long
leZeile = CLng(Range(WS.Range("A:IV").Find(What:="*", _
After:=Range("A65536"), LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Address).Row)
End Function
Function leSpalte() As Integer
leSpalte = CInt(Range(WS.Range("A:IV").Find(What:="*", After:=Range("IV1"), _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Address).Column)
End Function
End Function |