Code anpassen auf andere "Textquelle"

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 4 Then With ActiveSheet.Shapes("Anzeige") .DrawingObject.Formula = "=" & Cells(Target.Row, 14).Address .Visible = True .Top = Target.Top .Left = Target.Offset(0, 1).Left End With Else ActiveSheet.Shapes("Anzeige").Visible = False End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…du benötigst ein anderes Shape-Objekt, Wolfgang,
falls das bisherige nicht schon ein Bild war. Ein Bild des fraglichen Bereichs erzeugst du mit dem Screenshot- oder dem Kamera-Tool (Kamera ggf in die Schnellstartleiste übernehmen, zu finden im entsprd Menü unter alle bzw nicht im Menüband enthaltene Befehle). Das alte Shape löschen und das Bild in Anzeige umbenennen. Die bei Markierung des Bildes in der Edit-Zeile sichtbare Fml ggf auf =Beschreibung!A2:D8 ändern und das Bild natürlich auf dem Blatt Auswertung anlegen oder dorthin verschieben (ausschneiden & einfügen).
Da die Fml nun permanent sein darf (zeigt immer denselben Bereich, so wie er auf dem anderen Blatt formatiert ist, inkl Sofortübernahme aller Änderungen), kann die entsprd Zeile* im Pgm entfernt wdn. Da sich das alles auf dem Blatt Auswertung abspielt, kann auch das ActiveSheet entfernt oder durch Me ersetzt wdn. Das war's dann schon und das Pgm sähe dann nur noch so aus:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then
With Me.Shapes("Anzeige")
.Visible = True
.Top = Target.Top
.Left = Target.Offset(0, 1).Left
End With
Else: Me.Shapes("Anzeige").Visible = False
End If
End Sub

* .DrawingObject.Formula scheint schon seit langem nicht in der VBE-Hilfe dokumentiert zu sein, bewirkt aber den Verweis- und ÜbernahmeFml-Eintrag in die Edit-Zeile, der auch manuell vorgenommen wdn kann, wenn das Shape-Objekt zuvor markiert/ausgewählt wurde.
Viel Erfolg! Luc :-?

Unter Einfügen ist in meinem Xl-Ribbon nichts zu sehen, was als Einfügen einer verknüpften Grafik gedeutet wdn könnte (nur Screenshot). Ich müsste das also auch erst aus einem Anpassungsmenü „hervorkramen“, was ich für den mir lange bekannten Fotoapparat längst getan hatte.
Es ist eine typische Anmaßung deinerseits, die AWen anderer stets noch im Nachhinein erklären, verbessern oder gleich ganz ersetzen zu wollen, weil du das angeblich ja alles besser kannst. Damit macht man sich keine Freunde, was du auch an den mitunter fast allergischen Reaktionen anderer auf deine Kommentare zu spüren bekommen hast. Und wenn hier einer angibt, dann bist du es, auch aus vorstehend Geschriebenem schlussfolgerbar. Und der „Meister nicht enden wollender Tiraden“ bist ja wohl du, was du immer mal wieder gern unter Beweis stellst. Vielleicht sollte man sich mal auch über dich bei HWH beschweren; aufgefallen bist du ihm ja sicher schon… :->
Wem und wie ich ihm helfe, ist wie bei jedem Anderen die seine, auch meine Sache. Das ist allgemeiner Forumsusus, der nun mal nicht unbedingt auf deinen schon nahezu krankhaften Spleen abgestimmt ist.
Luc :-?

Beliebteste Forumthreads (12 Monate)

Code anpassen auf andere "Textquelle"

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

192 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code anpassen auf andere "Textquelle"

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

192 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread