Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
528to532
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
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter ausblenden und trotzdem zugreifen

Tabellenblätter ausblenden und trotzdem zugreifen
06.12.2004 23:27:46
Malte
Hallo!
Ich habe folgendes Problem:
Ich habe eine Arbeitsmappe mit mehreren Tabellenblättern.
WEnn man die Mappe lädt, ist man automatisch auf dem ersten Tabellenblatt.
Hier möchte ich eine navigation mit Buttons zu den anderen Tabellenblätten realisieren.
Die anderen Tabellenblätter sollen aber ausgeblendet sein. Es soll immer nur das Tabellenblatt sichtbar sein, auf das ich mittels der Navigation gerade gesprungen bin.
2. Frage: Kann ich, obwohl die Blätter ausgeblendet sind mit Formeln und Makros auf diese Blätter zugreifen?
Vielen Dank für die Hilfe!
Gruß,
malte

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter ausblenden und trotzdem zugreifen
Hübi
Hi Malte,
bei dem Level "Excel-Profi - VBA gut" sind die Fragen doch mehr als überflüssig!!!!
Oder willst du das Forum testen?
Gruß Hübi
AW: Tabellenblätter ausblenden und trotzdem zugreifen
Malte
Hey Hey,
bei der Auswahl seines "Levels" kommt nach "VBA - nein" gleich "VBA - gut", da gibt´s leider nichts dazwischen. Ich stecke was VBA angeht halt noch in den Kinderschuhen würde dieses Problem aber gerne mittels VBA lösen.
Was Excel angeht denke ich bin sich so zwischen "gut" und "Profi" aber das ist jetzt hier ja wohl nicht das Thema, oder :-o ?
AW: Tabellenblätter ausblenden und trotzdem zugreifen
Malte
Hi,
ich betrachte die Frage natürlich noch als offen.
AW: Tabellenblätter ausblenden und trotzdem zugreifen
Hübi
Hi Malte,
ich bin auch ein blutiger VBA-Anfänger, habe aber jetzt mal ganz schnell das aufgezeichnet, ein wenig verfeinert und dir zur Verfügung gestellt
Sub Tabelle_her() Sheets("Tabelle1").Visible = True End Sub 

Sub Tabelle_weg()
Sheets("Tabelle1").Visible = False
End Sub

Gruß Hübi
Anzeige
Teillösung
07.12.2004 06:34:32
Erich
Hallo Malte,
die Tabellenblätter ein- und ausblenden musst Du noch einfügen:
Option Explicit
Sub inhaltsverzeichnis_erstellen()
'Inhaltsverzeichnis aller Tabellenblätter
'im erten Tabellenblatt ab Zeile A1 einfügen
Dim blatt As Object
Dim zeile As Double
Dim NewSheet As Worksheet
Dim i As Integer
zeile = 3
'Fehlerhandling
On Error Resume Next
'Abfrage unterdrücken
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Sheet Inhaltsverzeichnis auf jeden Fall löschen
Sheets("Inhaltsverzeichnis").Delete
'Neues Tabellenblatt mit dem Namen Inhaltsverzeichnis hinzufügen
Set NewSheet = Worksheets.Add
NewSheet.Name = "Inhaltsverzeichnis"
Sheets("Inhaltsverzeichnis").Move Before:=Sheets(1) ' = Tabellenblatt als erstes
'Überschrift Einfügen und formatieren
With Sheets("Inhaltsverzeichnis").Range("A1")
.Value = "Inhaltsverzeichnis"
.Font.Name = "Arial"
.Font.Size = "18"
.Font.Bold = True
.Font.ColorIndex = 6
.Interior.ColorIndex = 5
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic
.Font.Underline = xlUnderlineStyleSingle
End With
With Cells(1, 2)
.Font.Name = "Arial"
.Font.Size = "18"
.Font.Bold = True
.Font.ColorIndex = 6
.Interior.ColorIndex = 5
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic
End With
With Cells(1, 3)
.Font.Name = "Arial"
.Font.Size = "18"
.Font.Bold = True
.Font.ColorIndex = 6
.Interior.ColorIndex = 5
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic
End With


With Cells(2, 1)
.Value = "sortiert nach Blatt-Nr."
.Font.Name = "Arial"
.Font.Size = "16"
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
End With
With Cells(2, 5)
.Value = "alphabetisch sortiert"
.Font.Name = "Arial"
.Font.Size = "16"
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
End With
'Laufende Blattnummerierung + Blattname einfügen
For Each blatt In Sheets
Sheets("Inhaltsverzeichnis").Cells(zeile, 1).Value = "Blatt " & zeile - 2
Sheets("Inhaltsverzeichnis").Cells(zeile, 2).Value = blatt.Name
Sheets("Inhaltsverzeichnis").Hyperlinks.Add Anchor:=Cells(zeile, 2), Address:="", SubAddress:="'" & _
blatt.Name & "'!A1", TextToDisplay:=blatt.Name
zeile = zeile + 1
Next blatt
ActiveSheet.Columns("B:B").EntireColumn.AutoFit
'Kopiere die zwei erstellten Spalten und sortiere Hyperlinks
Range("A3", Range("B65536").End(xlUp)).Select
Selection.Copy
Range("D3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D3", Range("E65536").End(xlUp)).Select
Selection.Sort Key1:=Range("E3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.Columns("D:E").EntireColumn.AutoFit
ActiveWindow.DisplayGridlines = False
Range("A3").Select
ActiveWindow.FreezePanes = True
Cells(1, 4).Select
'Userform ausblenden
'frmInhaltsverz.Hide
'Ursprungszustand wieder herstellen
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

mfg
Erich
Anzeige

6 Forumthreads zu ähnlichen Themen

VBA - automatisches Ausblenden von Tabellenblätter
Tabellenblätter

Hallo liebes Forum
Habe folgenden VBA-Code zusammengebastelt, der einwandfrei funktioniert und Tabellenblätter entsprechend aus- oder einblendet: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value = 0 Then Sheets("Tabelle2").Visible = False E...
01.12.2016 14:09:48
Thread-ID: 1528192
9 Beiträge
Anzeige
VBA Modul Blatt einblenden/ausblenden
Steffen

Hallo Excel-Gemeinde,
habe ein großes Problem, mein bis vor kurzem funktionierendes Makro zeigt neuerdings eine Fehlermeldung an. Laufzeitfehler 1004 in Zeile " "
Es geht weder das Ein-noch Ausblenden im Makro der Tabellenblätter "Daten1" noch "Daten2" für die ExcelTabelle jedes m...
09.08.2020 17:50:38
Thread-ID: 1776128
7 Beiträge
VBA Tabellenblätter ein/ausblenden
Michael

Hi zusammen,
ich steh gerade irgendwie auf dem Schlauch.
Ich habe eine Datei mit recht vielen Tabellenblättern, die ich per Makro ein- und ausblenden will. Dazu hab ich eine Tabelle (AQ41:AR59). In AQ stehen jeweils die Namen der Tabellenblätter. In AR steht "ja" oder "nein".
Ich...
11.12.2020 13:03:37
Thread-ID: 1799133
4 Beiträge
Anzeige
VBA Tabellenblätter ein- und ausblenden
Lothar

Hallo an Alle,
ich habe eine Exceldatei mit mehr 100 Blättern.Zur Übersichtlichkeit möchte ich alle Blätter, bis auf das Blatt "Tab_Liste", aus- und bei Bedarf wieder einblenden. Das Einblenden klappt mit den Code's aus dem Netz, aber das Einblenden nicht.
Vielleicht hat ja jemand eine...
22.02.2021 18:09:34
Thread-ID: 1815230
6 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

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
8
6
6
3
1
5