Thema Datum  Von Nutzer Rating
Antwort
Rot Bilder Ändern nach Nutzereingabe
18.07.2019 09:03:48 emkay8304
NotSolved
18.07.2019 21:31:15 Flotter Feger
Solved

Ansicht des Beitrags:
Von:
emkay8304
Datum:
18.07.2019 09:03:48
Views:
962
Rating: Antwort:
  Ja
Thema:
Bilder Ändern nach Nutzereingabe

Hallo an alle,

verzeiht meine Naivität, ich mache dies zum ersten Mal und hoffe, dass mir in diesem Forum geholfen werden kann.
Sollte ich etwas vergessen, oder nicht klar genug formulieren, bitte ich um Nachsicht und um Rückmeldung.

Nun zu meinem Problem:
Ich würde gerne anhand einer Nutzerauswahl ein Bild automatisch ändern lassen. Das soll so funktionieren, dass der Nutzer eine Info gibt und diese Info eine Grafik auswählen soll, die vorher in einer Tabelle definiert worden ist (Bsp.: Nutzer wählt einen Wert 1 oder 2 und dieser soll Bild 1 auswählen und an eine Stelle des Arbeitsplatzes kopieren; Nutzer wählt Wert 3, 4 oder 5 und das Bild 2 wird ausgewählt und kopiert bzw. platziert etc.).

Hier der dazugehörige VBA code mit einem Zusatz den ich später erklären werde und einer kurzen Erklärung, was ich von dem Code erwarte:

Sub GetPic()
Sheets("DS").Select (sollte den Tab "DS" auswählen)
Worksheets("DS").DrawingObjects(17). (sollte im Tab "DS" das Bild Nr. 17 auswählen)
i = Sheets("Pictures").Range("dwg_no").Value (sollte dem "parameter" "i" den Wert aus Zelle "dwg_no" im Tab "Pictures" zuweisen. Dieser weist der Nutzerauswahl das richtige Bild zu)
Worksheets("Pictures").DrawingObjects(i).Copy (sollte das Bild mit der "dwg_no" des "Parameters" "i" kopieren)
Worksheets("DS").Select (sollte wieder Tab "DS" auswählen)
ActiveSheet.Range("dwg_position").Select (sollte die Zellen mit dem Namen "dwg_position" auswählen, an der das vorher ausgewählte Bild positioniert werden soll)
ActiveSheet.Paste (sollte das zuvor kopierte Bild an "dwg_position" hineinkopieren)
Worksheets("Input").Select (Sollte zurück zum Tab "Input" wechseln, um weitere Nutzerdaten zu erlauben)
End Sub

Was ich nicht verstehe, ist wie genau man die Nummer der Bilder einsehen kann. Was ist der einfachste Weg diese zu erkennen? Ich weiss bspw. nicht warum das Bild, welches aktuell da steht die Nr. 17 hat...
Das aktuelle Bild soll nach jeder neuen Nutzerauswahl erst gelöscht werden, damit das neue Bild dort Platz hat.
Der Vorgang muss beliebig oft wiederholbar sein. Dazu muss (denke ich) das aktuell ausgewählte Bild allgemein gehalten werden. Sollte sich der Vorgang nach meinem Beispiel wiederholen, würde dieser VBA code einen Fehler erzeugen, da nach dem ersten Mal das Bild Nr. 17 nicht mehr verfügbar ist, da es ja anhand der Nutzerdaten getauscht wird...

So, ich hoffe ich habe nun genügend Input gegeben, sodass mir in meiner Angelegenheit geholfen werden kann, sollte ich aber dennoch irgendetwas wichtiges vergessen haben, oder nicht richtig erklärt haben, bitte ich um Rückmeldung.

Vielen Dank schonmal im Voraus für eure Rückmeldungen!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bilder Ändern nach Nutzereingabe
18.07.2019 09:03:48 emkay8304
NotSolved
18.07.2019 21:31:15 Flotter Feger
Solved