Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1060to1064
1060to1064
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verknüpfte Tabellenblätter einblenden

Forumthread: Verknüpfte Tabellenblätter einblenden

Verknüpfte Tabellenblätter einblenden
19.03.2009 11:21:13
archie
Hallo erst mal!
Also, meine Freunde nennen mich Archie ... und bin dafür bekannt, dass ich gleich auf den Punkt komme.
Zu allererst aber ein DICKES LOB an alle hier beteiligten - super Site, hat mir schon sehr oft geholfen!
MEIN PROBLEM:
habe ein Monsterfile im Excel gebastelt, welches jede Menge Datenblätter beinhaltet - um genau zu sein 430 Tabellenblätter. Damit das ganze aber übersichtlich bleibt, habe ich mit einfachen Buttons ein Menü gebastelt mit dem der Benutzer nur das bekommt, was er auch will.
Jetzt ist lediglich das eine kleine Problem, dass wenn der Benutzer schnell mal sich das ganze Tabellenblatt ansehen will, wer sich durch die Menüs klicken muss.
ICH WILL:
Dass der Benutzer mit einer Tastenkombination (zB. Strg+F) aus der gerade markierten Zelle, die darin verformelten Tabellenblätter eingeblendet bekommt.
BEISPIEL:
INPUT:
in Tabelle1 ist in der Zelle 1A die Formel = Tabelle2(3C) + Tabelle3(2B)
OUTPUT:
mit obiger Tastenkombination soll er mir genau die zwei Tabellenblätter, also Tabelle2 und Tabelle3 einblenden.
Was haltet ihr von diesem Vorhaben? In diesem Wulst an Informationen ist es echt wichtig einen Überblick zu bewahren.
Danke für Eure Unterstützung!!!!
Euer Archie!
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfte Tabellenblätter einblenden
19.03.2009 11:55:29
Oberschlumpf
Hallo mein Freund Archie ;-)
Was hältst du von dieser Idee?
1. Erstelle mit dem Recorder ein Makro, und weise dem Makro eine Tastenkombination zu
2. Wenn ein Benutzer nun durch dein Menü ein Tabellenblatt angezeigt bekommt, eine Zelle auswählt, und durch die Tastenkombi das von dir erstellte Makro startet, ...
...liest das Makro zuerst die Formel in der aktiven Zelle aus
...danach werden aus dieser Formel die Namen aller "beteiligten" Tabellenblätter "herausgelöst"
...und zu guter letzt werden dann auch die Tabellen mit den zuvor ermittelten Namen eingeblendet
3. Mit einer anderen Tastenkombi (anderes Makro) könnten diese Tabellenblätter wieder ausgeblendet werden
Das kann aber auch mit der selben Tastenkombi geschehen, mit der die Einblendung erfolgt.
Ich denke, das könnte man dann mit einer Variablen vom Typ Boolean lösen.
Ist diese Idee ein nützlicher Denkanstoß?
Ciao
Thorsten
Anzeige
AW: Verknüpfte Tabellenblätter einblenden
19.03.2009 12:44:23
archie
Hallo Thorsten!
Danke vorab mal für Deine Antwort.
Hmmm...
Ich habe gerade eben nur keine Ahnung wie Du das meinst.
Ich habe die Tabellenblätter alle irgendwie miteinander verknüpft. Und in sehr vielen Zellen wird berechnet und auf die verschiedensten Tabellenblätter verwiesen.
Der Recorder nimmt mir aber doch immer nur genau diese Schritte auf, die ich ihm auch zeige.
Natürlich kann man dem Recorder nützliche Informationen entnehmen, es ist aber, glaub ich zumindest, nicht das was ich hier benötige.
Es geht ja darum, dass ich als Informationsgehalt, aus der Formel = Tabelle2(3C) + Tabelle3(2B)
das Ergebnis die Tabelle2 und Tabelle3 bekommen möchte, da diese dann eingeblendet werden sollen.
Im gleichen Tabellenblatt kann aber auch eine Zelle mit der Berechnung = Tabelle11(55X) + Tabelle20(33F)
stehen aus der ich die Tabellen 11 und 20 eingeblendet haben möchte.
Aber eben nur wenn ich diese Zelle in der diese Formel steht markeirt habe und eben diese "Tastenkombination" gedrückt habe.
Any other idea?
lG, Archie
Anzeige
AW: Verknüpfte Tabellenblätter einblenden
19.03.2009 13:59:43
Jogy
Hi.
Hier mal ein Code, der die Tabellenblattnamen aus den Formeln in den übergebenen Zellen herausliest, Ist ein wenig getestet, kann aber nicht die Fehlerfreiheit garantieren. Probier es mal aus, damit sollte der Rest beim Level "VBA gut" keine Problem mehr sein.
Damit es funktioniert brauchst Du einen Verweis auf Microsoft VBScript Regular Expressions. Wenn Du den nicht haben willst, dann einfach die Variablentypen bei regEx, myMatches sowie myMatch entfernen (oder as Object) und ganz am Anfang (nach den Deklarationen) dann noch Set regEx = CreateObject("Vbscript.Regexp") in den Code schreiben.

