Thema Datum  Von Nutzer Rating
Antwort
18.05.2018 11:36:09 Erik Bade
NotSolved
Blau VBA Zellen Ausblenden, Einblenden und Anpassen
 18.05.2018 12:19:27 Werner
*****
NotSolved
18.05.2018 13:08:45 Erik
NotSolved
18.05.2018 14:39:54 Erik
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
18.05.2018 12:19:27		 Views:
516		 Rating:
     
Antwort:
  Ja
Thema:
VBA Zellen Ausblenden, Einblenden und Anpassen

Hallo Erik,

warum willst du das denn auf verschiedene Prozeduren verteilen? Und was um alles in der Welt willst du mit diesem Ende?

Private Sub Worksheet_Change(ByVal Target As Range)
  
If Not Intersect(Target, Range("E6", "E8")) Is Nothing Then
    Application.Run ("Drucklayout")
End If
 
End Sub

Sub Drucklayout()
Dim i As Long

With ThisWorkbook.ActiveSheet
    'bei Autofit werden die ausgeblendeten Zeilen
    'automatisch eingeblendet
    .Range("A1:A131").EntireRow.AutoFit
    'alle Zeilen die in A leer sind ausblenden
    For i = 1 To 131
        If .Cells(i, 1) = "" Then
            .Rows(i).Hidden = True
        End If
    Next i
End With
End Sub

 

Zudem prüfst du beim Ausblenden nicht auf Zellwert 1 sondern prüfst ob die Zelle leer ist.

 

Gruß Werner

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
18.05.2018 11:36:09 Erik Bade
NotSolved
Blau VBA Zellen Ausblenden, Einblenden und Anpassen
 18.05.2018 12:19:27 Werner
*****
NotSolved
18.05.2018 13:08:45 Erik
NotSolved
18.05.2018 14:39:54 Erik
NotSolved