Excel Tabellenblätter Ein- / Ausblenden VBA

Kopiere den Code unten in ein normales Modul und weise den entsprechenden Kontrollkästchen das passende Makro zu.

Dann die Datei als .XLSM abspeichern.

Andreas.

Option Explicit

Private Sub ToggleFormControl(ByVal N As String)

  Dim Sh As Shape

  Set Sh = ActiveSheet.Shapes(N)

  Sheets(N).Visible = IIf(Sh.OLEFormat.Object.Value = 1, xlSheetVisible, xlSheetHidden)

End Sub

Sub Japan_Klicken()

  ToggleFormControl Application.Caller

End Sub

Sub Südafrika_Klicken()

  ToggleFormControl Application.Caller

End Sub

Sub Südamerika_Klicken()

  ToggleFormControl Application.Caller

End Sub

Sub Europa_Klicken()

  ToggleFormControl Application.Caller

End Sub

Sub USA_Klicken()

  ToggleFormControl Application.Caller

End Sub

Hallo,

wenn du für alle Tabellenblätter den gleichen Scrollbereich festlegen möchtest, dann kopiere den Code von Claus in den Codebereich für "Diese Arbeitsmappe" (siehe Projektexplorer auf der linken Seite deines Screenshots).

Du scheinst den Code nicht nur verkehrt, sondern auch noch in den Codebereich für die Tabelle "L V G" geschrieben zu haben.

Warum begrenzt du den Scrollbereich nicht ohne VBA?

Dazu brauchst du nur alle Spalten und Zeilen die nicht verwendet werden sollen ausblenden und die Tabellenblätter schützen.

MfG

Mike

Hallo,



du kannst in VBA die Hilfe und auch den Objektkatalog nutzen, wenn es bei Excel für Mac so etwas gibt. Außerdem ist (jedenfalls für PC) im Officeordner eine VBALISTE.xls mit 2 Tabellenblättern. Eins für Tabellenfunktionen und eins für VBA-Schlüsselwörter.

Falls du beides nicht findest, wende dich bitte ans Forum von Excel für Mac.



Mit freundlichen Grüßen

Claus

Soweit mir bekannt ist, gibt es keine Funktion, die automatisch einen Hyperlink öffnet und den Inhalt einer bestimmten Zelle des verlinkten Tabellenblattes abruft und kopiert. Sie können jedoch den Inhalt einer bestimmten Zelle eines anderen Tabellenblattes mithilfe einer Formel wie “=Tabelle2!A1“ abrufen, wobei “Tabelle2“ der Name des anderen Tabellenblattes und `A1` die Zelle ist, deren Inhalt Sie abrufen möchten.

Es ist aber möglich, mit VBA-Code einen Hyperlink zu öffnen und den Inhalt einer bestimmten Zelle des verlinkten Tabellenblattes abzurufen und zu kopieren. Um den Inhalt einer bestimmten Zelle des verlinkten Tabellenblattes abzurufen und zu kopieren, können Sie eine benutzerdefinierte VBA-Funktion erstellen.
Hier ist ein Beispiel für eine solche Funktion:

Function
ZellenwertAbrufen(TabellenblattName As String, ZellenAdresse As String) As Variant
' Diese Funktion gibt den Wert einer Zelle in einem bestimmten Tabellenblatt zurück
ZellenwertAbrufen = Worksheets(TabellenblattName).Range(ZellenAdresse).Value
End Function

Diese Funktion nimmt den Namen des Tabellenblattes und die Adresse der Zelle als Eingabe und gibt den Wert der Zelle zurück. Sie können diese Funktion dann in einer Formel verwenden, um den Wert der Zelle abzurufen und in eine andere Zelle zu kopieren.
Sie können dann die folgende Formel in einer Zelle des Übersichtstabellenblattes eingeben, um den Wert von Zelle A1 von Tabelle2 abzurufen (beispiel):

=ZellenwertAbrufen("Tabelle2", "A1")

Diese Formel ruft die benutzerdefinierte VBA-Funktion `ZellenwertAbrufen` auf und gibt den Namen des Tabellenblattes ("Tabelle2") und die Adresse der Zelle ("A1") als Eingabe an. Die Funktion gibt dann den Wert von Zelle A1 von Tabelle2 zurück, der in der Zelle des Übersichtstabellenblattes angezeigt wird, in der Sie die Formel eingegeben haben.

Zuerst sollte die benutzerdefinierte VBA-Funktion in Ihrem Excel-Dokument erstellt werden, bevor Sie diese in einer Formel wie oben verwenden können.

Hi Andreas,

Vielen Dank schon mal für deine Bemühungen.

war zwar der Meining ich hatte das Problem auch mit Excel 2010 kann aber auch sein das ich das nur mal testen wollte...

Wenn ich deine Anweisungen durchführe tritt das Problem zwar nicht mehr auf, jedoch war meine Grafik eine "Verknüpfte Grafik (N)" (rechts neben "Grafik (G)").

Zum Hintergrund:

In meinem ursprünglichen Programm habe ich auf einem Tabellenblatt in der linken Bildschirmhälfte Eingabefelder die sich je nach Auswahl div. Eingaben dynamisch (über Ein- und Ausblenden von Zeilen) anpassen.

In der noch freien rechten Bildschirmhälfte wollte ich einen Überblick über Berechnungsergebnisse darstellen die sich natürlich direkt nach den Eingaben aktualisieren. Durch das Ein- und Ausblenden der Zeilen ist das aber nicht mit normalen Zellenverknüpfungen
machbar (es fehlen plötzlich auch Bereiche der Ergebnisübersicht). Deshalb Stelle ich die Ergenisübersicht auf einem separaten Tabellenblatt zusammen und bringe diese mittels verknüpfter Grafik auf das Eingabeblatt. Fand ich eigentlich ne rechte elegante Lösung
wenn da dieser Anzeigefehler nicht wäre....

Vermute fast das sich das Problem auch nicht so schnell "auf direktem Wege" lösen lassen wird...

Deshalb werde ich das Problem vermutlich mit einer der beiden folgenden "Lösungen" vermeiden:

1.) Ich verwende eine normale Grafik (keine verknüpfte) die ich mittels VBA Worksheet_Change-Ereignis nach jeder Eingabeänderung neu erstelle/aktualisiere

2.) Ich bringe die Ergebnisübersicht auf das gleiche Tabellenblatt wie die Eingabe nur deutlich unterhalb der Eingabe (Außerhalb des Sichtfensters) und Kopiere diese dann mittels Verknüpfter Grafik rechts neben die Eingabe. Der Fehler tritt nämlich nur auf
wenn Quelle und Ziel der Verknüpften Grafik nicht auf dem selben Tabellenblatt liegen.

Oder fällt dir sonst noch was ein?

Gruß

Niklas