Thema Datum  Von Nutzer Rating
Antwort
03.11.2016 16:33:27 Heinz B.
NotSolved
Blau Loop für dynamisches Diagramm
 04.11.2016 09:09:30 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
04.11.2016 09:09:30		 Views:
1176		 Rating:
     
Antwort:
  Ja
Thema:
Loop für dynamisches Diagramm

Hallo,

diese Lösung sollte das gleiche machen:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim iRow As Integer
    'Ausgangswert
    If IsEmpty(Cells(3, 2)) Then
        Sheets("Tabelle").Columns(2).Hidden = True 'Ausblendung nicht ausgefüllter Effekte
        Sheets("Tabelle").Range("R28") = Sheets("Tabelle").Range("A28") 'Anpassen der Gesamtveränderung
    Else
        Sheets("Tabelle").Columns(2).Hidden = False 'Einblendung ausgefüllter Effekte
        Sheets("Tabelle").Range("R28") = "" 'Die Gesamtveränderung muss nicht angepasst werden
    End If
    'Effekte 1 bis 15
    For iRow = 0 To 14
        If IsEmpty(Cells(iRow + 5, 2)) Then
            Sheets("Tabelle").Columns(iRow + 3).Hidden = True
            Sheets("Tabelle").Range("R" & 29 + iRow) = Sheets("Tabelle").Cells(29 + iRow, 2 + iRow) '.Range("B29")
        Else
            Sheets("Tabelle").Columns(iRow + 3).Hidden = False
            Sheets("Tabelle").Range("R" & 29 + iRow) = ""
        End If
    Next
End Sub

Hinweis: Ich habe mir nicht die Mühe gemacht, und eine komplette Beispiel-Excel-Datei mit allen Diagrammen und Tabellen erstellt.

LG, BigBen

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
03.11.2016 16:33:27 Heinz B.
NotSolved
Blau Loop für dynamisches Diagramm
 04.11.2016 09:09:30 BigBen
NotSolved