Office: Labelfarbe mit Makro ändern & Text im Label anders anzei

fette Elfe · 24. Januar 2010

Hallo,

auf einem Blatt habe ich einige Labels liegen (Entwicklertools - Einfügen - AktiveX-Steuerelemente).
Diesen Labels weise ich per Makro Ihren Wert (Caption) zu.

Das klappt soweit auch alles, bis auf:

1. möchte ich bei einigen den Text zweizeilig anzeigen. Die Eigenschaft "WordWrap" habe ich bereits auf "true" gesetzt. Im Makro habe ich mir mit einer Menge Leerstellen zwischen Text und Zahlenwert geholfen um die Zahl (Zellwert "G1") in die zweite Zeile zu schubsen. Gibt es da eine andere Möglichkeit?

Beispiel (Code ist bei mir in einer Zeile):
Code:
.LabelDifferenzReinRaus.Caption = "Diff. Rein-Raus" & "                         " & Range("G1").Value
2. würde ich gerne diese beiden Textzeilen nicht nur horizontal zentriert (Eigenschaft "TextAlign" = "2 - fmTextAlignCenter"), sondern auch vertikal zentriert anzeigen lassen.
Im Moment beginnt der Text oben, und nach unten bleibt Platz.
Die Höhe des Labels möchte ich nicht verändern.
Kennt da jemand eine Möglichkeit?

3. würde ich gerne die Hintergrundfarbe des Labels in Abhängigkeit zu einem Zellwert ändern. Das klappt aber leider nicht so einfach wie mit "Caption". Es kommt die Fehlermeldung:
Laufzeitfehler '424': Objekt erforderlich
Kann mir da jemand den Trick verraten?
Code:
Public Sub DifferenzReinRaus()
    With Worksheets("Palettenbewegungen")
      Cells(1, 7).FormulaLocal = "=SUMME(SUMME(E1-F1))"
      .LabelDifferenzReinRaus.Caption = "Diff. Rein-Raus" & "                         " & Range("G1").Value
      If Cells(1, 7).Value > 0 Then
        Set .LabelDifferenzReinRaus.BackColor = &H80FF80      'grün
      End If
    End With
End Sub
lieben Gruß Achim

*grummel*
der Code wird nicht richtig übernommen, diese Zeilen fehlen noch:
If Cells(1, 7).Value < 0 Then
Set .LabelDifferenzReinRaus.BackColor = &H8080FF 'Rot
End If
If Cells(1, 7).Value = 0 Then
Set .LabelDifferenzReinRaus.BackColor = &HE0E0E0 'grau
End If

Hajo_Zi · 24. Januar 2010

Hallo Achim,

"Text1" & chr(10) & Text2"

Gruß Hajo

fette Elfe · 24. Januar 2010

WOW!
schneller als die Polizei erlaubt...
Dankeschön Hajo_ZI.
Punkt 1. ist damit erledigt.
Code:
.LabelDifferenzReinRaus.Caption = "Diff. Rein-Raus" & Chr(10) & Range("G1").Value
Gruß Achim

Exl121150 · 24. Januar 2010

Hallo Achim,

2. würde ich gerne diese beiden Textzeilen nicht nur horizontal zentriert (Eigenschaft "TextAlign" = "2 - fmTextAlignCenter"), sondern auch vertikal zentriert anzeigen lassen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

