Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Grafik aus Zelle nach Änderung einfügen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Grafik aus Zelle nach Änderung einfügen (1483 mal gelesen)
hotstaks2005
Mitglied
Elektriker


Sehen Sie sich das Profil von hotstaks2005 an!   Senden Sie eine Private Message an hotstaks2005  Schreiben Sie einen Gästebucheintrag für hotstaks2005

Beiträge: 142
Registriert: 03.07.2008

EPLAN 5.7
Office 2003

erstellt am: 18. Nov. 2009 14:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


test1.xls.txt

 
Hi Forum - komme mal wieder nicht weiter!

Diesen Code:

Zitat:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim shp As Shape
    Dim x As Double, y As Double
   
    x = 340 'x-Koordinate für Position des Bildes
    y = 257  'y-Koordinate für Position des Bildes
   
If Target = Range("A1") Then    'Bei Änderung im Feld A1 wird die Grafik eingefügt
        For Each shp In ActiveSheet.Shapes
            If shp.Type = msoPicture Then shp.Delete    'löscht alle  Grafiken aus dem Arbeitsblatt !!!
        Next
        On Error GoTo Fehler
        ActiveSheet.Pictures.Insert (Range("B1").Value & Range("C1").Value & ".jpg")    'Grafik wird eingefügt in R29 steht der Pfad 'und in R27 der  Dateiname
        For Each shp In ActiveSheet.Shapes
            If shp.Type = msoPicture Then
                shp.Left = 640#
                shp.Top = 300#
              shp.LockAspectRatio = msoTrue ' msoFalse Zur Skalierung, Seitenverhältnis nicht beibehalten
              shp.Height = 150  ' Grafik wird skaliert
              shp.Width = 150
            End If
        Next shp
    End If
   
   
Exit Sub
Fehler:
    MsgBox "Bild " & Range("A1").Value & ".jpg im Pfad " & Range("B1").Value & " nicht vorhanden"
   
   
End Sub

ist aus einem Excel-Forum und funzt grundsätzlich.

In meinem Beispiel möchte ich die Zelle "A1" über Listenauswahl > Bestellbezeichnung aktualisieren bzw. ändern lassen. Funzt soweit auch; nur das Einfügen der Grafik funktioniert nicht da der Code anscheinend die Aktualisierung nicht mit bekommt.

Wann wird die Zelle "A1" aktualisiert? Bzw. wie bekomme ich es hin das der Code auf eine Änderung der Listenauswahl auch die Grafik der entsprechenden Bestellbezeichnung anzeigt?

Danke Wolfgang

------------------
Immer wieder neu lernen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Paulchen
Mitglied
Bauing./SW-Entwickler


Sehen Sie sich das Profil von Paulchen an!   Senden Sie eine Private Message an Paulchen  Schreiben Sie einen Gästebucheintrag für Paulchen

Beiträge: 1227
Registriert: 19.08.2004

Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice

erstellt am: 18. Nov. 2009 14:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für hotstaks2005 10 Unities + Antwort hilfreich

Mahlzeit,
Zitat:
Wann wird die Zelle "A1" aktualisiert?
Hier immer, wenn sich C3 ändert - und C3 ändert sich, wenn Du das Auswahlfeld in B8-D8 änderst. Dann wird der Code ausgeführt, da sich A1 ändert und der Code in Private Sub Worksheet_Change(ByVal Target As Range) steht und A1 geprüft wird.

Zitat:
ActiveSheet.Pictures.Insert (Range("B1").Value & Range("C1").Value & ".jpg")    'Grafik wird eingefügt in R29 steht der Pfad 'und in R27 der  Dateiname
Vermutlich wird Pfad + Name erwartet. Excel weiß nicht, welche Grafik es verwenden soll - Du musst es ihm schon mitteilen  .

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

hotstaks2005
Mitglied
Elektriker


Sehen Sie sich das Profil von hotstaks2005 an!   Senden Sie eine Private Message an hotstaks2005  Schreiben Sie einen Gästebucheintrag für hotstaks2005

Beiträge: 142
Registriert: 03.07.2008

EPLAN 5.7
Office 2003

erstellt am: 18. Nov. 2009 14:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke für deine Rückmeldung

.....Hier immer, wenn sich C3 ändert - und C3 ändert sich, wenn Du das Auswahlfeld in B8-D8 änderst. Dann wird der Code ausgeführt, da sich A1 ändert und der Code in Private Sub Worksheet_Change(ByVal Target As Range) steht und A1 geprüft wird....

Dachte ich auch - aber wenn ich über die Listenauswahl das Feld ändere passiert nichts!
Ändere ich händisch was; z. B. das Feld "B8-D8" eine direkte Dateneingabe mache also den Sverweis raus und die Bestellbezeichnung "1SBL 181 001 R8010" direkt eingebe wird die Grafik angezeigt und bei Eingabe einer anderen Bestellbez. ändert sich auch die Grafik.


