Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo zusammen,

ich habe auf einem Kongress in einer Präsentation eine Diagrammdarstellung gesehen, die ich echt Klasse finde. Leider habe ich keine Idee oder Ansatz, wie ich eine solche Grafik in Excel basteln könnte.
Den Viertelkreis müsste man noch hinbekommen.... aber die unterschiedliche Füllung?
Jemand eine Idee?

Ich hänge mal ein Beispielbild an

Hallo, ich hänge gerade an einem frustranen Problem, dass mir heute schon den ganzen tag Kopfzerbrechen bereitet.

Ich habe 3 Tabellen mit verschiedenen Informationen.
Ziel: Schreibe eine Zeile aus Tabelle 1 in Tabelle Ergebnis, wenn A-Nr. in Tabelle 2 existiert und der dazugehörige Wert in Spalte D-Wert in Tabelle 2 auch in Tabelle 3 vorkommt.

oder anders ausgedrückt:

In Tabelle 1 gibt es eine Spalte mit einer eindeutigen Angabe (A-Nr.). Dieselbe A-Nr. existiert auch in Tabelle 2, kann aber dort mehrfach vorkommen. In der Tabelle 2 befindet sich weitere Angaben in einer Spalte (D-Text). In der Tabelle 3 befindet sich eine Liste mit bestimmten Inhalten, die eindeutig (nur einmal vorkommend) sind.
Nun möchte jeweils die Zeile aus Tabelle 1 in eine Tabelle Ergebnis einfügen, wenn A-Nr. in Tabelle 2 in Spalte D-Text einen Wert hat, der in Tabelle 3 aufgelistet ist.

Sinngemäß ein doppelter SVERWEIS. Das Ganze müsste eigentlich mit INDEX und VERGLEICH funktionieren, aber ich bekomme es einfach nicht hin.
Die einzelnen Tabelle ziehe ich via VBA in eine Datei, liegen also als Sheet in einer Datei.

ich lade noch ein Beispiel hoch, mit einem Übersichtssheet und den Beispieltabellen.

Mein Hirn ist mittlerweile so zerdeppert, das ich den Wald vor lauter Bäumen nicht mehr sehe.
bin gespannt, ob jemand eine Lösung findet.

Hallo zusammen,

ich habe eine Datei, die via VBA-Skript (Spezialfilter) nach angegebenen Kriterien aus einer "Basistabelle" die Inhalte auf weitere Arbeitsblätter verteilt. Nun möchte ich "datumabhängig" diverse Parameter (im Beispiel Mittelwerte) aus dem Arbeitsblatt "Auswertung" in das Arbeitsblatt "Doku" via Button kopieren (nur die Werte, nicht Formeln etc.). Zum Schluss natürlich noch speichern.

Beispielsdatei ist mit hochgeladen.

In der hab ich noch das Problem, dass das VBA-Skript vom Spezailfilter beim Aufrufen des Blattes "Auswertung" oder "Doku" eine Fehlermeldung bringt,die ich nicht wegbekomme.  Hat jemand eine Idee?

interessantes Skript!
Bei mir kommt allerdings (unter 2003) folgendes raus:

Blatt-Name   Zell-Adresse   Formel Tabelle1   D2   =HLOOKUP(B2,$B$12:$F$13,2,FALSE)

wie kann ich die (mir gängigen) deutschen Formeln angeben lassen?

Hallo zusammen,
ich habe folgendes vor, für das man vermutlich VBA benötigt. Das Ganze soll "DAU-sicher"  sein und deshalb die Idee das Ganze mit 3 Buttons (VBA-kripte) zu lösen:

1. Button
Wir haben eine tägliche Auswertungsdatei (csv) mit Kundendaten. Diese Rohdaten sollen in ein Exceltool kopiert werden. Zum Einen sollen daraus Kennzahlen generiert werden und die Ergebnisse (aus bestimmten Zellen) zu dem jeweiligen Datum in ein separates Arbeitsblatt kopiert werden, um aus den Tagesergebnissen Wochen- oder Monatsberichte  (Kennzahlen ändern sich täglich) --> 1. Button:Ergebnisse tagesbezogen in Arbeitsblatt kopieren und speichern.

