Excel Vba: Methode 'Bereich' des Objekts '_Global' fehlgeschlagen Fehler in Excel

Question

Ich stoße auf diesen Fehler Wenn ich "Let SRange =" C "...." stattdessen verwenden, funktioniert es, aber ich will nicht um das Ende der Spalte wie "NV" anzugeben. Ich würde raten, die Spalte in FinalCol zu verwenden. Es könnte einfacher sein, sich den Code anzusehen. Ich habe einige Änderungen .. aber jetzt ist es zu fragen: „Objektvariable oder With-Blockvariable nicht gesetzt“

 Option Explicit 

Sub Range_End() 

Dim X As Variant, Count, FinalCol, SRange, XRange As Range 

Sheets("Formatted").Select 

    X = InputBox("enter row number") 


Count = 1 
Do While Cells(4, Count) <> Empty 
    Count = Count + 1 
Loop 
    FinalCol = Count - 1 

    ' Let SRange = "C" & X & ":" & "NV" & X 
SRange = Range(Cells(X, 3), Cells(X, FinalCol)).Address 

    Application.ScreenUpdating = False 
     For Each XRange In Range(SRange) 
      If XRange.Value = "" Then 
       XRange.EntireColumn.Hidden = True 
      Else 
       XRange.EntireColumn.Hidden = False 
      End If 
     Next XRange 

    Application.ScreenUpdating = True 

End Sub 

Answer 1

können Sie versuchen, diese und sehen, ob es funktioniert? Wenn es nicht können Sie uns wissen lassen, welche Linie es Fehler auf und was die Fehlermeldung sagt

Option Explicit 
Public Sub Range_End() 
    Dim X As Variant 
    Dim Count As Long, FinalCol As Long 
    Dim SRange As Range, XRange As Range, HideRange As Range 

    With Sheets("Formatted") 
     .Activate 

     X = InputBox("enter row number") 

     Set SRange = .Range(Cells(X, 3), Cells(X, .Cells(4, .Columns.Count).End(xlToRight).Column)) 
    End With 

    Application.ScreenUpdating = False 
    SRange.EntireColumn.Hidden = False 

    For Each XRange In SRange 
     If XRange.Value = vbNullString Then 
      If HideRange Is Nothing Then 
       Set HideRange = XRange 
      Else 
       Set HideRange = Union(HideRange, XRange) 
      End If 
     End If 
    Next XRange 

    If Not HideRange Is Nothing Then HideRange.EntireColumn.Hidden = True 

    Application.ScreenUpdating = True 
End Sub