ich habe ein Problem und zwar:
Möchte ein Art Prüfprotokoll erstellen. Die Prüfbedingungen sind gleich, aber die Werkstoffe sind unterschiedlich, um diese hervorzuheben, habe ich mir überlegt diese anhand von Bildern einzufügen!
Unter meinem festgelegten Bereich "A17" habe ich eine ComboBox, in denen die Namen der Werkstoffe enthalten sind. Bei Anklicken soll dann das jeweilige Bild in den Bereich "A17" gezogen werden.
Es funktioniert schon so weit, nur dass die Bilder sich übereinanderlegen! Was dann mit derZeit zu mehr Speicherplatz führt, da das Programm nach jeder Anwendung automatisch gesichert wird.
Deshalb möchte ich, dass der Bereich "A17" erst gelöscht wird, bevor ein neues Bild eingefügt wird!
Kann mir da jemand vielleicht helfen!? Oder ist meine Vorstellun einfach nicht zu ralisieren!? Habe nämlich gesehen, dass sich die Nummern der Bilder bei jedem Aufruf ändern, z.B. "Picture 145"; "Picture 146"; ....
Mein Makro so far:
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Werkzeug 1"
ComboBox1.AddItem "Werkzeug 2"
End Sub
Private Sub ComboBox1_Click()
Sheets("Prüfprotokoll").Activate
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Sh.Type = 13 And _
Sh.TopLeftCell.Address = Range("A17") Then
Sh.Delete
End If
If ComboBox1 = "Werkzeug 1" Then
Range("A17").Select
ActiveSheet.Pictures.Insert("Werkzeug1.jpg").Select
End If
If ComboBox1 = "Werkzeug 2" Then
Range("A17").Select
ActiveSheet.Pictures.Insert("Werkzeug2.jpg.Select
End If
Danke im Voraus
Gruss Chris