Zellen per Klick füllen

[Fanguro]

Hi zusammen, ich versuche mal mein Anliegen so gut wie möglich zu erklären: (siehe Bild im Anhang)

Ich habe einen Code-entschlüsseler gebastelt. Mein Code besteht aus 3 Stellen.
Jede Stelle steht für einen Wert. Trage ich den Code ein, wird mir angezeigt was er bedeutet. Soweit so gut...

Im Bild seht ihr, dass die Katze den Code: B1Z hat. Ich würde jetzt gerne nur die Katze anklicken können, und
der Code wird oben automatisch mit den entsprechenden Werten gefüllt.

Hintergrund ist der, das bestimmte Codes immer wieder benötigt werden. Natürlich könnte man einfach Copy &/ Paste machen,
aber dass mache ich erst, wenn dass mit dem klicken nicht geht :D

Ich hoffe jemand hat einen Tipp!

[HubertK]

Hei,

verstehe ich nicht, wozu spezifiziert du nach Farbe und Fell, wenn es sich in deiner Beschreibung so liest, als ob es nur den einen Hund mit langen Fell und brauner Farbe gibt? Am besten wäre eine Beispieldatei.

[BoskoBiati]

Hi,

erst einmal muß es eine komplette Liste geben, die alle Kombinationen zuläßt. Dann kann man mit VBA ein Doppelklick-Ereignis bauen. Ohne Datei wird das aber wohl eher nichts.

[Fanguro]

Hi, ich habe versucht ein leicht verständliches Beispiel zu wählen, dabei habe ich jetzt nicht auf die Sinnhaftigkeit geachtet ;)

Hab die Datei mal hochgeladen

[BoskoBiati]

Hi,


wo ist die Zuordnung des Codes zum Bild?

Mal mit verbesserten Formeln:


  Ex Eigenschaften.xlsx (Größe: 519,19 KB / Downloads: 9)

[Fanguro]

Hi, Danke für deine Mühe!

Der Code zum Bild? hab ich extra rot makiert in der Datei... unten rechts...

[BoskoBiati]

Hi,

wenn ich auf ein Bild klicke, wie kommt dann der Code in das rote Feld? Zauberei oder was?

[Fanguro]

Das ist meine gestellte Frage. Und nein, in anderen Programmiersprachen geht das auch ohne Zauberrei. Also naheliegend dass das excel auch irgendwie kann

[Kuwer]

Hallo,

in ein allgemeines VBA-Modul (Einfügen - Modul) kommt folgender Code:

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")
    End Select
  End If
End Sub

Die einzutragenden Werte änderst Du dann wie gewünscht.

Dann weist du jeder Grafik dieses Makro zu (Rechtsklick auf die Grafik - Makro zuweisen).

Gruß Uwe

[Fanguro]

Danke Uwe, funktionert einwandfrei! Vielen Dank!