Bild kopieren

Forumthread: Bild kopieren

Bild kopieren

26.02.2025 07:40:07

Thomas Hein

Hallo zusammen,
ich möchte folgendes machen:
in A1 steht ein "Text"
wenn ich auf "Text" klicke müsste eine Bilddatei die sich in B1 befindet in C1 erscheinen / kopiert werden
gibt es da eine Lösung
Danke

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bild kopieren

26.02.2025 08:41:07

MCO
AW: Bild kopieren

26.02.2025 09:03:02

Thomas Hein
AW: Bild kopieren

26.02.2025 09:26:51

MCO
AW: Bild kopieren

26.02.2025 09:31:32

Thomas Hein
AW: Bild kopieren

26.02.2025 09:54:14

MCO
AW: Bild kopieren

26.02.2025 10:10:54

Thomas Hein
AW: Bild kopieren

26.02.2025 10:20:15

Volti

AW: Bild kopieren

26.02.2025 08:41:07

MCO

Moin!

Ich hab es mal genauso umgesetzt, wie du geschrieben hast:

Folgendes ins Worksheet-Modul:



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 And Target.Value = "Text" Then

        bild_kopieren

    End If

End Sub

Das in ein normales Modul:

Sub bild_kopieren()



    For Each shp In ActiveSheet.Shapes

        'Debug.Print shp.TopLeftCell.Address(0, 0)

        If shp.TopLeftCell.Address(0, 0) = ActiveCell.Offset(0, 1).Address(0, 0) Then

            shp.Copy

            ActiveCell.Offset(0, 2).Select

            ActiveSheet.Paste

        End If

    Next shp

End Sub

Gruß, MCO

AW: Bild kopieren

26.02.2025 09:03:02

Thomas Hein

Danke, aber leider bin ich in VBA nicht ganz so gut, muß ich da noch Angaben ergänzen ?

AW: Bild kopieren

26.02.2025 09:26:51

MCO

Naja, wenn dein Text nicht "Text" sondern "Uwe" heißt, dann musst du das im Code anpassen.
Ansonsten, so wie ich es geschrieben hab...

Gruß, MCO

AW: Bild kopieren

26.02.2025 09:31:32

Thomas Hein

sorry aber es steht doch nirgends ein Verweis A1 / B1 / C1
aber trotzdem Danke

AW: Bild kopieren

26.02.2025 09:54:14

MCO

Den brauchst du auch nicht.

Der Code läuft bei klicken in Spalte 1 (target.column = 1), also "A", die Zeile ist dabei unabhängig.

Daraufhin werden alle bilder durchgegangen und geprüft:
Steht das bild in derselben zeile in spalte "B" (offset(0,1)) dann wird es kopiert nach Spalte "C" derselben Zeile (offset (0,2))

Damit sind die Verweise alle relativ und nicht absolut.

Gruß, MCO

AW: Bild kopieren

26.02.2025 10:10:54

Thomas Hein

Danke
jetzt habe ich es kapiert.
ABER ich muss auf A1 "Text" und dann auf B1 (das Bild) klicken daß dann nach C1 (das Bild) kopiert wird ?
Verweise absolut wäre besser, da ich viele Bilder an viele unterschiedliche Zellen kopieren müsste
VG Thomes

AW: Bild kopieren

26.02.2025 10:20:15

Volti

Hallo,
Ein Tipp: Da fehlt m.E. auch noch eine Vorhanden-Prüfung oder Löschen, sonst werden immer wieder weitere Bilder kopiert, wenn man mehrfach klickt.
Einfach zu bewerkstelligen wenn man das kopierte Bild eindeutig umbenennt, z.B. so wie die Zelle heißt.
Gruß KH

Forumthread: Bild kopieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread