Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Word-art einfügen

Word-art einfügen
27.07.2005 13:46:18
Andreas
Hallo an alle...
ich hab da mal ne Frage
Ich habe eine Tabelle mit drei Blättern. Ich möchte auf Blatt zwei
den Word-Artschriftzug " SCHROTT" einfügen, wenn im Tabellenblatt eins
in Zelle O48 (O-wie Otto) ein "x" geschrieben wird.
Ist dieses zu machen - könnte mir jemand einen Tip geben.
Für jede Hilfe bin ich dankbar
Andreas

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Word-art einfügen
27.07.2005 14:11:28
Benny
Hallo,
versuch es mal damit!
if Range("O48").value="x" then
sheets("Tabelle2").select
ActiveSheet.Shapes.AddTextEffect(msoTextEffect11, "Schrott", "Impact", 36#, _
msoFalse, msoFalse, 312.75, 172.5).Select
Application.CommandBars("WordArt").Visible = False
End If
AW: Word-art einfügen
27.07.2005 14:48:32
Andreas
Hallo
Danke für die Antwort-
aber wo füge ich das ein, was du mir geschrieben hast....
Hab da leider nicht genug Ahnung.... Leider
gruss Andreas
AW: Word-art einfügen
27.07.2005 14:57:47
Werner
Hallo Andreas
Mit ALT + F11 gelangst Du ins VBA-Projekt.
Am besten im Anhang Tabelle1 auswählen. Da ist auch schon der Script.
Wenn in der Tabelle1 in O48 ein x eingegebne wird, erscheint in der Tabelle2 das WordArt.
https://www.herber.de/bbs/user/25056.xls
Gruss Werner
Anzeige
AW: Word-art einfügen
27.07.2005 15:50:32
Andreas
Hallo
ich hab das dort eingefügt, wo du mir das gesagt hast
aber es kommt immer nur Laufzeitfehler und
Das Element mit dem angegebenen Namen wurde nicht gefunden
muss ich das Wort in Tabelle 2 vorher eingeben - damit es dann verschwinden kann ?
hab ich auch probiert, aber das Wort bleibt ständig da.Fehlermeldung weiterhin.
Hast du noch eien Tip
Andreas
AW: Word-art einfügen
27.07.2005 15:54:19
Werner
Hallo Andreas
Wenn Du Dein WordArt anklickst siehst Du im Namensfeld (oben links) den Namen der WordArt.
Bei mir war es WordArt 1
Diesen Namen musst Du im Code anpassen.
Gruss Werner
AW: Word-art einfügen
27.07.2005 16:17:02
Andreas
...ich danke dir - funktioniert einwandfrei
und wenn ich jetzt zwei WortArt Wörter so einfügen möchte - ist dieses auch möglich.
Lässt sich das Wort auch in Blatt eins ebenfalls einfügen
Andreas
Anzeige
AW: Word-art einfügen
27.07.2005 16:22:27
Werner
Hallo Andreas
Natürlich kannst Du das. Einfach den Blattnamen und den WordArt-Name im Code anpassen.
So wie Du den Code jetzt hast, funktioniert es nur, wenn in Tabelle1 die Zelle O48 ein x hat oder nicht.
Gruss und noch viel Spass beim Spielen im Excel
Werner
DANKE !!
27.07.2005 16:35:12
Andreas
Danke für die Rückmeldung OT:-)
27.07.2005 16:36:52
Werner
AW: Word-art einfügen
27.07.2005 14:23:28
Werner
Hallo Andreas
Du kannst das WortArt in der Tabelle2 erstellen. (Nicht immer neu Zeichnen)
Mit diesen beiden CODES wird diese dann AUS- und EINGEBLENDET, auch wenn Du noch in einer andern Tabelle aktiv bist.

Sub AUSBLENDEN()
Sheets("Tabelle2").Shapes("WordArt 1").Visible = False
End Sub



Sub EINBLENDEN()
Sheets("Tabelle2").Shapes("WordArt 1").Visible = True
End Sub

Gruss Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige