Hallo zusammen,

mein Kopf explodiert bald.
Ich bekomme es trotz tagelanger Suche und Tests nicht hin und habe mich nun durchgerungen einen eigenen Beitrag zu schreiben.

Über ein Makro setze ich in Excel Bilder aus einem Ordner ein.
Den Dateinamen der Bilder erzeuge ich über Formeln in Excel-Zellen.

Mein Ziel ist es nun das Einfügen mehrfach (101 mal) zu wiederholen.
Der jeweilige Dateiname des Bildes und der Einfügeort wandern aber mit jedem Bild 27 Spalten nach rechts.
Muss ich nun 101 Einträge in meinem Makro setzen mit unterschiedlichen Spalte-Werten?
Oder gibt  es die Möglichgkeit, 101x den Einfügen-Schritt zu wiederholen, aber jedesmal den Spaltenwert um 27 zu erhöhen?

Ich hoffe mein Anliegen ist halbwegs zu verstehen und jemand kann mir weiterhelfen.

Hier mein bisher genutzer Code:

Public Sub Gebietskarten_aktualisieren()

    Const PICTURE_HEIGHT = 195
    Const PICTURE_WIDTH = 298.6

    With Worksheets("Kartendruck")

        Pictures.Delete
                
        Set objShape = .Shapes.AddPicture(Filename:=Cells(33, 1).Value, _
            LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
            Left:=.Cells(1, 4).Left, Top:=.Cells(4, 1).Top, _
            Width:=PICTURE_WIDTH, Height:=PICTURE_HEIGHT)

        objShape.Name = "Bild_01"
        
        Set objShape = .Shapes.AddPicture(Filename:=Cells(33, 24).Value, _
            LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
            Left:=.Cells(1, 27).Left, Top:=.Cells(4, 1).Top, _
            Width:=PICTURE_WIDTH, Height:=PICTURE_HEIGHT)

        objShape.Name = "Bild_02"
        
        
    End With
End Sub

Habt schon mal vielen Dank!

Lieben Gruß

Micha