|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.10.2009 07:59:05 |
werner |
|
|
|
05.10.2009 10:46:23 |
Holger |
|
|
|
05.10.2009 10:55:02 |
hallo Holger |
|
|
 Aw:Aw:Aw:Füllstandsanzeige |
05.10.2009 15:28:08 |
Holger |
|
|
|
05.10.2009 15:58:31 |
werner |
|
|
|
05.10.2009 17:42:26 |
Holger |
|
|
|
06.10.2009 07:21:10 |
werner |
|
|
|
07.10.2009 08:50:24 |
Holger |
|
|
|
08.10.2009 08:41:34 |
Werner |
|
|
|
08.10.2009 11:08:53 |
Holger |
|
|
|
12.10.2009 11:35:49 |
Werner |
|
|
|
05.10.2009 10:58:30 |
Werner |
|
|
Von:
Holger |
Datum:
05.10.2009 15:28:08 |
Views:
1077 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Füllstandsanzeige |
Hallo Werner,
so ganz bin ich nicht aus deiner Spezifikation schlau geworden. So wie ich dich verstanden habe, empfehle ich eine LED-Anzeige.
Für das Steuerelement LEDMeter1 auf dein Tabellenblatt 1 ein. Solche zusätzlichen Steuerelemente findest du unter den ActiveX-Steuerelementen. Dann füge folgendes Makro in den Codeteil deiner Tabelle, nicht in ein Modul(!), ein. Bei jeder Änderung in A17 oder A18 wird die Anzeige verändert. Mit den Grenzwerten für die Gelb oder rote Anzeige kannst du spielen, um sie deinen tatsächlichen Bedürfnissen anzupassen.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a17:a18")) Is Nothing Then
With LEDMeter1
.SetLevel (-1000)'sonst wird die Anzeige offenbar nicht zurückgesetzt
.RedZone = 60
.YellowZone = 50
.SetLevel (Target / 3)'Division durch 3 wegen der Normierung auf 300 bar
End With
End If
End Sub
Gruß
Holger
hallo Holger schrieb am 05.10.2009 10:55:02:
Hallo...
es soll nur immer ein wert angezeigt werden und dieser dann grafisch dargestellt werden
300bar ist max und angezeigter wert z.B. 160bar…
Grafik 100% grau = 0bar
Grafik 100% rot = 300bar
Grafik etwas ca. 55% rot und ca. 45% grau = 160bar
Gruß
Werner
Holger schrieb am 05.10.2009 10:46:23:
Hallo Werner,
wo stehen denn die übrigen 18 werte?
Gruß
Holger
werner schrieb am 05.10.2009 07:59:05:
Hallo....
Ich benötige eine VBA Füllstandsanzeige!
Der Füllgrad wird in bar in Tabelle1 Range("a17:a18") eingegeben und soll grafisch auf der Tabelle 1 dargestellt. (Eingabe in 20 schritten und Skalierung von 0 bis 300bar)
Wer kann helfen???
Gruß
Werner |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.10.2009 07:59:05 |
werner |
|
|
|
05.10.2009 10:46:23 |
Holger |
|
|
|
05.10.2009 10:55:02 |
hallo Holger |
|
|
Aw:Aw:Aw:Füllstandsanzeige |
05.10.2009 15:28:08 |
Holger |
|
|
|
05.10.2009 15:58:31 |
werner |
|
|
|
05.10.2009 17:42:26 |
Holger |
|
|
|
06.10.2009 07:21:10 |
werner |
|
|
|
07.10.2009 08:50:24 |
Holger |
|
|
|
08.10.2009 08:41:34 |
Werner |
|
|
|
08.10.2009 11:08:53 |
Holger |
|
|
|
12.10.2009 11:35:49 |
Werner |
|
|
|
05.10.2009 10:58:30 |
Werner |
|
|