.....ActiveSheet.Pictures.Insert (Range("B1").Value & Range("C1").Value & ".jpg")    'Grafik wird eingefügt in R29 steht der Pfad 'und in R27 der  Dateiname
Vermutlich wird Pfad + Name erwartet. Excel weiß nicht, welche Grafik es verwenden soll - Du musst es ihm schon mitteilen .....

Pfad und Name steht drin in "B1" und "C1" und die Bilder sind auch im Verzeichnis vorhanden.

Grüße Wolfgang

------------------
Immer wieder neu lernen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Paulchen
Mitglied
Bauing./SW-Entwickler


Sehen Sie sich das Profil von Paulchen an!   Senden Sie eine Private Message an Paulchen  Schreiben Sie einen Gästebucheintrag für Paulchen

Beiträge: 1227
Registriert: 19.08.2004

Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice

erstellt am: 18. Nov. 2009 14:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für hotstaks2005 10 Unities + Antwort hilfreich

Hallo nochmal, ich meinte natürlich C13 und nicht C3 .
Zitat:
Dachte ich auch - aber wenn ich über die Listenauswahl das Feld ändere passiert nichts!
Bei mir tut ers: Ändere ich die Auswahl-Liste, ändert sich C13, ändert sich A1. Ist Dein SVERWEIS futsch bzw. spuckt er in C13 immer das gleiche aus, wenn Du ein Element der Liste auswählst (KEINE Handeingabe!)?

Vielleicht hilft Dir dieser hier - ohne VBA - weiter? (Suche nach 'bild versteck' hier im Forum...)

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

hotstaks2005
Mitglied
Elektriker


Sehen Sie sich das Profil von hotstaks2005 an!   Senden Sie eine Private Message an hotstaks2005  Schreiben Sie einen Gästebucheintrag für hotstaks2005

Beiträge: 142
Registriert: 03.07.2008

EPLAN 5.7
Office 2003

erstellt am: 18. Nov. 2009 15:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi

Der Sverweis in Zelle "C13" funzt einwandfrei; er führt auch zur Änderung der Zelle "A1"! Nur erfolgt da keine Abfrage des Codes warum auch immer. Wenn kein Bild vorhanden ist sollte ja eine Fehlermeldung kommen - diese Meldung müsste bei dir kommen da du diese Bilder nicht hast. Gib doch einmal in "C13" eine Bestellbezeichnung per Hand ein und schau mal was da passiert.

Grüße Wolfgang

------------------
Immer wieder neu lernen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Paulchen
Mitglied
Bauing./SW-Entwickler


Sehen Sie sich das Profil von Paulchen an!   Senden Sie eine Private Message an Paulchen  Schreiben Sie einen Gästebucheintrag für Paulchen

Beiträge: 1227
Registriert: 19.08.2004

Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice

erstellt am: 18. Nov. 2009 15:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für hotstaks2005 10 Unities + Antwort hilfreich

Mal was ganz anderes...

Probier mal bitte folgendes (ungetestet) aus:

Code:
If Target.Address = Range("A1").Address Then

Fehlermeldung hatte ich bisher keine.

[Edit: Haltepunkt bei obiger Zeile zeigt, das das Ziel (Target) die Adresse "$B$8" hat. Die musst Du wohl prüfen, nicht A1. /Edit]

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

