Zelle (Bild) in Abhängigkeit löschen

Guten Tag,
häng mal wieder fest. Ich möchte, wenn ich den Kunden in der DB Zeile 10 lösche, auch die dazugehörige Zelle mit Bildinhalt löschen.
Beispiel: In Zeile 10 der DB (in Excel z.b. Zeile 18) den Inhalt (Bild) in dieser Zeile in Spalte W ebenfalls löschen. Siehe Abschnitt "logo löschen".
Wie bekomme ich das hin?


Sub KundenAnlegen_DBEingabe()
'Kunden.xlsm...Verwaltung der Kundendaten
'Call Eingabe_Unprotect
'Tabelle einlesen
Dim tbl As ListObject
Set tbl = tb_Datenbank.ListObjects(1)
With tb_Eingabeformular
'Spalten leeren
.Columns("D").ClearContents
.Columns("H").ClearContents
.Columns("L").ClearContents
.Columns("P").ClearContents
'Kunden-ID einfügen
.Range("D11").Value = tbl.DataBodyRange(tbl.DataBodyRange.Rows.Count, 1).Value + 1
'Navigieren auf das Eingabefeld
.Shapes.Range(Array("txt_Anlegen", "img_Anlegen")).Visible = True
.Shapes.Range(Array("txt_Bearbeiten", "img_Bearbeiten")).Visible = False
.Select
'logo löschen
Dim picBild As Picture
For Each picBild In ActiveSheet.Pictures
If Not Intersect(picBild.TopLeftCell, Range("O28")) Is Nothing Then picBild.Delete
Next picBild
'Zelle auswählen
.Range("D15").Select
End With
'Call Eingabe_Protect
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Yal,
ich bins schon wieder... Du weißt schon.ich bin hier im Forum aktuell ja nochmal vertreten.
Wie schon erwähnt bin ich Laie und versuche mit gerade mit VBA zu befassen. Die Codes sind aus dem Internet kopiert.
Was ja größtenteils auch funktioniert und das meiste kann ich zumindest logisch nachvollziehen. Aber hier z.B. reichen meine Kenntnisse noch nicht aus.
Ich versuche es nochmal mit meinen schmalen Kenntnissen zu erklären.
Ich habe eine Excel Tabelle (Tabellenname="Datenbank") in der Kundendaten als Datenbank abgelegt sind. Mittels Makros kann ich neue Kunden anlegen, bearbeiten und löschen. Das funktioniert auch alles Bestens. Zum Bearbeiten der Kundendatensätze gibt ein Eingabeformular "Eingabe" über welches dann die Änderungen etc. gemacht werden können.
Nun mein Problem.
Mit der Löschfunktion werden alle Felder gelöscht außer ein von mir erstelltes Feld in dem eine Grafik eingefügt ist. Das ist eigentlich leer. Trotzdem ist dort eine Grafik angedockt. Diese Grafik soll ebenfalls, wenn der Kundendatensatz gelöscht wird, mit gelöscht werden.
Ich habe zum hoffentlich besseren Verständnis, mal eine Skizze hochgeladen.
https://www.herber.de/bbs/user/156744.xlsx
Grüße
Günther

Dim Antwort Dim picBild As Picture If vbYes = MsgBox("Soll der Kunde wirklich gelöscht werden?", vbYesNo + vbQuestion, "Kunde wirklich löschen?") Then 'Feld Logo im Tabellenblatt Datenbank löschen For Each picBild In ActiveSheet.Pictures If picBild.TopLeftCell.Row = ActiveCell.Row Then picBild.Delete: Exit For Next picBild ActiveCell.EntireRow.Delete End If

Beliebteste Forumthreads (12 Monate)

Zelle (Bild) in Abhängigkeit löschen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread