Hallo,
besser noch man fragt den Match-Wert über eine Variant-Variable ab:
Option Explicit
Public Sub test()
Const ROWTO_CHECK As Long = 1
Const CHECK_VAL As Long = 1
Const STOP_CHECK As Long = 0
Dim objRange As Range
Dim vntReturn As Variant
vntReturn = Application.Match(CHECK_VAL, Rows(ROWTO_CHECK), 0)
If IsError(vntReturn) Then _
MsgBox "Suchwert nicht gefunden", vbExclamation, "NotFound": Exit Sub
With ActiveSheet
Set objRange = .Range(.Cells(ROWTO_CHECK, CLng(vntReturn)), _
.Cells(ROWTO_CHECK, .Cells(ROWTO_CHECK, .Columns.Count).End(xlToLeft).Column)).Find( _
What:=STOP_CHECK, LookIn:=xlValues, LookAt:=xlWhole)
If Not objRange Is Nothing Then _
.Range(.Cells(objRange.Row, CLng(vntReturn)), _
.Cells(objRange.Row, objRange.Column - 1)).Columns.Hidden = True
End With
Set objRange = Nothing
End Sub
Gruß,
|