---

hallo liebe Vba versteher.
ich möchte mehrere texte in mein shape haben, das geht irgendwie nicht. ein text zeigt er mir an: und zwar "PerKap" ich möchte aber ein weiter dazu geben. hat jemand eine lösung?

Code:

---

Sub TextboxBlau_Gelb_GruenPerKapUndSekInMin()

'Position und Größe des Rechtecks setzen
Set rechteck = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100#, 0.121, 53#,
Worksheets("tabelle1").Cells(9, 2) / 60)

If Worksheets("tabelle1").Cells(2, 3) = "blau" Then
  'Hintergrundfarbe des Rechtecks festlege
  rechteck.Fill.ForeColor.RGB = RGB(0, 0, 255)
  'Farbe der Linie Festlegen
  rechteck.Line.ForeColor.SchemeColor = 9
  'Dicke der Umrahmung festlegen
  rechteck.Line.Weight = 1.5
  rechteck.Name = "meinrechteck"
  rechteck.DrawingObject.Text = "PerKap"
End If

If Worksheets("tabelle1").Cells(2, 3) = "gelb" Then
  'Hintergrundfarbe des Rechtecks festlege
  rechteck.Fill.ForeColor.RGB = RGB(255, 255, 0)
  'Farbe der Linie Festlegen
  rechteck.Line.ForeColor.SchemeColor = 9
  'Dicke der Umrahmung festlegen
  rechteck.Line.Weight = 1.5
  rechteck.Name = "meinrechteck"
  rechteck.DrawingObject.Text = "PerKap"
  End If

If Worksheets("tabelle1").Cells(2, 3) = "gruen" Then
  'Hintergrundfarbe des Rechtecks festlege
  rechteck.Fill.ForeColor.RGB = RGB(0, 255, 0)
  'Farbe der Linie Festlegen
  rechteck.Line.ForeColor.SchemeColor = 9
  'Dicke der Umrahmung festlegen
  rechteck.Line.Weight = 1.5
  rechteck.Name = "meinrechteck"
  rechteck.DrawingObject.Text = "PerKap"
End If

End Sub

---

auch möchte ich den textfeld der sich schon auf tabelle 1 befindet eine funktion geben. und zwar soll er wenn angeklickt alle subs durchlaufen lassen die ich gemacht habe.

hoffe man versteht was ich meine.

grüße beppe

[Diese Nachricht wurde von beppe am 04. Mrz. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo beppe,

Zitat:

---

Original erstellt von beppe:
ich möchte mehrere texte in mein shape haben, das geht irgendwie nicht. ein text zeigt er mir an: und zwar "PerKap" ich möchte aber ein weiter dazu geben. hat jemand eine lösung?

---

Ich glaube nicht, dass das möglich ist, ein Shape hat nur einen Text. Meinst du vielleicht den einen Text mehrzeilig? Theoretisch könntest du ein transparentes Textfeld darüber legen, dann hättest du zumindest zwei getrennte Texte und nur eine optisch sichtbare Box. Vielleicht erzählst du lieber, was du am Ende haben möchtest ...

Zitat:

---

Original erstellt von beppe:
auch möchte ich den textfeld der sich schon auf tabelle 1 befindet eine funktion geben. und zwar soll er wenn angeklickt alle subs durchlaufen lassen die ich gemacht habe.

---

Auf das Textfeld mit der rechten Maustaste klicken und "Makro zuweisen" aus dem Dropdown wählen. In der zugewiesenen Prozedur dann deine ganzen Subs nacheinander aufrufen.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo danke schonmal für die antwort, hat soweit geklappt, mein textfeld kann die macros jetzt aufrufen, das sieht so aus:

Sub Textfeld16_Klicken()
    Call FarbeAusgeschrieben
    Call PkZeitMinuten
    Call MkAnzahlDurchgaenge
    Call farbe
    Call TextboxBlau_Gelb_GruenPerKapUndSekInMin
    Call TextboxBlau_Gelb_GruenMasKap
End Sub

das ganze befindet sich in tabelle 1, wie schaffe ich es das die shapes die erzeugt werden in eine andere tabelle angezeigt werden?? das wären die letzten 2 makros: Call TextboxBlau_Gelb_GruenPerKapUndSekInMin  und 
    Call TextboxBlau_Gelb_GruenMasKap

danke euch

[Diese Nachricht wurde von beppe am 05. Mrz. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP