Verweis auf andere Tabellenblätter

Liebe Excel-Gemeinde,
ich habe einige Probleme mit einer zu erstellenden Excel-Datei. Es sollen dabei drei Features enthalten sein:
1. Grundsätzlich soll ein Admin-Tabellenblatt sämtliche Datensätze enthalten. Auf weiteren Tabellenblättern sollen wiederum nur ausgewählte Datensätze erscheinen. Die Dateneingabe erfolgt einzig über das Admin-Tabellenblatt. Ich hatte es bereits über die "="-Formel versucht. Aber hierbei werden Änderungen leider nicht richtig vom Admin- Blatt an die anderen "weitergeleitet", d.h. neue Datensätze werden nicht übertragen. Zudem wird bei Leerzeilen eine "0" angezeigt. Ich hatte auch über einen gesetzten Filter in einer ausgeblendeten Spalte nachgedacht. Dann müssten die anderen Datensätze jedoch leider immer noch irgendwie vom Admin-Blatt in die anderen Blätter kommen, bevor ich darüber grübeln kann, ob es möglich ist, einen Filter bei Aktivierung eines bestimmten Tabellenblattes auf eine bestimmte Spalte darin zu setzen. Habt Ihr vielleicht eine Idee oder ist das zu kompliziert ausgedrückt?
2. Wenn der Nutzer aus einer vorgegebenen Liste (vom Layout wie ein Kombinationsfeld, damit der Nutzer es leicht als drop down-Menü erkennt) einen bestimmten Eintrag auswählt, soll er zum gleichnamigen Tabellenblatt in der gleichen Datei geführt werden. Ich kenne mich leider mit Kombinationsfeldern gar nicht aus und konnte auch nicht entdecken, wo man bei Eigenschaften oder einem ähnlichen Menü die auszuwählenden Einträge unterbringen kann, um sie dann vielleicht auf eine zuvor benannte Zelle in den einzelnen Blättern jeweils zu verlinken. Habt Ihr vielleicht einen kleinen Hinweis?
3. Bei einem Kollegen habe ich gesehen, dass er in einer Tabelle in Spalte 2 und 3 jeweils ein Kombinationsfeld unter der Spaltenüberschrift eingebaut hat. Das erste enthält z.B. die Einträge "All", "Name1", "Name2" etc. also ähnlich der Autofilterfunktion nur ohne die Möglichkeit der Sortierung sowie der Anzeige der nichtleeren und leeren Zellen. Wenn man aus den Feldern etwas auswählt, wird die Tabelle automatisch nach der Auswahl gefiltert und der gefilterte Begriff wird in dem Kombinationsfeld angezeigt (Default ist "All"). Zusätzlich kann die Auswahl noch durch das zweite Kombinationsfeld in Spalte 2 spezifiert werden. In sämtlichen Spalten ist jedoch kein kleiner Autofilter-Pfeil zu sehen. Da er im Urlaub ist und ich nun die Aufgabe habe, eine ähnliche Funktion umzusetzen, frage ich mich, wie er das gemacht hat. Wisst Ihr vielleicht, wie man so etwas bewerkstelligt?
Herzlichen Dank für das Lesen des langen Textes
Schöne Grüße
Krauti

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Thorsten,
so fies waren sie nun auch nicht. Werde also künftig mit Thomas unterschreiben, wobei dieser Name zumindest in meinem Jahrgang inflationär verteilt worden ist.
1. Man kann doch über Extras\Optionen\Ansicht sämtliche Tabellenblätter einblenden. Wenn ich nun über VBA vorher nur eines sichtbar gemacht habe, funktioniert das dann nicht? Alternativ könnte man ein verstecktes Makro auf irgendeinen unscheinbaren Schriftzug legen, der das Ganze wieder einblendet.
Die PW-Abfrage ist m.E. keine elegante Lösung, da die Nutzer dann hunderprozentig anfangen, Fragen zu stellen. Und wir haben es hier mit einem sehr anstrengenden Klientel zu tun. ;-)
2. Ich bin gespannt.
3. Bin gerade dabei, zu entschlüsseln, wie der Kollege arbeitete. Was ich bisher decodieren konnte: Er lässt sich die Autofilterauswahlen während der geöffneten Datei nicht automatisch aktualisieren (über Application.ScreenUpdating = False). Wenn man die Datei schließt und wieder öffnet, verändert sich erst etwas. Jedes Combofeld hat den folgenden Code:


Private Sub Info1_Change()
Call filter
End Sub

Und dann bei filter


Private Sub filter()
Call init
Application.ScreenUpdating = False
If refresh Then
Call filterInfo1
Call filterInfo2
Call ws.Range("B9").AutoFilter(1, Null, , , False)
End If
Application.ScreenUpdating = True
Call ws.Range("A1").Activate
End Sub

In B9 steht der erste Eintrag von Info1. Und nun noch der Code von Init:


Private Sub init()
Set wb = ThisWorkbook
Set ws = wb.Sheets("Test")
refresh = True
End Sub

Und der Code von filterInfo1:


Private Sub filterInfo1()
Call init
If (Info1 = "All") Then
Call ws.Range("B9").AutoFilter(1, Null, , , False)
Else
Call ws.Range("B9").AutoFilter(1, Info1, , , False)
End If
End Sub

Und bei "


Private Sub filterInfo2()" ändert sich die Zahl beim AutoFilter in eine 2.
Das steht alles im Admin-Sheet. Und bei Workbook steht Folgendes:
Dim initialised
Dim wb As Workbook
Dim ws As Worksheet
Dim dataWS
Dim workWS


Public Sub showAutoFilter()
Set wb = Application.Workbooks("Test Datei.xls")
Set ws = wb.Sheets("Admin")
Dim cbCountry As ComboBox
Set cbCountry = Sheet1.Info1
cbCountry.Value = Sheet1.Columns(2)
Dim col As Range
Set col = Sheet1.Columns(2)
End Sub




Public Sub load()
Set dataWS = Sheet1
Set workWS = Sheet2
initialised = 0
Call loadCombo(dataWS.Info1, "B", "8")
Call loadCombo(dataWS.Info2, "C", "8")
initialised = 1
'    Call Hide
End Sub




Public Sub loadCombo(cb As ComboBox, startingCol, startingRow)
Call SortAndRemoveDupes2(startingCol, startingRow)
Call cb.Clear
Call cb.AddItem("All")
For i = 2 To workWS.UsedRange.Rows.Count
Call cb.AddItem(workWS.Cells(i, 1).Value)
Next i
cb.Value = "All"
End Sub


Und auch das hier:

Sub SortAndRemoveDupes2(startingCol, startingRow)

Dim rListSort As Range, rOldList As Range

Dim strRowSource As String

'Clear Hidden sheet Column A ready for list

workWS.Range("A1", workWS.Range("A65536").End(xlUp)).Clear

'Set range variable to list we want

Set rOldList = dataWS.Range(startingCol & startingRow, dataWS.Range(startingCol & "65536").End(xlUp))

'Use AdvancedFilter to copy the list to Column A of the hidden sheet and remove all dupes

rOldList.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=workWS.Cells(1, 1), Unique:=True

'Set range variable to the new non dupe list

Set rListSort = workWS.Range("A1", workWS.Range("A65536").End(xlUp))

With rListSort

'Sort the new non dupe list

.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End With

'Parse the address of the sorted unique items

strRowSource = workWS.Name & "!" & workWS.Range("A1", workWS.Range("A65536").End(xlUp)).Address

End Sub


Private Sub Workbook_Open()
load
End Sub

Ein Zwischenteil stellt sich nicht als Code dar. Habe herumprobiert, aber es lässt sich nicht besser abbilden.
Meinst Du, das hilft Dir?
Vielen lieben Dank für Deine Mühen und schöne Grüße
Thomas

Beliebteste Forumthreads (12 Monate)

Verweis auf andere Tabellenblätter

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Verweis auf andere Tabellenblätter

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread