ich habe gleich mehrere Probleme auf einmal, vielleicht kann mir ja jemand helfen. Und zwar:
1.) Ich habe eine ComboBox mit der Steuerelement-Toobox
erstellt, jeder Mal aber wenn ich was anklicke verdoppeln
sich die Einträge darin!
2.) Meine Grafiken, welche in den Bereich zwar hineinkommen
werden nur übereinndergeschrieben. Weiss jemand, wie ich die
Grafik erst lösche, bevor eine andere an den Ort kopiert
wird!?
Hier mein Ansatz:
Option Explicit
Private Sub ComboBox1_Change()
Sheets("Protokoll").Activate
ComboBox1.AddItem Format("Erde1")
If ComboBox1 = "Erde1" Then
Range("A17").Select
ActiveSheet.Pictures.Insert("I:\ae\AE-EF\AE-EFO\Mitarbeiter\Adel\Prüfprotokolle\TEST\earth.gif").Select
End If
ComboBox1.AddItem Format("Erde2")
If ComboBox1 = "Erde2" Then
Range("A17").Select
ActiveSheet.Pictures.Insert("I:\ae\AE-EF\AE-EFO\Mitarbeiter\Adel\Prüfprotokolle\TEST\earth2.gif").Select
End If
End Sub
Wäre klasse, wenn jemand mein Makro verändern könnte, da ich der total Anfänger bin!
Danke schon im Voraus
Gruss Chris