[Diese Nachricht wurde von Paulchen am 18. Nov. 2009 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

hotstaks2005
Mitglied
Elektriker


Sehen Sie sich das Profil von hotstaks2005 an!   Senden Sie eine Private Message an hotstaks2005  Schreiben Sie einen Gästebucheintrag für hotstaks2005

Beiträge: 142
Registriert: 03.07.2008

EPLAN 5.7
Office 2003

erstellt am: 18. Nov. 2009 15:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi Paulchen

Behalte ich das bei:

If Target = Range("A1") Then    'Bei Änderung im Feld A1 wird die Grafik eingefügt

wird mir beim Haltepunkt der richtige Wert angezeigt - sollte also so passen.

Nachfrage: Kommt denn bei dir die entsprechende Meldung?
Fehler:
    MsgBox "Bild " & Range("A1").Value & ".jpg im Pfad " & Range("B1").Value & " nicht vorhanden"


Grüße Wolfgang

Nachtrag: Alles schon durchsucht ...
Vielleicht hilft Dir dieser hier - ohne VBA - weiter? (Suche nach 'bild versteck' hier im Forum...)


------------------
Immer wieder neu lernen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Paulchen
Mitglied
Bauing./SW-Entwickler


Sehen Sie sich das Profil von Paulchen an!   Senden Sie eine Private Message an Paulchen  Schreiben Sie einen Gästebucheintrag für Paulchen

Beiträge: 1227
Registriert: 19.08.2004

Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice

erstellt am: 18. Nov. 2009 16:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für hotstaks2005 10 Unities + Antwort hilfreich

Ja, bei mir kommt die Fehlermeldung - mit Target.Address = Range("B8").Address... Das - und nur das - ist IMHO korrekt.
Zitat:
If Target = Range("A1") Then    'Bei Änderung im Feld A1 wird die Grafik eingefügt

wird mir beim Haltepunkt der richtige Wert angezeigt - sollte also so passen.


Nein. Der Default-Wert von Range() ist .Value, also der enthaltene Wert der Zelle/des Bereiches. Ohne das .Address passiert folgendes:

Es wird geprüft, ob Target.Value = Range("A1").Value. Das ist zur Laufzeit nicht erfüllt, da A1 noch ungleich B8 --> die if-Abfrage wird übersprungen. Jedes Mal. Wahrscheinlich wird A1 erst so richtig mit B8 via C13 gleichgesetzt, wenn die Sub längst durch ist.

Target = Range("A1") oder auch
Target.Value = Range("A1").Value

ergibt zur Laufzeit

ABB | AL 16-30-10 | 24 VDC | 17 A | 17 A = 1SBL 183 001 R8110

und wird nicht erfüllt. Also passiert auch nix.

Target.Address = Range("B8").Address liefert die erhoffte Fehlermeldung, läuft also. Bei Dir auch?

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

hotstaks2005
Mitglied
Elektriker


Sehen Sie sich das Profil von hotstaks2005 an!   Senden Sie eine Private Message an hotstaks2005  Schreiben Sie einen Gästebucheintrag für hotstaks2005

Beiträge: 142
Registriert: 03.07.2008

EPLAN 5.7
Office 2003

erstellt am: 18. Nov. 2009 16:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi Paulchen

Wunderbar die Grafiken werden angezeigt wie sie es sollen.

Dachte bei dem Code das eine alleinige Änderung das Wechseln der Grafik herbeiführen würde.

Ich würd dir gerne noch eine Frage stellen und zwar wie ich diesen Code einbinde: (ist glaub ich auch von dir!?)

Komme bei dem grundsätzlichen Einbinden nicht weiter.

Danke Wolfgang


Private Sub Worksheet_Change1(ByVal Target As Range)
Set Target = Intersect(Target, Range("B8:G8")) 'alternativ (Target, Range("A1")) // (Target, Range("A1:A3")) etc.
If Target Is Nothing Then
Exit Sub
Else
With Target.Characters(Start:=InStr(1, Target, "|") + 1, Length:=InStr(InStr(1, Target, "|") + 1, Target, "|") - 1 - InStr(1, Target, "|") + 1).Font
    .FontStyle = "Fett"
End With
  End If
End Sub

------------------
Immer wieder neu lernen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Paulchen
Mitglied
Bauing./SW-Entwickler


Sehen Sie sich das Profil von Paulchen an!   Senden Sie eine Private Message an Paulchen  Schreiben Sie einen Gästebucheintrag für Paulchen

Beiträge: 1227
Registriert: 19.08.2004

Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice

erstellt am: 18. Nov. 2009 17:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für hotstaks2005 10 Unities + Antwort hilfreich

Freut mich, dass es klappt  . Code von mir? Keine Ahnung...

Stelle ihn entweder vor If Target.Address... oder hinter MsgBox "Bild "....

Das Ereignis Private Sub Worksheet_Change1(ByVal Target As Range) ist mir unbekannt. Deshalb packe ich alles in die Sub Worksheet_Change. Also z. B. so:

Code:
...
y = 257  'y-Koordinate für Position des Bildes
   
  Set Target = Intersect(Target, Range("B8:G8")) 'alternativ (Target, Range("A1")) // (Target, Range("A1:A3")) etc.
 
  If Target Is Nothing Then
  Exit Sub
  Else
  With Target.Characters(Start:=InStr(1, Target, "|") + 1, Length:=InStr(InStr(1, Target, "|") + 1, Target, "|") - 1 - InStr(1, Target, "|") + 1).Font
    .FontStyle = "Fett"
    End With
  End If
   

If Target.Address...

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

hotstaks2005
Mitglied
Elektriker


Sehen Sie sich das Profil von hotstaks2005 an!   Senden Sie eine Private Message an hotstaks2005  Schreiben Sie einen Gästebucheintrag für hotstaks2005

Beiträge: 142
Registriert: 03.07.2008

EPLAN 5.7
Office 2003

erstellt am: 19. Nov. 2009 07:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Schönen guten Morgen!

Funzt alles hervorragend; schönen Dank dafür.

Grüße Wolfgang

------------------
Immer wieder neu lernen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz