AW: Herzform mit einfügen wenn textbox überträgt
13.10.2017 20:53:33
Ralf
Hi Michael,
die Herzen sind ja Shapes, also "Figuren". Die kann man nicht wie Text mit in eine Zelle fügen, sondern nur darüber.
Ich vermute mal. Du möchtest nur in den Zellen ein Herz, in denen auch Text steht? An und für sich kein großes Problem, nur... Du hast Deine Objekte ganz wild und durcheinander benannt, da musst Du die Zuordnung schon selbst besorgen.
Nöglich wäre das so:
- Hebe den Blattschutz auf
- klicke auf das oberste Herz in Spalte B
- links obenm unter dem Menüband, siehst Du wie das Herz heißt. (Bsp.: Herz 29 )
- notiere Dir den namen und die Adresse der Zelle rechts dabeben (hier C20)
- mache das mit allen Herzen
- dann gehe in Deine Form, in den Code des Übernehmen Buttons
Da steht ja dann folgendes:
Private Sub CommandButton2_Click()
Dim Herz As Shape
Application.ScreenUpdating = False
With Worksheets("Rezept")
.Unprotect 'Blattschutz aufheben
.Range("C20") = TextBox1.Text
.Range("C22") = TextBox2.Text
...usw....
Also, dass der text aus Textbox1 in Zelle C20 soll, der aus Textbox2 in Zelle C22 usw...
Schreib am Ende dieser Zuweisungsliste (nach .Range("C43") = TextBox29.Text)
folgendes:
.Shapes("Herz 12").Visible = IIf(TextBox1.Text = "", False, True)
.Shapes("Herz 13").Visible = IIf(TextBox2.Text = "", False, True)
.Shapes("Herz 14").Visible = IIf(TextBox3.Text = "", False, True)
usw...
Nur, dass Du eben die Namen Herz xx) mit den richtigen Nummern den richtigen Textboxen zuweisen musst.
Viel Spaß
Ralf