Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1024to1028
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1024to1028
1024to1028
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswertung in Prozent (Grafisch als Dashboard?)

Auswertung in Prozent (Grafisch als Dashboard?)
24.11.2008 09:40:16
Guido
Guten Morgen Zusammen,
meine VBA Kenntnisse sind etwas eingerostet und ich benöte dringend einen Denkanstoss für eine Problemstellung, bei der ich momentan etwas auf dem Schlauch stehe.
Ich habe eine Excel Datei mit diversen Sheets, alle identisch aufgebaut.
Es sind diverse Aufgaben mit Fortschrittanzeige in Prozent.
Beispiel: C1 = Aufgabe1 - C5 = 75%
D1 = Aufgabe 2 - D5 = 25%
usw.
Mein Ziel ist es eine kleine Grafische Anzeige (Dashboard) auf jedem Sheet zu erstellen über den Gesamtfortschritt jedes Projekts. D.h. jedesmal wenn ich die Seite aufrufe müssen alle Aufgaben überprüft werden und eine Gesamtprozentzahl irgendwo auf dem Blatt grafisch dargestellt werden.
Ist das möglich?
Jeder Hinweis der zur Durchführung dieser Aufgabenstellung führt wird dankend angenommen :-)
Gruss,
Guido

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswertung in Prozent (Grafisch als Dashboard?)
24.11.2008 10:11:16
Tino
Hallo,
ich würde dies wahrscheinlich ohne Makro machen, mit einem Diagramm.
Hier mal ein grobes Beispiel.
In Spalte A habe ich die Aufgaben und in B wird die erfüllte mit einem X Markiert und
dies wird im Diagramm dargestellt.
https://www.herber.de/bbs/user/57082.xls
Gruß Tino
AW: Auswertung in Prozent (Grafisch als Dashboard?)
24.11.2008 10:34:00
Guido
Hallo Tino,
das ist im Prinzip genau das, was ich suche. Nur habe ich als Aufgabenfortschritt lediglich eine einzige Zelle zur Verfügung (z.B. C5 Inhalt: 25%)
Ich möchte dann auch gerne per Makro sämtliche Aufgaben (1-n) durchgehen und mir dann den aktuellen Status anzeigen lassen, da sich die Aufgaben sehr oft erweitern und nicht immer den gleichen Umfang haben. Dieses Makro wäre aber kein Problem für mich (Zeilen durchgehen bis letzte Zeile/leere Zeile erreicht)...es geht mir Hauptsächlich um eine grafische Anzeige in Prozent.
Danke & Gruss,
Guido
Anzeige
AW: Auswertung in Prozent (Grafisch als Dashboard?)
24.11.2008 10:57:39
Tino
Hallo,
"Dieses Makro wäre aber kein Problem für mich..."
Also hast Du doch ein Ergebnis was noch offen ist?
Dieses Ergebnis brauchst Du nur wie in meinem Beispiel,
in eine Zelle schreiben und dass Diagramm zeigt die Grafik dazu an.
"Nur habe ich als Aufgabenfortschritt lediglich eine einzige Zelle zur Verfügung..."
Eine oder zwei Zellen kannst Du dafür bestimmt noch opfern. ;-)
Gruß Tino
AW: Auswertung in Prozent (Grafisch als Dashboard?)
24.11.2008 17:39:00
Guido
Hi Tino,
dank Deines Denkanstosses habe ich mir eine kleine Prozedur überlegt, die zwar nicht so toll geschrieben ist, aber sie erfüllt ihren Zweck.
Set currentcell = ActiveSheet.Range("C11")
Do While Not IsEmpty(currentcell)
Rem Zeile tiefer wird markiert
Set nextCell = currentcell.Offset(1, 0)
Zelle = Zelle + 1
Set currentcell = nextCell
Loop
Set NextCurrentCell = ActiveSheet.Range("I11")
Ergebnis = (NextCurrentCell.Value * 100) / Zelle
Ergebnis = Round(Ergebnis, 2)
For A = 1 To Zelle
Rem Zeile tiefer wird markiert
Set nextCell = NextCurrentCell.Offset(1, 0)
Ergebnis2 = (nextCell.Value * 100) / Zelle
Ergebnis2 = Round(Ergebnis2, 2)
Ergebnis = Ergebnis2 + Ergebnis
Set NextCurrentCell = nextCell
Next A
Ergebnis = Round(Ergebnis)
ActiveSheet.Shapes("Rechteck").Width = Ergebnis
ActiveSheet.Shapes("Rechteck").Select
Selection.Characters.Text = "Ist " & Ergebnis & "%"
LblAnzeige.Caption = Ergebnis & "%"
Gruss,
Guido
Anzeige

299 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Vorherige Ergebnis einer Berechnung anzeigen
snoop

Hallo ,
ich habe folgendes Problem - erstmal das Beispiel:
ich erhalte im Beispiel unten für x1 = -5 ein f(x1) = 2*x natürlich von -10. Nun möchte ich wenn ich x2=2 als x eingebe das dann aktuelle Ergebnis (f(x) = 4 ) angezeigt bekommen UND auch das Ergebnis der letzten Berechnung f(x-...
15.01.2009 17:29:00
Thread-ID: 1040244
2 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
VERKETTEN-String in Zahl umwandeln
Steffi

Hi,
bräuchte mal Hilfe:
Ich möchte eine Liste von Zahlen mit WENN-Formeln prüfen. Die Bedingungen mit den jeweiligen Operatoren stehen in anderen Zellen, z.B. "<=2". Ich hab es mit der VERKETTEN-Funktion versucht, aber anscheinend wird das Ergebnis als String interpretiert:
A1: 1...
29.01.2009 17:22:16
Thread-ID: 1045101
5 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
4
3
3
2
1
6
4
14
3
1
6
3
5
15
11
5
12
5
16
9
2
7
4