Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Graph ein-und ausblenden

Graph ein-und ausblenden
11.12.2018 08:30:38
Christian
Moin alle zusammen,
über eine Zelle möchte ich zwei Diagramme ein -bzw. ausblenden lassen aber ich bekomme die Fehlermeldung "Deklaration der Prozedur entspricht nicht der Beschreibung eines Ereignisses oder einer Prozedur mit demselben Namen"?
Wo liegt mein Fehler? Vielen Dank und beste Grüße
Christian
Private Sub Worksheet_Change()
Dim MSN_92 As ChartObject
Dim MSN_85 As ChartObject
Set MSN_92 = ActiveSheet.ChartObjects(11)
Set MSN_85 = ActiveSheet.ChartObjects(10)
If Worksheets("Graph").Range("G10").Value = "92" Then
ActiveSheet.ChartObjects(11).Visible = True
ActiveSheet.ChartObjects(10).Visible = False
ElseIf Worksheets("Graph").Range("G10").Value = "85" Then
ActiveSheet.ChartObjects(11).Visible = False
ActiveSheet.ChartObjects(10).Visible = True
End If
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Graph ein-und ausblenden
11.12.2018 10:30:28
Karl-Heinz
Hallo Christian,
beim Worksheet_Change-Objekt gehört das Target-Element dazu. Nehme an, dass das der Fehler ist.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$10" Then
With ActiveSheet
Select Case Target.Value
Case "92"
.ChartObjects(11).Visible = True
.ChartObjects(10).Visible = False
Case "85"
.ChartObjects(11).Visible = False
.ChartObjects(10).Visible = True
End Select
End With
End If
End Sub
Das o.a. Beispiel regiert, wenn sich im Feld G10 was ändert.
viele Grüße
Karl-Heinz
Danke
11.12.2018 11:34:17
Christian
Vielen Dank Karl-Heinz
Anzeige
Getestet - Funktioniert leider nicht
11.12.2018 12:09:33
Christian
Auf dem ersten Blick sah die die Funktion sehr gut und schlüssig aus. Im Test funktioniert Sie aber leider nicht.
Ich habe Sie im Tabellenblatt eingebunden, auf dem auch die Diagramme zu finden sind. Aber es gibt keine Reaktion. Muss ich gewisse Formate berücksichtigen?
AW: Getestet - Funktioniert leider nicht
11.12.2018 14:53:33
Karl-Heinz
Hi Christian,
das tut mir leid. Na schauen wir mal:
Hast Du die Sub in das Klassenmodul des betreffenden Tabellenblattes eingefügt? Es kommt nicht in ein normales Modul. Aber das hattest Du ja geschrieben.
Die Funktion wird angesteuert, wenn auf dem Blatt in Zelle G10 etwas geändert wird.
Wenn Du einen Haltepunkt dort reinsetzt, wird die Funktion dann angesteuert? Wenn ja mal mit F8 durchgehen. Je nach Wert wird in den einen oder anderen Case verzweigt. Dort werden dann die Grafiken aus/eingeblendet. Das konnte ich allerdings nicht testen, weil ich die ja habe.
PS: Wenn bei jeder Änderung geschaut werden soll, was in G10 steht, muss es anders programmiert werden, aber das macht m.E. keinen Sinn.
Ansonsten mal genau beschreiben, was passiert. Funktioniert nicht ist keine besonders glückliche Aussage.
VG KH
Anzeige
AW: Getestet - Worksheet_Calculate
11.12.2018 16:02:17
Christian
Nach ein wenig rumprobieren habe ich das Problem gelöst. Also mit deiner Funktion konnte ich arbeiten, wenn ich den Wert direkt in die Zelle eingegeben haben. Aber der Wert kam über den Filter einer Pivot Tabelle. Das heisst ich habe den Wert mit =G10 übertragen. Dann klappte die Funktion nicht. Im Netz habe ich mich schlau gemacht und bin auf folgende Codestruktur gekommen, welche genau so funktioniert wie ich Sie brauche.
Vielen Dank für deinen Support Karl-Heinz :)
Private Sub Worksheet_Calculate()
If Range("$R$1").Value = 92 Then
ChartObjects(6).Visible = True 'MSN85
ChartObjects(7).Visible = False 'MSN92
ChartObjects(8).Visible = False 'MSN65
ChartObjects(9).Visible = False 'MSN58
ElseIf Range("$R$1").Value = 85 Then
ChartObjects(6).Visible = False
ChartObjects(7).Visible = True
ChartObjects(8).Visible = False
ChartObjects(9).Visible = False
ElseIf Range("$R$1").Value = 65 Then
ChartObjects(6).Visible = False
ChartObjects(7).Visible = False
ChartObjects(8).Visible = True
ChartObjects(9).Visible = False
ElseIf Range("$R$1").Value = 58 Then
ChartObjects(6).Visible = False
ChartObjects(7).Visible = False
ChartObjects(8).Visible = False
ChartObjects(9).Visible = True
End If
End Sub

Anzeige

306 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8