Forums Neueste Beiträge
 

bedingt Bild in Zelle einfügen

14/12/2007 - 11:16 von Johnny Hartmannsgruber | Report spam
hi leute,

ich habe folgende erausforderung:

Wenn in den zellen der spalte B nummern des formates 2000XXX eingefügt
werden, hàtte ich gerne in der zelle (unterhalb der nummer) ein kleines
Bild(logo) eingefügt.

Hintergrund: 2000er nummern sind bei uns service-artikel, dementsprechend
würde ich gerne ein service-logo einfügen

geht sowas?

Danke schonmal für eure Hilfe, Johnny
 

Lesen sie die antworten

#1 Alexander Wolff
14/12/2007 - 12:10 | Warnen spam
Wenn in den zellen der spalte B nummern des formates 2000XXX eingefügt
werden, hàtte ich gerne in der zelle (unterhalb der nummer) ein
kleines Bild(logo) eingefügt.



Private Sub Worksheet_Change(ByVal Target As Range)
If Mid(Target.Address, 2, 1) = "B" Then
Worksheets("Tabelle1").Shapes("Logo").OLEFormat.Object.Formula = _
"Logo" & Left(Target.Value, 4)
Worksheets("Tabelle1").Shapes("Logo").Cut
ActiveCell.Offset(1, 0).PasteSpecial
Selection.ShapeRange.Name = "Logo"
ActiveCell.Offset(-1, 0).Select
End If
End Sub

Dieser Code benötigt folgendes:

1) Füge irgnedwo ein Bild ein (A1: Alt-Umschalt B Bild kopieren,
Alt-Umschalt B Bild einfügen)
2) Überschreibe (links oben) "Bild 1" mit "Logo"
3) Lege einen Bereich im Blatt fest, der "Logo2000" heißt. Schiebe darauf
Dein Bild.
4) Nun wird bei Eingaben von 2000... dieses Bild unter der Zelle gezeigt

Nicht enthalten:

a) Bild wird nicht weggeràumt bei anderen Eingaben
b) Fehlerbehandlung bezüglich gültiger "Logo" Namen

Bemerkung: Schnell und schmutzig ... geht sicher auch schicker!
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen