Thema Datum  Von Nutzer Rating
Antwort
28.07.2016 15:27:06 Yilo
NotSolved
28.07.2016 22:34:14 Gast15606
NotSolved
29.07.2016 11:43:14 Yilo
NotSolved
Blau Mehrere Zeilen ausblenden
 31.07.2016 18:15:43 Fa
*****
Solved

Ansicht des Beitrags:
Von:
Fa		 Datum:
31.07.2016 18:15:43		 Views:
731		 Rating:
     
Antwort:
 Nein
Thema:
Mehrere Zeilen ausblenden

Hallo Yilo,

versuche doch einmal einen anderen Weg, z.B.

Private Sub Worksheet_Change(ByVal Target As Range)

Const lngVisible As Long = 60    'sichtbar
Const blnTitle = True            'hat Titelzeile

Dim rngUsed As Range, rngVisible As Range
Dim lngAbs As Long, lngRow As Long

On Error GoTo fail
lngRow = ActiveWindow.ScrollRow
Application.ScreenUpdating = False

   lngAbs = lngVisible - 1
   Set rngUsed = ActiveSheet.UsedRange
   Set rngVisible = rngUsed.Rows(rngUsed.Rows.Count).Offset(-lngAbs, 0).Resize(lngVisible)
   
   rngUsed.EntireRow.Hidden = True
   rngVisible.EntireRow.Hidden = False
   If blnTitle Then Rows(1).Hidden = False
   
   ActiveWindow.ScrollRow = lngRow
   
On Error GoTo 0
fail:
   If Err.Number <> 0 Then rngUsed.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

Gruß Fa

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.07.2016 15:27:06 Yilo
NotSolved
28.07.2016 22:34:14 Gast15606
NotSolved
29.07.2016 11:43:14 Yilo
NotSolved
Blau Mehrere Zeilen ausblenden
 31.07.2016 18:15:43 Fa
*****
Solved