Hallo liebe VBA Experten, ich bin bisher nur VBA Laie und bräuchte die Hilfe von euch =)

Problem 1: ich habe in Excel eine Tabelle, in dieser in der Spalte "K" sich Dropdownleisten erstellt worden sind , wo man "Ja" oder "Nein" auswählen kann, diese erstrecken sich von "K7" bis "K62" und werden mit einem Command Button ausgeführt.

Nun möchte, falls angenommen in der Zelle "K7" = "Ja" gewählt wurde in der gleichen Zeile bei "AN7" ein Bild einfügen.

Falls bei "K8" = "Ja" gewählt wurde sollte ein Bild in "AU8" eingefügt werden... also sozusagen sollten die Bilder eine abwärtsgehende Treppenform aufzeigen... Ich hab schon mal ein Sub geschrieben , aber für mich ist das Hauptproblem, wie man diese 2 For-Schleifen so schaltet, das es zu dieser abwärtsgehenden Treppenform kommt- vielleicht gibts ja auch noch andere und leichtere Lösungswege?

Sub Bildventilator()

Dim Pfad As String Pfad = "C:\Users\User\Desktop\ZLA Module\" Dim pic As Picture

Dim rng As Range

Dim j As Integer

Dim i As Integer

For i = 7 To 62 Step 1

For j = 40 To 425 Step 7

If Worksheets("Übersicht").Cells(i, 11).Value = "Ja" Then

Set rng = Sheets("Übersicht").Cells(i, j)

Set pic = Worksheets("Übersicht").Pictures.Insert(Pfad + "Ventilator.jpg")

pic.Top = Cells(i, j).Top

pic.Left = Cells(i, j).Left

pic.Height = Cells(i, j).Height

pic.Width = Cells(i, j).Width

pic.Placement = xlMoveAndSize

End If

Next

Next

End Sub

Problem 2: mit welchem Vba Code kann ich erreichen das man alle Bilder löschen kann, auf dem Sheet "Übersicht" , ohne das es den Command Button löscht, habs mit type = 13 probiert, jedoch klappt das leider nicht... =/ Wäre für eure Hilfe sehr sehr dankbar =) Liebe Grüße Simon