Office: (Office 2013) Makro erstellen

Hallo,

Ich möchte, dass in meiner Tabelle ein Bild in Spalte T angezeigt wird. Der Pfad für das Bild steht immer in Spalte H.
Ich habe bereits einen Befehl gefunden. Aber ich weiß nicht, wie ich den Befehl so eingebe, dass er es für jede Zeile genauso macht.

 

Hola,

du erwartest jetzt aber nicht das das jemand alles abtippt, oder?

Gruß,
steve1da

 

Hi,

aus deinem Bild kann man leider absolut nichts entnehmen da die Auflösung zu schlecht ist - poste den Code doch einfach im Beitrag. Oder besser noch lade anstelle des Bildes eine Beispielmappe hoch.

Was verstehst du unter "dass er es für jede Zeile genauso macht"? Wie wird denn festgelegt, für welche Zeile es gelten soll? Oder soll es in einer Schleife für alle Zeilen realisiert werden?

Bis später,
Karin

 

Vielen Dank für die schnellen Antworten.

Das ist der bisherige Befehl:

Option Explicit
Sub Test()
Dim objPicture As Picture
On Error GoTo Fin
With Tabelle1.Cells(7, 20) '
Set objPicture = .Parent.Pictures.Insert(Tabelle1.Cells(7, 8).Value)
objPicture.Top = .Top
objPicture.Left = .Left
objPicture.Height = 150
objPicture.Width = 150
End With
Fin:
If Err.Number <> 0 Then MsgBox Err.Number & " " & Err.Description
Set objPicture = Nothing
End Sub

Das auf dem Bild ist Beispielmappe.
Ich bin leider überhaupt nicht fit in Makros.
Mein Problem ist vllt. komplizierter formuliert als es ist.
Was ich habe ist eine Tabelle mit Produktdaten und einem Pfad, welche zu einem Verzeichnis auf unserem Server verweist auf dem Bilder zu den Produkten gespeichert sind.
Ich möchte, dass in jeder Zeile zu dem entsprechendem Produkt am Ende das entsprechende Bild angezeigt wird.
Dafür bräuchte ich ein Makro, damit ich nicht das oben beschriebene Makro in jede Zeile separat einfügen und manuell die Zeile jedes Mal im Befehl verändern muss.

Ich hoffe das ist halbwegs verständlich.

 

vielen Dank für die Antworten.
Das ist nur eine Beispiel Mappe.
Ich bin leider nicht sehr fit bei Makros.
Das Problem ist wahrscheinlich komplizierter beschrieben als es ist.

Das ist der bisherige Befehl:

Option Explicit
Sub Test()
Dim objPicture As Picture
On Error GoTo Fin
With Tabelle1.Cells(7, 20) '
Set objPicture = .Parent.Pictures.Insert(Tabelle1.Cells(7, 8).Value)
objPicture.Top = .Top
objPicture.Left = .Left
objPicture.Height = 150
objPicture.Width = 150
End With
Fin:
If Err.Number <> 0 Then MsgBox Err.Number & " " & Err.Description
Set objPicture = Nothing
End Sub

Ich habe eine Tabelle mit Produktdaten. In der Spalte H ist jeweils für jedes Produkt der Pfad zu unserem Verzeichnis auf dem Server hinterlegt.
Ich möchte, dass jedes Produkt das im Pfad beschriebene Bild in Spalte T angezeigt wird.

Das bisherige Makro macht das nur für eine Zeile. Wenn ich es für die nächsten Zeilen möchte, müsste ich es jedes mal kopieren und das Makro manuell anpassen für die jeweilige Zeile.

Hammer wäre ein Makro, dass es automatisch für jede Zeile macht

 

Wir sind hier nicht in einem Bildbearbeitungsforum sondern einem Excel-Froum und Beispielmappe bedeutet deshalb auch genau das: Beispielmappe und nicht Scrreenshot.

Benutze eine For-Next-Schleife und ersetze in deinem Code die Ziffer 7 durch die Schleifenvariable.

Bis später,
Karin

 

Hola,

Datei war da, musste aber freigeschaltet werden. Hab ich grad erledigt.

Gruß,
steve1da