Hallo,
ich bin das erste mal hier und mir wurde gesagt, hier finde ich Hilfe. Es ist lange her, dass ich mal in VBA reingeschnuppert habe. Nun bräuchten wir eine Ampel (Icon), die evtl. sogar sowohl in Word als auch in Excel funktioniert. Sie soll möglichst je nach Status der Meilensteine umschaltbar (rot - gelb - grün) sein. Natürlich sollte sie möglichst unkompliziert einzufügen sein.
Ist sowas für einen Halblaien praktikabel? Oder hat einer von Euch eine alternative Idee?
Danke und vG
Hermesianerin
ich bin das erste mal hier und mir wurde gesagt, hier finde
ich Hilfe. Es ist lange her, dass ich mal in VBA
reingeschnuppert habe. Nun bräuchten wir eine Ampel (Icon),
die evtl. sogar sowohl in Word als auch in Excel funktioniert.
Sie soll möglichst je nach Status der Meilensteine umschaltbar
(rot - gelb - grün) sein. Natürlich sollte sie möglichst
unkompliziert einzufügen sein.
Ist sowas für einen Halblaien praktikabel? Oder hat einer von
Euch eine alternative Idee?
Danke und vG
Hallo Hermesianerin,
was meinst du mit Meilenstein?
Soll das Ganze so aussehen:
http://www.uploadagent.de/show-181824-1326879286.html
Gruß
Reinhard
Hallo Reinhard,
meilensteine sind die einzelnen Schritte zu einem Ziel - ist also für die Programmierung eher unwichtig. Es soll eine richtige Ampel sein, die anzeigt, wie der Status gerade ist. In etwa so, um es kurz zu beschreiben: Rot - noch zu bearbeiten -> gelb - in Bearb. -> grün - erl.
VG Hermesianerin
Hallo,
VB6.0 liegt eine Iconsammlung bei, da sind auch Ampeln enthalten.
Eine steht auf rot, eine gleb, eine grün.
Du musst dann im Programm nur immer das Icon tauschen. Von hier aus habe ich keine Möglichkeit, die Dateien per FTP hoch zu laden, ich lege sie heute Abend auf …
http://www.sharkie.de/Ampel.zip
Gruß Rainer
Hallo Rainer, das hört sich wirklich gut an - DANKE! Ich schau dann gleich morgen früh unter dem Link nach 
Gruß Judith
Hallo Hermesianerin,
meilensteine sind die einzelnen Schritte zu einem Ziel - ist
also für die Programmierung eher unwichtig.
Ja.
Es geht mir um das Verstehen was genau du eigentlich suchst/willst.
Bislang fehlen noch wichtige=notwendige Angaben.
Okay, je nach Meilenstein, je nach Fortschritt, je nach Erledigungsstatus usw. ist also alles das Gleiche, gut.
Wie stellst du dir das aber konkret vor?
Jetzt mal auf Excel bezogen.
Soll Vba eine oder mehrere Zellen überwachen und je nach Eintrag/Wert in der Zelle soll dann automatisch in einer Ampel eine bestimmte Farbe aufleuchten?
Eine Ampel für das ganze Blatt oder pro „Auftrag“ eine Ampel?
Oder willst du manuell durch Klick auf eine Schaltfläche wie in meinem Beispiel die Ampel „umschalten“?
Lade bitte mal mit fileupload o.ä., s. FAQ:2606 eine aussagekräftige
Beispielmappe hoch.
Zur Not „malste“ mit Symbolleiste „Zeichnen“ da ein Rechteck mit drei kreisen als Ampel(n).
Welche Officeversion hast du?
Gruß
Reinhard
Hallo Reinhard,
ich vermute, etwa so etwas, nur anders gesteuert …
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form\_Load()
Dim ico(2) As String
Dim i As Integer, n As Integer
Dim pfd As String
ico(0) = "TRFFC10A.ICO"
ico(1) = "TRFFC10B.ICO"
ico(2) = "TRFFC10C.ICO"
pfd = "C:\Programme\Microsoft Visual Studio\Common\Graphics\Icons\Traffic\"
Me.Show
DoEvents
For n = 1 To 30
For i = 0 To 2
Me.Icon = LoadPicture(pfd & ico(i))
Sleep 500
DoEvents
Next
Next
End Sub
Gruß Rainer
Hallo Rainer,
VB6.0 liegt eine Iconsammlung bei, da sind auch Ampeln
enthalten.
meinem VB 5.0 auch? Wonach muß ich suchen?
Obwohl, bei mir (WinXP) in der Suche über Start—Suchen fiel mir schon vor Tagen auf daß die rumspinnt.
Sie findet kaum noch was obwohl ich weiß das die Dateien vorhanden sind.
Eben suchte ich nach
ico
Ergebnis sind 21 gefundene Dateien und Ordner.
Das kann überhaupt nicht sein 
(
Aber gut, rein mein Problem, muß das mal gezielt angehen und schauen was da falsch läuft.
Gruß
Reinhard
Hallo Rainer,
ich vermute, etwa so etwas, nur anders gesteuert …
„etwa so etwas“, soweit bin/war ich auch gleich
„nur anders gesteuert“, genau das muß noch geklärt werden wie das (an-) gesteuert werden soll.
pfd = „C:\Programme\Microsoft Visual
Studio\Common\Graphics\Icons\Traffic“
Sie sucht was in Vba,aber okay, deinen Code in eine Userform einzubauen oder die Icons auf einem Blatt erscheinen zu lassen krieg ich hin.
Ich habe kein Visual Studie bei C:\Programme.
Steht da deine Iconliste?
Und zu meiner Nachfrage zu der Excelversion. Ab XL 2007 kann man bei der bed. Formatierung auch Ampelsymbole auswählen.
D.h., jetzt mal bezogen auf eine Zelle als beispiel.
Ist der Zellwert unter 30 dann rote Ampel.
Ist der Zellwert unter 70 dann gelbe Ampel.
Ist der Zellwert über 70 dann grüne Ampel.
(Neben Ampel gibt es da u.a. auch Pfeile, also Pfeil nach oben, nach unten oder seitwärts.)
So eine Ampel ist wie in meinem Beispiel ein farbiger Kreis.
WEnn man nun 3 Zellen untereinander nimmt. Hintergrund auf schawarz setzt. Dann in die drei Zellen bed. Formatierungen reinsetzt und den Zellwert nicht anzeigen läßt so sieht das aus wie eine Verkehrsampel.
Nur mal so angedacht als Variante.
Gruß
Reinhard
Hallo Reinhard,
Sie sucht was in Vba,aber okay, deinen Code in eine Userform
einzubauen oder die Icons auf einem Blatt erscheinen zu lassen
krieg ich hin.
das war auch nur für Dich zur Anschauung. Die Icons werden in die Titelzeile gestellt.
Ich habe kein Visual Studie bei C:\Programme.
Steht da deine Iconliste?
Ja, in den Pfad hat mir VB6 einige Icons gepackt. Ich schätze so um die 100.
Und zu meiner Nachfrage zu der Excelversion. Ab XL 2007 kann
man bei der bed. Formatierung auch Ampelsymbole auswählen.
D.h., jetzt mal bezogen auf eine Zelle als beispiel.
Ist der Zellwert unter 30 dann rote Ampel.
Ist der Zellwert unter 70 dann gelbe Ampel.
Ist der Zellwert über 70 dann grüne Ampel.
Ja. so etwa. Die Frage war aber nur, woher die Ampel-Icons nehmen. Die Steuerung schien mir schon klar zu sein. Oder habe ich etwas überlesen? Kann gut sein, was VBA ist verstehe ich ja eh nicht, das ist Dein Metier.
(Neben Ampel gibt es da u.a. auch Pfeile, also Pfeil nach
oben, nach unten oder seitwärts.)
So eine Ampel ist wie in meinem Beispiel ein farbiger Kreis.
WEnn man nun 3 Zellen untereinander nimmt. Hintergrund auf
schawarz setzt. Dann in die drei Zellen bed. Formatierungen
reinsetzt und den Zellwert nicht anzeigen läßt so sieht das
aus wie eine Verkehrsampel.
Ach so. Ne, hier ist das eine richtig schöne Verkehrsampel aus den 60er Jahren. Hat Microsoft richtig gut gemalt.
Gruß Rainer
Hallo Reinhard,
VB6.0 liegt eine Iconsammlung bei, da sind auch Ampeln
enthalten.meinem VB 5.0 auch? Wonach muß ich suchen?
Nach einem Verzeichnis ‚Icons‘.
Obwohl, bei mir (WinXP) in der Suche über Start—Suchen fiel
mir schon vor Tagen auf daß die rumspinnt.
Sie findet kaum noch was obwohl ich weiß das die Dateien
vorhanden sind.Eben suchte ich nach
ico
Ergebnis sind 21 gefundene Dateien und Ordner.
Das kann überhaupt nicht sein
Die Systemicons sind in einer .dll, die findest Du nicht als .ico. Aber 21 ist wirklich wenig. Die Sammlung hast Du dann wohl (noch) nicht. … Ich habe Deine Mailadresse … *gg*
Aber gut, rein mein Problem, muß das mal gezielt angehen und
schauen was da falsch läuft.
Ja. Bis heute Abend, ab heute habe ich zu Hause wieder einen Internetanschluss.
Gruß Rainer
Hallo,
ich habe die Icons gezippt und hochgeladen …
Dann wollte ich sie Reinhard per Mail schicken und Googlemail meldet, es wäre eine ausführbare Datei enthalten.
Hmmm … Zur Sicherheit habe ich das File wieder entfernt und die drei Icons einzeln hoch geladen und an Reinhard geschickt. Die sind sauber, ist sicherer so. Du musst nur drei mal klicken, statt nur einmal.
http://www.sharkie.de/TRFFC10A.ICO
http://www.sharkie.de/TRFFC10B.ICO
http://www.sharkie.de/TRFFC10C.ICO
Gruß Rainer
Ach so. Ne, hier ist das eine richtig schöne Verkehrsampel aus
den 60er Jahren.
Hallo Rainer,
ja, sehen hübsch aus.
Ich warte erstmal ab bis sich Hermesia o.ä. meldet.
Gruß
Reinhard
Hallo Jungs,
Sorry - war in Besprechungen, komme erst jetzt zum Lesen. Bin total begeistert, verstehe nur nicht viel von Eurem Fach"gespräch". Die drei Ampeln von Rainer sehen super aus. Übrigens - es muss nicht VBA sein - war nur das einzige, von dem ich dachte, dass es funktioniert. Scheine mich überfordert zu haben, diesen Auftrag von meinem Kollegen anzunehmen. Jetzt sagt er nämlich, er würde die Ampel gern in Datenbanken als Symbol einfügen. Also wieder ganz was Neues.
Da sieht der Fall ja schon wieder anders aus. Vielleicht stelle ich ihm einfach drei Bilder zur Verfügung. Oder habt ihr ne andere Idee? Ich danke jedenfalls für Euer Engagement.
LG Judith
Grafik Symbol Icon in Datenbank einbauen
Hallo Judith,
Bin total begeistert, verstehe nur nicht viel von Eurem
Fach"gespräch".
mußt du auch nicht. Es würd reichen wenn du Fragen auch beantwortest
Die drei Ampeln von Rainer sehen super aus.
Ja.
Übrigens - es muss nicht VBA sein - war nur das einzige, von
dem ich dachte, dass es funktioniert.
Ist auch korrekt. Bei Excel/Word ist es die beste schnellste Lösung.
Der Grundplan ist ja die drei Grafiken in z.B. ein Tabelleblatt einzufügen
und alle drei an einer Stelle zu positionieren sodaß sie „übereinander“ sind.
Durch wie in meiner Beispielmappe wählst du dann durch Optionsfelder
aus welche der drei Ampeln grad sichtbar ist, die anderen beiden werden dann automatisch auf unsichtbar „gesetzt“.
Ohne Vba ist dies sehr evtl. vielleicht auch möglich aber aufwendig.
Jetzt
Jetzt sagt er nämlich, er würde die Ampel gern in Datenbanken als
Symbol einfügen. Also wieder ganz was Neues.
Kommt auf die Datenbank an. Auch Access kann Vba.
Bei anderen Dantenbanken muß er sehen wie er klar kommt.
Um welches Datenbankprogramm geht es denn?
Vielleicht stelle ich ihm einfach drei Bilder zur Verfügung.
? Wieso „vielleicht“?
Gruß
Reinhard
Hallo Reinhard,
bin nä Woche geschäftl. unterwegs, beschäftige mich danach mit den unbeantworteten Fragen und den Vorschlägen. Eine Antwort hab ich - es ist eine Lotus Notes DB. Zunächst ein dickes DANKE
VG Judith