VBA für Zeile ausblenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub hideLines() Dim rng As Range, varValues As Variant, lngIndex As Long, lngLast As Long On Error GoTo ErrorHandler Application.ScreenUpdating = False With ActiveSheet .Unprotect "password" lngLast = Application.Max(2, .Cells(.Rows.Count, 10).End(xlUp).Row) If lngLast > 2 Then varValues = .Range("J2:J" & lngLast) Else Redim varValues(1 To 1, 1 To 1): varValues(1, 1) = .Range("J2") End If .Range("J2:J" & lngLast).EntireRow.Hidden = False For lngIndex = 1 To Ubound(varValues, 1) If LCase(Trim(varValues(lngIndex, 1))) = "j" Then If rng Is Nothing Then Set rng = .Cells(lngIndex + 1, 1) Else Set rng = Union(rng, .Cells(lngIndex + 1, 1)) End If End If Next If Not rng Is Nothing Then rng.EntireRow.Hidden = True .Protect "password" End With ErrorHandler: Application.ScreenUpdating = True Set rng = Nothing End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Hallo Frank,
in das Modul 'DieseArbeitsmappe'.
Microsoft Excel Objekt DieseArbeitsmappe

Option Explicit 
 
Private Sub Workbook_Open() 
  Dim rng As Range, varValues As Variant, lngIndex As Long, lngLast As Long 
 
  Const PASSWORD As String = "dragon" 
   
  On Error GoTo ErrorHandler 
  Application.ScreenUpdating = False 
    With Me.Worksheets("Kalender") 
      .Unprotect PASSWORD 
      .Range("J:J").EntireRow.Hidden = False 
      lngLast = Application.Max(2, .Cells(.Rows.Count, 10).End(xlUp).Row) 
      If lngLast > 2 Then 
        varValues = .Range("J2:J" & lngLast) 
      Else 
        Redim varValues(1 To 1, 1 To 1): varValues(1, 1) = .Range("J2") 
      End If 
      For lngIndex = 1 To Ubound(varValues, 1) 
        If LCase(Trim(varValues(lngIndex, 1))) = "j" Then 
          If rng Is Nothing Then 
            Set rng = .Cells(lngIndex + 1, 1) 
          Else 
            Set rng = Union(rng, .Cells(lngIndex + 1, 1)) 
          End If 
        End If 
      Next 
      If Not rng Is Nothing Then rng.EntireRow.Hidden = True 
      .Protect PASSWORD 
    End With 
   
ErrorHandler: 
  Application.ScreenUpdating = True 
  Set rng = Nothing 
End Sub 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA für Zeile ausblenden

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread