Excel VBA, Bild aus nebenstehender Zelle kopieren wenn Zelle ausgewählt ist

[xChristianx]

Hallo Leute,

ich habe wieder ein neues Problem.
Um besser zu verdeutlichen was ich vorhabe lade ich einfach mal eine Beispieldatei hoch.

Das Makro ist total simpel.
Ich bin auf Tabellenblatt 1 und klicke einfach auf irgendeine Seriennummer.
Anschließend klicke ich auf den Pfeil "Weiter" und gelange zu Tabelle 2 und die Seriennummer wurde in das entsprechende Feld geschrieben.
Das gleiche soll jetzt mit dem dazugehörigen Bild passieren.

Wo ich jetzt nicht weiter komme ist, wie man die Zelle neben der Seriennummer kopiert, da ich lediglich auf die Seriennummer klicke. Funktioniert das mit Offset()? wenn ja wie genau?
Und wie kopiere ich dann das Bild in der Zelle neben der Seriennummer?

Code:

Sub zuTabelle2()
   If ActiveCell = "" Then
      MsgBox "Sie haben keine Seriennummer ausgewählt!" & vbNewLine & "Bitte wählen Sie bevor Sie auf 'Weiter' klicken eine Seriennummer aus."
      Exit Sub
   End If

   Selection.Copy
   Sheets("Tabelle2").Select
   Range("C2").Select
   ActiveSheet.Paste
End Sub

Schon einmal vielen Dank für eure Hilfe!

[Kuwer]

Hallo,

ich habe die Grafiken nach dem Muster "Grafik " und Seriennummer umbenannt, um dann recht einfach die richtige Grafik zu erwischen.

Sub zuTabelle2()

 If ActiveCell = "" Then

   MsgBox "Sie haben keine Seriennummer ausgewählt!" & vbNewLine & "Bitte wählen Sie bevor Sie auf 'Weiter' klicken eine Seriennummer aus."

 Else

   Sheets("Tabelle2").Range("C2").Value = ActiveCell.Value

   ActiveSheet.Shapes("Grafik " & ActiveCell.Value).Copy

   Sheets("Tabelle2").Range("B2").PasteSpecial

   Application.Goto Sheets("Tabelle2").Range("B2")

 End If

End Sub

[xChristianx]

Hi,

danke für deine Antwort. Aber leider funktioniert das nicht so wie ich mir das gedacht habe.
Ziel sollte sein:

ich Wähle die Seriennummer aus und klicke dann auf "weiter".
Dann soll die Seriennummer und das Bild kopiert werden.
Muss ich nicht den Befehl Offset() benutzen damit die daneben stehende Zelle (neben der Seriennummer) mitkopiert wird?`

Ich weiß alelrdings nicht wie ich das richtig integrieren soll.

[xChristianx]

Hi,

es geht doch, nur funktioniert das seltsamerweise nur für 3/4 Bilder.
Woran kann das liegen?

mfg

Christian

[Kuwer]

Hi,

Hi,

es geht doch, nur funktioniert das seltsamerweise nur für 3/4 Bilder.
Woran kann das liegen?

mfg

Christian

weil bei einem Bild der Name (noch) nicht passt.

[xChristianx]

Danke, habe das auch gemerkt und jetzt ein Makro noch hinzugefügt welches die Bilder automatisch mit der Seriennummer benennt, sodass alle nachträglich eingefügten Bilder funktionieren.

Danke für deine Hilfe.