1) In den Entwurfsmodus schalten
2) Rechtsklick auf das Labelobjekt: auswählen 'Bezeichnungsfeld-Objekt' > 'Bearbeiten'
Dadurch wird der Bezeichnungstext editierbar. Indem Du den Cursor zB. an den Anfang des Bezeichnungstextes stellst und dann die Tastenkombination Strg+Eingabe drückst, rückt der nachfolgende Text um 1 Zeile tiefer.
3) Das entspricht in Deiner Formel von vorhin dem CHR(10). Statt Punkt 1)+2) kannst Du auch programmieren:
Code:
.LabelDifferenzReinRaus.Caption = Chr(10) & "Diff. Rein-Raus" & Chr(10) & Range("G1").Value
3. würde ich gerne die Hintergrundfarbe des Labels in Abhängigkeit zu einem Zellwert ändern. Das klappt aber leider nicht so einfach wie mit "Caption"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.
Code:
Public Sub DifferenzReinRaus() 
    With Worksheets("Palettenbewegungen") 
      Cells(1, 7).FormulaLocal = "=SUMME(SUMME(E1-F1))" 
      .LabelDifferenzReinRaus.Caption = "Diff. Rein-Raus" & "                         " & Range("G1").Value 
      If Cells(1, 7).Value > 0 Then 
        .LabelDifferenzReinRaus.BackColor = &H80FF80      'grün 
      End If 
    End With 
End Sub
Die einzige Änderung, die Du machen musst, ist, das Wort "Set" zu entfernen - oder was auch funktionieren müsste, ist, aus dem "Set" ein "Let" zu machen.
Es handelt sich nämlich um eine ganz normale Wertzuweisung an die Eigenschaft BackColor und nicht um eine (Instanz-)Zeigerzuweisung an eine Objektvariable.

*grummel*
der Code wird nicht richtig übernommen, diese Zeilen fehlen noch:
If Cells(1, 7).Value < 0 Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Diese böse Eigenschaft beim Uploaden in diesem Forum entsteht offenbar dadurch, dass der ganze Text, den man hier eingibt, in HTML-Tags eingebettet wird und dabei wird offenbar die zuständige Software durch "<" und ">" verwirrt, die in HTML zur Begrenzung von Tags (wie zB. <HTML> oder <BODY> etc) verwendet werden.
Es bleibt nicht anderes übrig, als zuerst eine Vorschau zu erstellen, diese zu kontrollieren, ob Programmtext fehlt (falls man den Code-Button verwendet hat).
Fehlt etwas, muss man die Checkbox 'HTML in diesem Beitrag deaktivieren' anhaken - Ich musste die Checkbox für diesen Text auch anhaken.

fette Elfe · 24. Januar 2010

Hallo Exl121150,

mal wieder meinen Dank an Dich für Deine hilfreiche und gut verständliche Antwort.

Das mit der Farbe lag wirklich am "Set", klappt jetzt super.
Und das mit dem HTML ist auch hilfreich. Wäre ich im Leben nicht draufgekommen.

Die Geschichte mit der zentrierten Schrift klappt so allerdings nicht.
Für Deine Lösung müsste das Label ja möglichst genau Platz für 4 Zeilen übereinander bieten (1. leer, 2. Zeile Text, 3. Zeile Zellwert, 4. Zeile wieder leer).
Das ist bei mir aber nicht der Fall.
Das Label ist 45 Hoch, Schrift ist Calibri mit Größe 14 und in Fett.
Somit reicht der Platz nichtmal ganz für 3 Zeilen.

Falls es keine "echte" Möglichkeit zur Zentrierung in der Vertikalen gibt, stellt sich die Frage ob sich der Aufwand dann lohnt für ein wenig optische Perfektion?

Office: Labelfarbe mit Makro ändern & Text im Label anders anzei

Labelfarbe mit Makro ändern & Text im Label anders anzei

Labelfarbe mit Makro ändern & Text im Label anders anzei

Labelfarbe mit Makro ändern & Text im Label anders anzei

Labelfarbe mit Makro ändern & Text im Label anders anzei - Similar Threads - Labelfarbe Makro ändern

Name der Datei durch Excel geändert

Ein Makro für mehrere Register

Makro öffnet unerwartete Datei

Leerzeilen entfernen

Makro Schaltflaechen vervielfaeltigen sich....

Seit Win 11 Zugriffsprobleme bei Excel über Makros

Labelfarbe