Excel: Suche nach Wörtern... in SmartArt-Grafiken möglich?

Hallo Andreas

Vielen Dank für Deine Antwort. Ich muss einen längeren Prozess mittels einer grossen SmartArt-Grafik (grösser als A4, deshalb leider nicht in Word möglich, da eine SmartArt-Grafik immer nur max. 1 A4-Seite gross sein kann!) darstellen. Deshalb denke ich,
dass Excel (da quasi "unbegrenzter" Platz!) am Besten wäre.

Oder gibt es vielleicht noch bessere Lösungen? (SmartArt-Grafiken können ja nur in Word, Excel, PowerPoint (leider auch nur auf A4 begrenzt!) eingefügt werden...)

Leider kann man aber in Excel - nicht wie in Word - keine Wortsuche durchführen lassen... Oder eben mit Deinem Makro... Aber wie genau?

Ich möchte eigentlich nur ein in der (immer unübersichtlich werdenden) SmartArt-Grafik vorkommendes Wort suchen können, sodass dieses vielleicht gelb markiert/umrahmt wird...

Danke für Deine Unterstützung und herzliche Grüsse

… alles klar! Schade! Das ist zuviel Aufwand!

Aber ganz herzlichen Dank für all Deine Bemühungen!

Herzliche Grüsse

Naja, alles weitere sind Feinheiten und muss man halt programmieren...

Alle Nodes bekommt man dann wahrscheinlich mit einer Rekursion... müsste ich mir dann ankucken.

Mehrfache Vorkommen sind dann schon aufwendiger, wenn ein Makro gelaufen ist, dann "vergisst" es die Stelle die gefunden wurde. Ich sehe da keinen einfachen Weg.

Man könnte sowas wie das Suche-Fenster von Excel nachbauen, in dem kann man "Suche alles" anklicken und bekommt dann eine Liste...

Das ganze dann in einem Add-in verpacken mit einem Button von dem man das Tool aufrufen kann...

Ich schätze mal 2 Tage Arbeit.

Andreas.

Hallo Andreas

Wow! Das funktioniert! Leider wird jedoch nur die 1. Ebene (A1, B1, C1) gefunden...!

Gibt es vielleicht auch noch eine Lösung für die Unterebenenen (A2, A3...., B2, B3.... etc.)





Kann die Gross-Kleinschreibung vernachlässigt werden...?

Gibt es für folgendes Prozedere auch eine Lösung:

Wenn 1 Wort gefunden wurde und das gleiche Wort später nochmals vorkommt; Die Treffer-Markierung springt von einem Wort zum anderen...?

Danke für Deine Bemühungen und herzliche Grüsse

Ich möchte eigentlich nur ein in der (immer unübersichtlich werdenden) SmartArt-Grafik vorkommendes Wort suchen können, sodass dieses vielleicht gelb markiert/umrahmt wird...

Nee, das wird nix, weil das würde permanent bleiben. Und Rückgängig wie in Word geht in Excel nicht mehr wenn ein Makro gelaufen ist.

Probier den Code unten.

Andreas.

Sub Test()

 Const Title = "SmartArt-Suche"

 Dim Sh As Shape

 Dim N As SmartArtNode

 Dim Contents As String

 Contents = InputBox("Suche nach", Title)

 If Contents = "" Then Exit Sub

 For Each Sh In ActiveSheet.Shapes

 If Sh.Type = msoSmartArt Then

 For Each N In Sh.SmartArt.Nodes

 If InStr(1, N.TextFrame2.TextRange.Text, Contents, vbTextCompare) > 0 Then

 'Gefunden

 N.Shapes.Select

 MsgBox "Gefunden", vbInformation, Title

 Exit Sub

 End If

 Next

 End If

 Next

 MsgBox "Nicht gefunden", vbExclamation, Title

End Sub