Thema Datum  Von Nutzer Rating
Antwort
06.07.2017 10:39:57 eufrat
NotSolved
06.07.2017 10:42:19 eufrat
NotSolved
Rot Zeilenbereich in Abhängigkeit eines Wertes ausblenden
 06.07.2017 16:26:39 Gast47782
NotSolved
06.07.2017 14:17:42 Gast22420
NotSolved
06.07.2017 14:17:42 Gast72586
NotSolved

Ansicht des Beitrags:
Von:
Gast47782		 Datum:
06.07.2017 16:26:39		 Views:
599		 Rating:
     
Antwort:
  Ja
Thema:
Zeilenbereich in Abhängigkeit eines Wertes ausblenden		 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, h As Double

If Intersect(Range("D6"), Target) Is Nothing _
   Or Target.Cells.Count > 1 _
   Or Target.Value < 3 _
   Or Target.Value > 173 Then Exit Sub

   Set rng = Range(Rows(11), Rows(184))
   With rng
      .Hidden = False
      .AutoFit
      h = 480 / Target.Value
      If h > ActiveSheet.StandardHeight Then _
         .RowHeight = 480 / Target.Value
   End With
   rng.Resize(rng.Rows.Count - Int(Target.Value)).Hidden = True

End Sub

 

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
06.07.2017 10:39:57 eufrat
NotSolved
06.07.2017 10:42:19 eufrat
NotSolved
Rot Zeilenbereich in Abhängigkeit eines Wertes ausblenden
 06.07.2017 16:26:39 Gast47782
NotSolved
06.07.2017 14:17:42 Gast22420
NotSolved
06.07.2017 14:17:42 Gast72586
NotSolved