Option Explicit

Sub Fehler_1_bei_grafik_einfügen()
 
'Anzeige Bild 1, wenn in Zelle A1 der Wert 1 steht

'If ActiveSheet.Range("LED-Rechner!C5").Value = 1 Then '( zeigt mir hier den Fehler)
If Sheets("LED-Rechner").Range("C5").Value = 1 Then
   Sheets("Berechnung").Activate
   Range("B4").Select
   
   'ActiveSheet.Pictures.Insert("F:\Diodenrechner\LED01.gif").Select

Else

   'Anzeige Bild 2, wenn in der Zelle A1 ein anderer Wert als 1 steht
   'Range("Berechnung!B4").Select  '( zeigt mir hier AUCH den Fehler, WENN )
   Sheets("Berechnung").Activate
   Range("B4").Select
   
   'ActiveSheet.Pictures.Insert("C:\Diodenrechner\LED02.gif").Select

End If
 
End Sub


Sub Fehler_2_bei_grafik_einfügen()
Dim i As Long

'Anzeige Bild 1, wenn in Zelle A1 der Wert 1 steht

If Sheets("LED-Rechner").Range("C5").Value = 1 Then
   Sheets("Berechnung").Activate
   Range("B4").Select
   
   'Test
   ActiveSheet.Pictures.Insert ("F:\Diodenrechner\LED01.gif")
Else

   'Anzeige Bild 2, wenn in der Zelle A1 ein anderer Wert als 1 steht
   
   Sheets("Berechnung").Activate
   Range("B4").Select
   
   ActiveSheet.Pictures.Insert ("C:\Diodenrechner\LED02.gif")

End If
 
i = ActiveSheet.Shapes.Count
Call MsgBox(CStr(i) & " Bilder in der aktiven Tabelle: ", vbInformation, "Bilder vorhanden")

' mit jedem Schritt werden die Bilder mehr!

End Sub

Sub Wenn_schon_mit_AddPicture()

Const PFAD1 As String = "F:\Diodenrechner\LED01.gif"
Const PFAD2 As String = "C:\Diodenrechner\LED02.gif"
Dim oShp As Excel.Shape
Dim strPath As String

strPath = PFAD1
If Sheets("LED-Rechner").Range("C5").Value <> 1 Then _
   strPath = PFAD2

With Sheets("Berechnung")
   For Each oShp In .Shapes
      If oShp.TopLeftCell.Address = "$B$4" Then
         oShp.Delete
         Exit For
      End If
   Next oShp

   .Shapes.AddPicture strPath, False, True, .Range("$B$4").Left, _
      .Range("$B$4").Top, 80, 80
End With

End Sub