Thema Datum  Von Nutzer Rating
Antwort
21.01.2023 19:23:37 Daniel Bischoff
NotSolved
21.01.2023 20:24:20 ralf_b
NotSolved
21.01.2023 22:10:06 Gast84446
NotSolved
22.01.2023 08:44:02 Daniel Bischoff
NotSolved
22.01.2023 10:48:07 ralf_b
NotSolved
22.01.2023 12:33:09 Daniel Bischoff
NotSolved
22.01.2023 14:09:19 ralf_b
NotSolved
Blau Zeilen Ausblenden
 22.01.2023 15:08:19 ralf_b
*****
NotSolved
22.01.2023 15:17:41 Daniel Bischoff
Solved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
22.01.2023 15:08:19		 Views:
268		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen Ausblenden

ich glaub das ist jetzt besser

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column > 1 Then Exit Sub  'nicht in spalte A ,dann raus
   Select Case Target.Row      'prüfung der ZeilenNr
      Case 19 To 27
          Call ausblendenRow(19, 27)
      Case 34 To 42
          Call ausblendenRow(34, 42)
      Case 49 To 57
          Call ausblendenRow(49, 57)
      Case 70 To 78
          Call ausblendenRow(70, 78)
      Case Else
   End Select
End Sub
 
Function ausblendenRow(rowstart&, rowend&)
    Dim i&, rng As Range
   Application.ScreenUpdating = False
    For i = rowstart To rowend  'schleife durch  den Zeilenbereich
        If IsEmpty(Rows(i).Cells(1)) Then  'prüft erste Zelle
           If rng Is Nothing Then  'sammelt die leeren Zellen
              Set rng = Rows(i).Cells(1)
            Else
              Set rng = Union(rng, Rows(i).Cells(1))
            End If
        End If
    Next
    If Not rng Is Nothing Then 'prüfung ob leere Zellen gesammelt wurden
       rng.EntireRow.Hidden = True  'alle ausblenden
       rng(1).EntireRow.Hidden = False  'erste Leere wieder einblenden
       rng(1).Select
    End If
    Application.ScreenUpdating = True
End Function

 

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
21.01.2023 19:23:37 Daniel Bischoff
NotSolved
21.01.2023 20:24:20 ralf_b
NotSolved
21.01.2023 22:10:06 Gast84446
NotSolved
22.01.2023 08:44:02 Daniel Bischoff
NotSolved
22.01.2023 10:48:07 ralf_b
NotSolved
22.01.2023 12:33:09 Daniel Bischoff
NotSolved
22.01.2023 14:09:19 ralf_b
NotSolved
Blau Zeilen Ausblenden
 22.01.2023 15:08:19 ralf_b
*****
NotSolved
22.01.2023 15:17:41 Daniel Bischoff
Solved