HERBERS Excel-Forum - die Beispiele

Thema: Übernahme einer Grafik gem. SVERWEIS

Home

Gruppe

Grafik

Problem

Bei Eingabe einer Artikel-Nummer in Zelle D2 wird ausser der Benennung in Zelle D4 auch das zugehörige Symbol aus Spalte C der Quelltabelle übernommen.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle3

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim shp As Shape
   Dim sAdr As String
   If Target.Address <> "$D$2" Then Exit Sub
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   For Each shp In ActiveSheet.Shapes
      shp.Delete
   Next shp
   If IsEmpty(Target) Then
      Range("D4").ClearContents
      GoTo ERRORHANDLER
   End If
   With Worksheets("Daten")
      If IsError(Application.Match(Target.Value, .Range("ArtNr"), 0)) Then
         Beep
         Range("D4").ClearContents
         MsgBox "Artikel-Nr. " & Target.Value & " wurde nicht gefunden!"
         GoTo ERRORHANDLER
      End If
      Range("D4").Value = WorksheetFunction.VLookup(Target.Value, .Range("Artikel"), 2, 0)
      sAdr = CStr(WorksheetFunction.Match(Target.Value, .Range("ArtNr"), 0) + 1)
      sAdr = Cells(CInt(sAdr), 3).Address
      For Each shp In .Shapes
         If shp.TopLeftCell.Address = sAdr Then
            shp.Copy
            Range("D6").Select
            ActiveSheet.Paste
            Range("D2").Select
         End If
      Next shp
   End With
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Grafik und Grafikimport

Jahresgrafik Grafik - Linie nach unten, Kriterien links
Grafik auf Position bringen Viele Grafiken mit gleicher Größe einfügen
Excel Grafiken nur schwarz/weiss Grafik drucken
Grafik nach Change in Exceltabelle laden Bereich als Grafik speichern
Grafiken kopieren Text und Grafik in Fusszeile
Grafik in der Kopfzeile - OHNE PFADANGABE Grafik, Datenbeschriftung
Linie in einer Grafik ansprechen Grafik positionieren
Linien-Säulen auf zwei Achsen - Grafik Grafik in Zelle einfügen, wie?
mehrere Grafiken aus derselben Pivot Grafik anzeigen - evtl. Reihenfolge ändern?
Grafikobjekt nach Zelleingabe anpassen Grafik in Zellen - Sparklines
Grafik Option Explicit zusweisen Grafik bei Nullen nicht weiterführen
Makro bei Rechtsklick auf Grafik Kontextmenü Grafik
Grafikgröße nach Hyperlink festlegen Grafik Drehmoment Leistung
Grafiken mit Säuledarstellung Dynamische Grafik/Diagramm
Beschriftung bei Bubble-Grafik gestapelte Säulengrafik
Dynamischer Datenbereich bei Grafiken Grafik
Schwellenwert in Excel-Grafik einfügen? wechselnde grafiken abhängig von wert einblenden
Grafik-Spezial Vorschaugrafik
Grafikformat Grafik in Tabelle, abhängig von Zellinhalt
Grafikprogramm über Excel legen Grafik in XLS-Kopfzeile im PPT darstellen
Grafiken aus derselben Pivot Grafik mit selektierten Daten
veränderbare Grafik je nach Datenmenge Formatier. einer Pivot Grafik wird immer Rückges.
Grafik immer aktualisieren mehrere Grafiken aus einer Pivot
verzogene Grafik mit VBA zurücksetzen bestimmte Grafik in Zelle nach löschen
3D-Grafik X-Achsenbeschriftung Grafik beim Öffnen einer Datei