Hallo Julian,
bei Fragen zu einem bestehenden Code solltest du immer den ganzen Code posten (es geht um diesen [url=
https://supportnet.de/t/2510656]Thread[/url]), da man aus Bruchstücken oft nicht viel schließen kann.
Um die Spalten zu erweitern musst du nur die folgende Zeile ändern:
[code]Set rngSpalte = .Range("A:A,C:C,E:E,G:G,I:I,K:K")[/code]
in
[code]Set rngSpalte = .Range("A:A,C:C,E:E,G:G,I:I,K:K,M.M,O:O")[/code]
Hier werden jedoch nur die Spaltenbreiten formatiert. Das hat noch nichts mit dem Einfügen von Bildern zu tun.
Wenn du Bilder in weitere Spalten einfügen willst, dann musst du im Code auch die folgende Zeile ändern:
[code]If lngZaehler > 1 Then 'ansonsten Einfügespalte neu festlegen
lngSpalte = lngSpalte + 2
If lngSpalte > 11 Then lngSpalte = 1
End If[/code]
Hier wird die Variable für Spalte auf 1 (= Spalte A) zurückgesetzt, wenn die Variable größer als 11 (= Spalte K) ist.
Willst du auch noch in die Spalten M und O Bilder einfügen, so musst die 11 durch 15 ersetzen.
Gruß
M.O.