Thema Datum  Von Nutzer Rating
Antwort
28.04.2017 17:06:53 Stefan
Solved
Blau dynamisches VBA
 28.04.2017 18:02:37 GraFri
NotSolved
29.04.2017 13:56:02 Stefan
NotSolved

Ansicht des Beitrags:
Von:
GraFri		 Datum:
28.04.2017 18:02:37		 Views:
540		 Rating:
     
Antwort:
  Ja
Thema:
dynamisches VBA

Hallo

So nfunktioniert es.

Option Explicit

' Im Tabellenblat der Zelle "D2" den Namen 'Ausblenden' deffinieren (ohne ').
' Wird oberhalb der Ausgangszelle D2 eine neue Zeile eingefügt, wandert die so
' benannte Zeile mit.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

With Range("Ausblenden")
    If Target.Address <> .Address Then Exit Sub
    
    Dim ZeilenNr As Long
    ZeilenNr = .Row
    
    If .Value = 0 Then
        Rows(ZeilenNr + 16).EntireRow.Hidden = True
    Else
        Rows(ZeilenNr + 16).EntireRow.Hidden = False
    End If
End With

End Sub

mfg, GraFri

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.04.2017 17:06:53 Stefan
Solved
Blau dynamisches VBA
 28.04.2017 18:02:37 GraFri
NotSolved
29.04.2017 13:56:02 Stefan
NotSolved