Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1808to1812
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
1808to1812
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einblenden bei Markierung

Einblenden bei Markierung
27.01.2021 09:28:26
Mirko
Hallo liebe Community,
ich bin auf der Suche nach einer Funktion in Excel. Weiß aber gar nicht, ob sich das in Excel abbilden lässt.
Ich stelle mir eine Funktion vor wie die "Notiz" (früher Kommentar Funktion) vor.
Was meine ich damit:
Wenn man quasi eine Zelle markiert soll ein Bild eingeblendet werden, wenn die Zelle nicht mehr markiert ist soll das bild wieder verschwinden.
Warum so kompliziert, weil die Bilder entsprechend groß sind und ich die Zelle, oder Spalten nich so breit machen möchte.
Vielleicht habt ihr ja einen Tipp..
vg

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: google mal ...
27.01.2021 09:43:54
neopa
Hallo Mitko,
... nach z.B. "Excel Bild in Kommentar einfügen"
Gruß Werner
.. , - ...
AW: bitteschön owT
28.01.2021 09:20:44
neopa
Gruß Werner
.. , - ...
AW: Einblenden bei Markierung
27.01.2021 10:47:25
UweD
Hallo
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Code reinkopieren

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Pfad$, Bild$, Ext$, Zeile1%, Spalte%, Da$
Dim WsShell, intText As Integer
Set WsShell = CreateObject("WScript.Shell")
'**** Grundeinstellungen ****
Spalte = 1 '=Spalte A"
Zeile1 = 2 ' erste Zeile mit Daten
'**** Grundeinstellungen **** Ende
If Target.Column = Spalte And Target.Row >= Zeile1 And Target.Value  "" Then
Pfad = "E:\Mix\Visitenkarten Prg\" ' Bilddateien liegen hier
Ext = ".jpg" ' Endung der Bilddateien
On Error Resume Next
'Name des Bildes wird zusammengesetzt
Bild = Target
'altes Bild wird gelöscht
Me.Shapes("Bild").Delete
'Zielzelle aktivieren
'Cells(Target.Row, 5).Select
'Prüfung ob Bild zu diesem Namen vorhanden ist
Da = Dir(Pfad & Bild & Ext)
If Da = "" Then 'Bild fehlt
intText = WsShell.Popup("nicht vorhanden!!!", 2, "......", 1)
' Die 2 in der letzten Zeile gibt die Dauer der Öffnung an.
Else ' Bild vorhanden
With Me.Pictures.Insert(Pfad & Bild & Ext)
.Left = Target.Offset(0, 1).Left
.Name = "Bild"
End With
End If
End If
End Sub
Private Sub Worksheet_Deactivate()
On Error Resume Next
Me.Shapes("Bild").Delete
End Sub
Die Bilder müssen so heißen, wie der Zellinhalt. b.Z. Beispiel.jpg
Sie werden eine Spalte weiter links angezeigt.
LG UweD
Anzeige
AW: Einblenden bei Markierung
28.01.2021 08:30:01
Mirko
Vielen Dank Uwe. !!!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige