Office: (Office 2016) Diagramm oder Zellen mit zukünftig fortlaufenden Tabellennamen auswerten

Hallo,

und wieder bin ich an zwei Problemen am verzweifeln.
Basis :
GS00 ist das Basistabellenblatt mit Makro zur Neuerzeugung eines
Tabellenblattes
In jedem Blatt gibt es eine Graphik in einem Zellenverbund die sich pro Tabellenblatt ändert
GSxx wird auf Basis vom vorhergehenden Blatt erzeugt, mit anderem Datum

Problem, Tabellennamen "Auswertung":
1.) Diagrammauswertung über alle GSXX geordnet mit der Diagrammausgabe "Tabellenblattnamen/KW/+ 3 Kennwerten". Oder kann ich Dynamische Zellbezüge in der Form "Ordne Werte nach Tabellennamen nach gleichem Zellbezug aufsteigend..." erstellen um dann das Diagramm stressfrei zu definieren?
2.) Durch Selektion in einer Combobox werden die Zelldaten von GSXX aufgerufen und ausgegeben, geht das auch mit der Graphik die im selektierten Tabellenblatt ist?

Jou , da wäre ich schon unendlich dankbar wenn mich einer aus dieser Pandoraschleife rausholt.

Dank und Grüße

HP

 

Hallihallo,

das Problem 1. habe ich teilweise gelöst :

Sub BlattNamenListen()
Dim Blatt As Worksheet
Dim i As Integer
Range("I45").Select
For Each Blatt In ActiveWorkbook.Sheets
ActiveCell.Value = Blatt.Name
ActiveCell.Offset(0, 1).Select
Next Blatt
End Sub

Kann mir jemand helfen und die Namen auf die Ausgabe der Tabellenblattnamen mit "GS" beschränken?

Dank und Grüße

HP

 

Hallo HP,

Code:

For Each Blatt In ActiveWorkbook.Sheets
If  Blatt.Name="GS*" then
   ActiveCell.Value = Blatt.Name
   ActiveCell.Offset(0, 1).Select
End if
Next Blatt

Der Rest ist irgendwie unklar.
Hast Du ne Beispieldatei?

Gruß,
Lutz

 

Hallo Lutz,

ersteinmal vielen Dank für deine Antwort. Ich habe es mal wie folgt eingebaut :

Sub BlattNamenListen()
Dim Blatt As Worksheet
Dim i As Integer
Range("J45").Select
For Each Blatt In ActiveWorkbook.Sheets
If Blatt.Name = "GS**" Then
ActiveCell.Value = Blatt.Name
ActiveCell.Offset(0, 1).Select
End If
Next Blatt
End Sub

...und es will nisch!
Eine Beispieldatei könnte ich dir nur direkt senden da es eine Firmendatei ist.
Es gibt das Datenblatt GS00 und daraus werden die nächsten jeweils kopiert, über ein Makro GS01 oder höher benannt und die Bilder werden bearbeitet.

Grüße aus dem Salinental

Hans

 

Hallo Hans,

es erwartet von Dir niemand, dass du Firmengeheimnisse verrätst ;-)

Aber Du kannst doch die Mappe mit irgendwelchen Zahlen füllen und posten.

Gruß,
Lutz

 

Hallo Lutz,

Okay ich tu`s, muss diese aber doch etwas massiv abspecken wegen eurer Schallgrenze von 100kB.

Grüße

Hans

 

Hallo Lutz,

das Diagramm habe ich jetzt wie ich es wollte hingebogen, aber mir fehlen noch 2 Sachen um verklärt in die Zukunft zu Blicken :

- VBA mit Auslessen der "GS**" Tabellennamen zur Auswertung für das Diagramm
- Möglichkeit wie z.Bsp. Layervergabe der Bilder um diese in der Auswertung über die Combobox aufzurufen

Ich versuche es weiterhin zum laufen zu bekommen, falls du es schneller hinbekommst so sei dir ein "Nahe-Wein" sicher.

Grüße

Hans

 

Hallo Hans,

probier mal

Code:

If Blatt.Name Like "GS*" Then
    ActiveCell.Value = Blatt.Name
    ActiveCell.Offset(0, 1).Select
End If

Was meinst Du mit Layervergabe?

Gruß,
Lutz

 

Hallo Lutz,

irgendwie ist meine Antwort abhandengekommen... Noch mal ... Dein neues Makro auf mein Problem :

Sub BlattNamenListen()
Dim Blatt As Worksheet
Dim i As Integer
Range("J45").Select
For Each Blatt In ActiveWorkbook.Sheets
If Blatt.Name Like "GS*" Then
ActiveCell.Value = Blatt.Name
ActiveCell.Offset(0, 1).Select
End If
Next Blatt
End Sub

Funktioniert tadellos und mein Angebot von oben steht!
Das 2te Problem ist das ich die bearbeiteten Bilder auf das Tabellenblat "GSXX" binden würde um diese bei Combobox Aufruf auf dem Tabellenblatt "Auswertung" sehen möchte. Ich habe schon mal mit Gruppieren und Namensvergabe alles mögliche versucht hänge aber schon an den Grundlagen fest. Wäre zwar nur Kosmetik aber würde die Exceldatei echt sexy machen.

Grüße jetzt aus Süddeutschland

Hans

 

Hallo Hans,

was sind das für Bilder? In der Beispieldatei ist ein leeres Feld ("Grafik einfügen"). Ist es wirklich ein Bild oder willst Du die Daten des Blattes graphisch darstellen?

Gruß,
Lutz

 

Sollte es um Bilder gehen, wird das auch gerade hier diskutiert
http://www.office-hilfe.com/support...-Abhängigkeit-von-DropDown-Auswahl-einblenden

Hiob hat nen Link gepostet, der scheinbar helfen könnte.

 

Hallo Lutz,

der Hinweis ist sehr gut und es wartet eine Menge Arbeit auf mich.

Dank und Grüße

Hans