Office: Blätter mit Namen aus Tabellen aufrufen, Filter mit Tabellenname

Hallo Zusammen,
ich benötige noch einmal Hilfe...
Und zwar habe ich aus einer Liste (in dem Blatt "Einlesen") Tabellenblätter generieren lassen. Diese neuen Tabellenblätter heißen so, wie die Einträge in den jeweiligen Zellen (Anhang Einlesen). Der Code sieht so aus:

Sub TabellenAnlegenAusZellenEinträgen()
Dim Zelle As Range

Sheets("Einlesen").Activate
ActiveSheet.Range("a2", ActiveSheet.Range("a3").End(xlDown)).Select
For Each Zelle In Selection
Worksheets.Add
ActiveSheet.Name = Zelle.Value
Next Zelle
End Sub

Jetzt soll mit jedem dieser Tabellenblätter Folgendes geschehen:
1. sie müssen aufgerufen werden, und hier ist das Hauptproblem- wie spreche ich diese Blätter nacheinander an?
2. der Inhalt eines anderen Blattes muss eingefügt werden, also
Worksheets("Übersicht").UsedRange.Copy und dann wohl, wenn das jeweilige Blatt aktiviert ist:Range("A1").Select
ActiveSheet.Paste
Dies müsste natürlich geändert werden, wenn die Blätter nicht aktiviert werden, beim Ansprechen. (Sieht dann so aus: Anhang "Nach_Kopieren...")
3. Autofilter einstellen in Zeile 2 und gefiltert werden soll nach dem Eintrag in Zelle D2. Kriterium soll der Tabellenname sein.
4. Für jedes dieser Blätter soll noch Folgendes geschehen:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer

If Not Intersect(Target, Range("D1")) Is Nothing Then
Range("E1:AZ1").Select
Selection.EntireColumn.Hidden = True
For i = 1 To 52
If Range("D1").Offset(0, i).Value = Range("D1").Value Then
Range("D1").Offset(0, i).EntireColumn.Hidden = False
End If
Next i
End If
End Sub
Also auch eine Art Filter, der mir nur bestimmte Spalten anzeigt.



Ich denke, die Auswahl müsste durch eine If-Schleife getroffen werden können, allerdings weiß ich nicht, wie ich die Blätter ansprechen kann.
Über Hilfe würde ich mich sehr freuen.
Liebe Grüße und Danke,
Anna

 

Hi Anna,

auf Select/Activate kann zu 99% aller Fälle verzichtet werden.
Zu Frage 1 und 2: Weshalb soll erst ein neues Tabellenblatt erstellt und dann der benutzte Bereich aus "Übersicht" dort hinein kopiert werden? Einfacher ist es, wenn das Tabellenblatt "Übersicht" kopiert wird:

Code:

Sub TabellenAnlegenAusZellenEinträgen()
   Dim Zelle As Range
   For Each Zelle In Worksheets("Einlesen").Range("a2", Worksheets("Einlesen").Range("a3").End(xlDown))
      Worksheets("Übersicht").Copy after:=Worksheets(Worksheets.Count)
      Worksheets(Worksheets.Count).Name = Zelle.Value
   Next Zelle
End Sub

Fragen 3 und 4 sind unklar - was hat das Change-Ereignis dmit zu tun?.

Bis später,
Karin

 

Hallo Karin,
vielen lieben Dank für deine Antwort. Ich möchte bei Punkt 3, dass ein Autofilter eingestellt wird, in dem nur noch "HG" sichtbar ist, wenn das Blatt "HG" heißt, usw. und das für jedes Blatt, was aus der Tabelle in "Einlesen" generiert wird (siehe Bild)
Punkt 4 erstellt eine Art Filter/Auswahl, der mir ermöglicht, nur eine bestimmte Spalte anzuzeigen. Dieser "Filter" soll auf jedem der generierten Blätter möglich sein.
Ist das so verständlich?Sonst lade ich noch ein paar Screenshots hoch.
Viele Grüße
Anna

 

Hi Anna,

zu Frage 3: ergänze den Code um 1 Zeile

Code:

Sub TabellenAnlegenAusZellenEinträgen()
   Dim Zelle As Range
   For Each Zelle In Worksheets("Einlesen").Range("a2", Worksheets("Einlesen").Range("a3").End(xlDown))
      Worksheets("Übersicht").Copy after:=Worksheets(Worksheets.Count)
      Worksheets(Worksheets.Count).Name = Zelle.Value
      [COLOR=#0000ff]Worksheets(Worksheets.Count).Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:=Worksheets(Worksheets.Count)[/COLOR]
   Next Zelle
End Sub

zu Frage 4: schreibe deinen Code ins Codemodul des Tabellenblattes Übersicht, dann wird er automatisch mitkopiert.

Bis später,
Karin

 

Super!! Vielen lieben Dank!!