' Liest die Namen der Tabellenblätter aus einer Formel heraus
' Rückgabewert ist Array mit den Tabellenblattnamen von 1 bis ...
' Ist Obergrenze des Arrays 0, dann wurde nichts gefunden
' Sollte mit allen Namen gehen
' ggf. müssen mögliche Zeichen, die nicht zu ' um den Namen führen, noch
' in regex.pattern ergänzt werden
' externe Verweise werden ignoriert
Function getVerweise(myRange As Range) As String()
Dim regEx As New RegExp
Dim myMatches As MatchCollection
Dim myMatch As Match
Dim tempFormel() As String
Dim tableNames() As String
Dim i As Long
Dim startPos As Long
Dim tempName As String
Dim checkName
Dim douBlette As Boolean
Dim zeLLe As Range
' Array vordimensionieren, 0 damit es nachher erkennbar ist,
' ob schon Werte geschrieben wurden
ReDim tableNames(0 To 0)
' Groß/Klein egal
regEx.IgnoreCase = True
' Suchmuster: ^ bedeutet "alles außer"
regEx.Pattern = "[^0-9a-z_]"
For Each zeLLe In myRange
' Wenn Formel vorhanden und ! (sonst kein Bezug auf anderes Blatt) in der Formel,
' dann Bearbeiten
If zeLLe.HasFormula And InStr(zeLLe.Formula, "!")  0 Then
' Nach ! aufteilen (kommt in jedem Bezug zu anderm Blatt vor)
tempFormel = Split(zeLLe.Formula, "!")
For i = 0 To UBound(tempFormel) - 1
' Wenn in Hochkommas
If Right(tempFormel(i), 1) = "'" Then
' voriges Hochkomma suchen
startPos = InStrRev(Left(tempFormel(i), Len(tempFormel(i)) - 1), "'") + 1
' Wenn nach diesem ' ein [ kommt, ist es ein externer Bezug
' also nur weiter, wenn das nicht der Fall ist
If InStr(startPos, tempFormel(i), "[") = 0 Then
tempName = Mid(tempFormel(i), startPos, Len(tempFormel(i)) - startPos)
End If
' Wenn nicht in Hochkommas
Else
' Suche mit Regexp
Set myMatches = regEx.Execute(tempFormel(i))
' Wenn was gefunden, dann die Position des letzten gefundenen Zeichens
' +2, da ab 0 gezählt wird und das erste zu verwertende Zeichen gesucht
If Not myMatches Is Nothing Then
startPos = myMatches(myMatches.Count - 1).FirstIndex + 2
' Ansonsten soll ab erstem Zeichen übertragen werden
Else
startPos = 1
End If
' Speichert Namen zwischen
tempName = Right(tempFormel(i), Len(tempFormel(i)) - startPos + 1)
End If
' Wenn was in Tempname steht,
If tempName  "" Then
' Auf Doubletten testen
douBlette = False
For Each checkName In tableNames
If checkName = tempName Then
douBlette = True
Exit For
End If
Next
' und wenn es keine ist, Array vergrößern und Wert übergeben
If Not douBlette Then
If UBound(tableNames) = 0 Then
ReDim tableNames(1 To 1)
Else
ReDim Preserve tableNames(1 To UBound(tableNames) + 1)
End If
tableNames(UBound(tableNames)) = tempName
End If
End If
tempName = ""
Set myMatches = Nothing
Next
End If
Next
' Rückgabewert
getVerweise = tableNames
End Function


Gruss, Jogy

Anzeige
AW: Verknüpfte Tabellenblätter einblenden
19.03.2009 14:09:33
Archie
Wow!
Bin begeistert... Also, wenn ich mir das von der Ferne so betrachte, dann würde ich sagen, damit klappts. Ich werd mich mal reinlesen, es sollte damit aber machbar sein.
Wenn ich hierzu noch Fragen habe, komme ich wieder auf Dich zu!
VIELEN, VIELEN Dank!
PS: Dass das so rasch ging - Hut ab! DANKE!
Anzeige
AW: Verknüpfte Tabellenblätter einblenden
20.03.2009 20:47:25
Jogy
Hi.
Mir ist noch ein Fehler aufgefallen: Wenn in der Formel ein ! in Anführungszeichen steht, dann liest es falsch aus.
Korrektur: 

' Liest die Namen der Tabellenblätter aus einer Formel heraus
' Rückgabewert ist Array mit den Tabellenblattnamen von 1 bis ...
' Ist Obergrenze des Arrays 0, dann wurde nichts gefunden
' Sollte mit allen Namen gehen
' ggf. müssen mögliche Zeichen, die nicht zu ' um den Namen führen, noch
' in regex.pattern ergänzt werden
' externe Verweise werden ignoriert
Function getVerweise(myRange As Range) As String()
Dim regEx As New RegExp
Dim myMatches As MatchCollection
Dim myMatch As Match
Dim tempFormel() As String
Dim tableNames() As String
Dim tempString As String
Dim i As Long
Dim startPos As Long
Dim tempName As String
Dim checkName
Dim douBlette As Boolean
Dim zeLLe As Range
' Array vordimensionieren, 0 damit es nachher erkennbar ist,
' ob schon Werte geschrieben wurden
ReDim tableNames(0 To 0)
' Groß/Klein egal
regEx.IgnoreCase = True
' Suchmuster: ^ bedeutet "alles außer"
regEx.Pattern = "[^0-9a-zäöü_]"
' Soll den kompletten String durchsuchen
regEx.Global = True
For Each zeLLe In myRange
' Wenn Formel vorhanden und ! (sonst kein Bezug auf anderes Blatt) in der Formel,
' dann Bearbeiten
If zeLLe.HasFormula And InStr(zeLLe.Formula, "!")  0 Then
' Es könnten jetzt noch ! in "" stehen, die müssen entfernt werden
If InStr(zeLLe.Formula, """")  0 Then
tempFormel = Split(zeLLe.Formula, """")
' Jedes 2. Element (ungerade) des Datenfeldes ist zwischen "", dort ! ersetzen
For i = 1 To (UBound(tempFormel) - 1) / 2
tempFormel(2 * i - 1) = Replace(tempFormel(2 * i - 1), "!", "")
Next
' Wieder zusammensetzen
tempString = Join(tempFormel, """")
Else
tempString = zeLLe.Formula
End If
' Wenn kein ! mehr vorhanden, dann muss nichts gemacht werden
If InStr(tempString, "!")  0 Then
' Nach ! aufteilen (kommt in jedem Bezug zu anderm Blatt vor)
tempFormel = Split(tempString, "!")
For i = 0 To UBound(tempFormel) - 1
' Wenn in Hochkommas
If Right(tempFormel(i), 1) = "'" Then
' voriges Hochkomma suchen
startPos = InStrRev(Left(tempFormel(i), Len(tempFormel(i)) - 1), "'") +  _
1
' Wenn nach diesem ' ein [ kommt, ist es ein externer Bezug
' also nur weiter, wenn das nicht der Fall ist
If InStr(startPos, tempFormel(i), "[") = 0 Then
tempName = Mid(tempFormel(i), startPos, Len(tempFormel(i)) -  _
startPos)
End If
' Wenn nicht in Hochkommas
Else
' Suche mit Regexp
Set myMatches = regEx.Execute(tempFormel(i))
'                        regEx.Pattern = "[^0-9a-zäöü_]"
'                        Set myMatches = regEx.Execute("äcc#ddd#ddd#")
' Wenn was gefunden, dann die Position des letzten gefundenen Zeichens
' +2, da ab 0 gezählt wird und das erste zu verwertende Zeichen gesucht
If Not myMatches Is Nothing Then
startPos = myMatches(myMatches.Count - 1).FirstIndex + 2
' Ansonsten soll ab erstem Zeichen übertragen werden
Else
startPos = 1
End If
' Speichert Namen zwischen
tempName = Right(tempFormel(i), Len(tempFormel(i)) - startPos + 1)
End If
' Wenn was in Tempname steht,
If tempName  "" Then
' Auf Doubletten testen
douBlette = False
For Each checkName In tableNames
If checkName = tempName Then
douBlette = True
Exit For
End If
Next
' und wenn es keine ist, Array vergrößern und Wert übergeben
If Not douBlette Then
If UBound(tableNames) = 0 Then
ReDim tableNames(1 To 1)
Else
ReDim Preserve tableNames(1 To UBound(tableNames) + 1)
End If
tableNames(UBound(tableNames)) = tempName
End If
End If
tempName = ""
Set myMatches = Nothing
Next
End If
End If
Next
' Rückgabewert
getVerweise = tableNames
End Function

Gruss, Jogy

Anzeige
;

Forumthreads zu verwandten Themen

Makro zum Löschen von Tabellenblätterm
Tabellenblätterm

Hallo, ich wollte fragen ob es möglich ist mit Hilfe eines VBAs Tabellenblätter nach bestimmten Gesichtspunkten zu löschen.
Folge Ausgangslage:
Ich habe eine Excel mit vielen Tabellenblättern.
Auf Blatt "Gesamt" werden Daten erfasst.
Auf diesem Blatt werden in Spalte K ab K2 Nam...
22.08.2008 12:38:00
Thread-ID: 1003812
11 Beiträge
Datei schließen -> Tabellenblätter löschen
Gordon

Moin,
ist es möglich einen VBA-Code zu schreiben, der sobald man eine Exceldatei schließt, noch vorher bestimmte Tabellennlätter gelöscht werden. Ich stelle mir das so vor:
Ich drücke "Schließen" und bevor die datei geschlossen wird, werden alle Tabellenblätter dieser Datei, außer den...
24.08.2008 23:59:20
Thread-ID: 1004344
6 Beiträge
aus ausgewählter Datei Tabellenblätter kopieren
Katrin

Hallo, wer kann mir helfen?
Ich möchte aus einer, vorher in einem Dialogfenster ausgewählten Datei (immer unterschiedlich), den Inhalt mehrerer Tabellenblätter in eine andere Datei kopieren. Dabei sind die Bezeichnungen der Tabellenblätter in den beiden Dateien identisch. Bis zum 1. Tabelle...
17.09.2008 10:35:00
Thread-ID: 1010267
2 Beiträge
Anzeige
Übertragen in Tabelle2
Uwe

Hallo,
ich habe mal wieder eine Frage wo ich nicht weiter weiß.
Ich habe in Tabelle1 folgende Tabelle.
Tabelle1

 ABCD1Produktnamemonatlichvierteljährlichjährlich2    3Produkt 1220,21  4Produkt 2110,65  5Produkt 3 277,98 ...
24.09.2008 10:42:00
Thread-ID: 1011973
5 Beiträge
Anzeige
Datensätze in Tabellenblätter schreiben
TomTom


Hi,
ich habe eine Excelmappe mit 4 Bättern. Auf dem ersten Blatt (Spalte A) stehen die Rohdaten drin. Die sehen in etwar so aus:
START;flag,2,23,,,,34,45,33,45,,,,,,,56
ATTEMPT;flag,1,45,,12,,34,,,45,,,,,7,,56
START;flag,2,23,,,,34,45,33,45,,,,,,,56
STOP;flag,3,45,,5,,,...
30.09.2008 13:43:00
Thread-ID: 1013375
3 Beiträge
Anzeige
Bedingte Formatierung über Tabellenblätter
Thomas

Hallo,
ich habe in einem extra Datenblatt welches Stammdaten enthält einen Code für die Formatierung
erzeugt (vier verschiedene Farbe Sollen Verwendung finden).
Wie kann ich ohne Verwendung des Menüs Bedingte Formatierung, in dem mir nur 3 Bedingungen
zur Verfügung stehen, ohne...
12.11.2008 14:06:30
Thread-ID: 1023831
2 Beiträge
Anzeige
zählenwenn über mehrere Tabellenblätter
Andreas

Hallo,
in einer Tabell mit 14 Tabellenblättern wollte ich eine Spalte auswerten in der Werte mit Gültigkeit in form einer Liste vorgegeben werden (nein/20;ja/24;ja/36;ja/32 usw.). Dazu habe ich 2 Fragen.
Ist es möglich nur die Zahlen beim zählen einzubeziehen, da ich ja und nein drin st...
03.12.2008 18:44:00
Thread-ID: 1029920
3 Beiträge
Formatübernahme in mehrere Tabellenblätter
Anja

Hallo Allerseits!
Ich habe ein Makro, welches mir das gewünschte Format in ein anderes Tabellenblatt übernimmt. Nun möchte ich gerne das Format in mehrere Tabellenblätter gleichzeitig übernommen haben.
Zur genauen Erklärung schaut doch bitte einmal angehängte Datei an.
Danke im Vorr...
24.12.2008 07:00:31
Thread-ID: 1035070
8 Beiträge
Summe/Häufigkeit mehrere Tabellenblätter möglich?
Marcel

Hallo,
ich habe eine Excel-Arbeitsmappe mit drei Tabellenblättern.
Diese sind folgendermaßen aufgebaut:
NAME__VORNAME__NUMMER
hans__meiser______3
hans__meiser1_____2
hans__meiser2_____2
hans__meiser3_____1
hans__meiser4_____4
hans__meiser5_____4
Nun möcht...
09.01.2009 14:03:53
Thread-ID: 1038228
2 Beiträge
Makro für kopieren von tabellenblättern
tabellenblättern

Hallo Entwicklergemeinde,
bin auf der suche nach einer smarten lösung für folgendes problem
ausgangsituation:
eine tabelle mit ca. 100 spalten mit informationen wo ich für ca. 250
artikel verschiedenste informationen angeben kann (alter container der
verwendet wurde, neuer c...
09.01.2009 23:00:54
Thread-ID: 1038372
10 Beiträge
Wie Säulendiagramm mit Tabelle mit gestapelten Säu
sohsoh

Hallo,
ich habe folgendes Problem und schon wie ein Irrer probiert, aber bis jetzt noch keine Lösung gefunden.
Ich habe zu Verschiedenen Stoffen jeweils 2 Messwerte in 3 Verschiedenen Zuständen. Jetzt möchte ich ein Säulendigramm erstellen in denen ich 3 Säulen (zu den drei Zuständen je...
14.01.2009 10:48:22
Thread-ID: 1039519
2 Beiträge
Sortieren mit Abhängigkeit zweier Tabellenblätter
Nils

Hallo,
ich habe hier ein Problem der etwas komplizierteren Art.
Eine Musterdatei habe ich hier abgelegt:
https://www.herber.de/bbs/user/58414.xls
Nun geht es um folgendes:
Grundsätzlich würde ich gern die Liste_Jobs (und auch die Liste Kalender) auch sortieren können. Dann...
16.01.2009 15:36:00
Thread-ID: 1040604
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige