Excel: Bei Auswahl einer Zelle in Spalte A, Bild in Spalte C anzeigen. Bilder befinden sich in Tabelle 2.

Um in Excel ein Bild in Spalte C anzuzeigen, wenn eine Nummer in Spalte A aktiviert wird, kannst du die folgende Vorgehensweise nutzen:

1. **Bilder in Tabelle 2 einfügen**: Stelle sicher, dass die Bilder in Tabelle 2 eingefügt sind und dass sie benannt sind (z.B. Bild1, Bild2, usw.), entsprechend den Nummern in Spalte A.

2. **VBA-Editor öffnen**: Drücke `ALT + F11`, um den VBA-Editor zu öffnen.

3. **Neues Modul einfügen**: Klicke mit der rechten Maustaste auf "VBAProject (deine Arbeitsmappe)" und wähle "Einfügen" > "Modul".

4. **Code einfügen**: Füge den folgenden Code in das Modul ein:

```vba
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim pic As Picture
Dim picName As String

Set ws1 = ThisWorkbook.Sheets("Tabelle1") ' Ändere den Namen entsprechend
Set ws2 = ThisWorkbook.Sheets("Tabelle2") ' Ändere den Namen entsprechend

If Not Intersect(Target, ws1.Range("A:A")) Is Nothing Then
Application.EnableEvents = False
ws1.Range("C:C").ClearContents ' Löscht vorherige Bilder

For Each pic In ws2.Pictures
pic.Visible = False ' Versteckt alle Bilder
Next pic

If IsNumeric(Target.Value) Then
picName = "Bild" & Target.Value ' Angenommene Benennung der Bilder
On Error Resume Next
ws2.Pictures(picName).Visible = True ' Zeigt das entsprechende Bild an
On Error GoTo 0
End If

Application.EnableEvents = True
End If
End Sub
```

5. **Speichern und Schließen**: Speichere die Änderungen und schließe den VBA-Editor.

6. **Testen**: Gehe zurück zu Tabelle 1 und gib eine Nummer in Spalte A ein. Das entsprechende Bild aus Tabelle 2 sollte in Spalte C angezeigt werden.

Achte darauf, dass die Bildnamen in Tabelle 2 mit den Nummern in Spalte A übereinstimmen.