2. Button
Weiterhin werden die Rohdaten via sverweis auf weitere Arbeitsblätter "verteilt" (z.B. Abteilungsbezogen oder Bereichsbezogen). Diese Arbeitsblätter sollen dann als pdf umgewandelt werden und als Email an bestimmte Adressen gesendet werden --> 2. Button: Tageslisten an Abteilungen und Bereiche versenden

3. Button
Um die Ausrede " ich hatte keine Zeit nach Emails zu schauen" zu umgehen, sollen die obigen pdfs innerhalb des Netzwerkes auf bestimmten Druckern ausgedruckt werde --> 3. Button: Tageslisten in Abteilungen und Bereiche drucken


VBA ist für mich (leider) ein Buch mit 7 Siegel . Ich habe zwar Themen mit ähnlichen Inhalten gefunden, aber das Anpassen der Scripte ist recht schwierig. Eigentlich sollte der Bericht zu 01.03 starten. Aber leider ist unsere EDV mit dem VBA "überfordert" .

Nochmals kurz zusammengefasst:
Eine Exceltabelle, in der in einem Arbeitsblatt Rohdaten "reinkopiert" werden. Es gibt die Arbeitsblätter 1 bis 5 und a bis e, sowie ein Arbeitsblatt, in dem Kennzahlen aus dem Arbeitsblatt Rohdaten generiert werden. Diese Kennzahlen, die in verschiedenen Zellen stehen, sollen datumsbezogen (immer am jeweiligen Tag) in ein weiteren Arbeitsblatt "geschrieben" werden und die Datei gespeichert werden. Danach sollen die Arbeitsblätter 1 bis 5 und a bis e via Email versendet werden und auf bestimmten Druckern ausgedruckt werden. Ob die Daten direkt aus der externen Datei verlinkt werden oder die Daten in das Exceltool kopiert werden müssen, wäre mir egal. Es könnte auch ein Verzeichnis eineindeutig angegeben werden und die tägliche Datei immer in diesem unter dem gleichen Namen gespeichert werden. Ein weiteres Excelblatt, in dem Drucker-IP und/oder die Emailadressen in Bezug auf das jeweilige Arbeitsblatt wäre superkomfortabel!

Hoffe ich habe es nicht zu kompliziert erklärt und bin gespannt...
Achja, sollte unter Office 2010 und 2013 laufen.

Danke ab alle!

Danke, hat geklappt!!!
Schönes Wochenende!!!

Hallo!
ich habe folgenden Code:
Sub Kopieren()
   Dim rngZelle As Range
   Dim arrTabellen()
   Dim lngZaehler As Long
   Dim wksTab As Worksheet
   For Each rngZelle In Columns(1).SpecialCells(xlCellTypeConstants)
      If UCase(rngZelle) = "X" Then
         On Error Resume Next
         Set wksTab = Worksheets(rngZelle.Offset(0, 1).Value)
         On Error GoTo 0
         If Not wksTab Is Nothing Then
            ReDim Preserve arrTabellen(0 To lngZaehler)
            arrTabellen(lngZaehler) = rngZelle.Offset(0, 1)
            lngZaehler = lngZaehler + 1
         End If
         Set wksTab = Nothing
      End If
   Next rngZelle
   Worksheets(arrTabellen()).Copy
End Sub
Damit wird aus einem Excelsheet die mit "X" markierten Arbeitsblätter in ein neues Excelsheet kopiert.
Nun habe ich festgestellt, dass nicht die Inhalte kopiert werden, sondern eine Verknüpfung zu dem ursprünglichen Excelsheet eingefügt wird. Dadurch ändert sich auch das neue Excelsheet, wenn in dem ursprünglichen sich Werte ändern.
Wie muss der Code geändert werden, dass nur die Inhalte (nur die Werte ohne Formlen) eingefügt werden?

Besteht leider immer noch :-(

Hi,
ich verstehe nicht so ganz, wo da noch ein Problem ist.
Bis später,
Karin

Oha, also....
ich hatte ja deine Codezeilen in dem ersten Beitrag eingefügt und habe das Problem oder die Vorstellung, den Pfad, unter dem die Datei gespeichert werden soll, in einer Zelle anzugeben (z.B. in die zelle R11 in der Tabelle 1). Das bekomme ich irgendwie nicht hin. Ich habe versucht, den Code (sPfad = Worksheets("Tabelle1").Range("R11")), den ich in anderen Script schon genutzt habe, irgendwie in dein Script einzubauen, aber es funzt nicht.

oh Mann, das einfache lag so Nahe
Danke für den knotenplatzenden Tip.

Schon eine Idee wegen dem speichern über den pfad in der zelle?

Hallo, ich habe folgenden Code von Beverly erhalten:


Wie kann ich denn in einer Zelle einen Pfad angeben, unter denn die die aufgelisteten Namen der Tabellenblätter abgespeichert werden sollen?
Also z.B. sPfad = Worksheets("Tabelle1").Range("R11")

Wow! Super! Danke!
Funktioniert einwandfrei!
Grüße und schöne Woche!

Hallo und frohes Fest!
Auch an Feiertagen schaltet das Hirn nicht ab und mit kreist die Ganze Zeit ein Problem im Kopf 
Also das Ziel ist Mittelwerte aus verschiedenen Datenblätter je Fachgebiet/Abteilung (immer gleiche Zelle in den verschiedenen Arbeitsblättern) zu bilden.
Den Import und Export der zusammengefassten Werte habe ich bereits mit VBA realisiert. Es werden Datenblätter aus verschiedenen Einrichtungen/Abteilungen (als Auflistung je Woche) importiert. Dafür wird über ein Arbeitsblatt durch ein "X" festgelegt, welche Fachrichtungen bzw. Abteilungen importiert werden.
Nun soll wochenweise die Werte verdichtet und einen Mittelwert über alle Fachrichtungen/Abteilungen gebildet werden. Aus verschiedenen Gründe möchte ich an der Stelle nicht mit VBA arbeiten, sondern mit Formeln. Ich halte es aber für sehr kompliziert, eine WENNDANN-Formel zu basteln, die knapp 30 Einrichtungen/Abteilungen berücksichtigt, um einen Mittelwert für 9 Fachbereiche zu bilden.
Ich suche eine Lösung, die letztlich anhand des ersten Arbeitsblattes, auf dem durch das "X" festgelegt wird, welche Einrichtungen/Abteilungen (bis zu 30) ausgewertet werden sollen, den Mittelwert aus den Arbeitsblätter wochenweise und je Fachrichtung bildet.

Hat jemand eine Idee, wie ich die Lösung: "Wenn Arbeitsblätter vorhanden, dann bilde Mittelwert aus bestimmter Zelle" realisieren kann?
Grüße und guten Rutsch!

Danke für die Überarbeitung des Codes. Dein Beispiel funktioniert bei mir.
Wenn ich den Code bei mir einfügen, funktioniert es nicht. Suspekt.
In meiner Datei werden die Werte in den Zellen über eine Wenn-Funktion (=WENNFEHLER(WENN(Master!A45="X";INDIREKT(VERKETTEN($A50;"!";"C";$C50));"");0))erstellt, die u.a. eine Indirekt-Funktion beinhaltet. Die Werte werden aus weiteren Arbeitsblätter durch eine Zelle (Markierung durch "X") zusammengefügt.
Wenn ich den export-code nutze, wird in alle Zellen eine 0 geschrieben 

Ja Danke, das passt auch. Dachte, dass ich vieleicht auch den Namen des Arbeitsblattes eintragen kann. Aber so funktioniert es auch.