Zellen per Klick füllen

[Kuwer]

Hallo Fanguro,

bitte im Forum bleiben!

Den Namen einer Grafik sieht man links oben im Adressfeld, wenn sie markiert ist. Sollte ein Makro zugewiesen sein, einfach mit der rechten Maustaste markieren. Da kann man den Namen auch direkt ändern. Als Hilfe habe ich den Code ergänzt, so dass der Name der Grafik im Direktfenster und auch in einer Messagebox angezeigt wird, wenn er in keinem Case vorkommt.

Code:

Sub SymbolKlick()
  Dim varCaller As Variant
  varCaller = Application.Caller
  If Not IsError(varCaller) Then
    Select Case varCaller
      Case "Grafik 33"
        Range("C4:J4").Value = Split("II 2 G Ex o IIC T150°C Gc")
      Case "Grafik 34"
        Range("C4:J4").Value = Split("II 2 G Ex o IIC T150°C Gc")
      Case "Grafik 35"
        Range("C4:J4").Value = Split("II 2 G Ex o IIC T150°C Gc")
      Case "Grafik 36"
        Range("C4:J4").Value = Split("II 2 G Ex o IIC T150°C Gc")
      Case "Grafik 37"
        Range("C4:J4").Value = Split("II 2 G Ex o IIC T150°C Gc")
      Case "Grafik 38"
        Range("C4:J4").Value = Split("II 2 G Ex o IIC T150°C Gc")
      Case Else
        Debug.Print varCaller
        MsgBox varCaller
    End Select
  End If
End Sub

Gruß Uwe