Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild aus Userform in Zelle einfügen

Forumthread: Bild aus Userform in Zelle einfügen

Bild aus Userform in Zelle einfügen
28.02.2017 15:45:41
feuerharry
Hy brauche bitte eure Hilfe
Habe nach Auswahl (Combobox) von einen externen Ordner ein Bild(jpg) in die Userform(image) zum Anzeigen gebracht.
Nun möchte ich das Bild in der zugehörigen Zeile einfügen.
Habe einen Code von Nepumuk (860to864: Bild aus Userform in Zelle) gefunden.
Dieser Code tragt das Bild nur in der aktiverten Zelle ein, nicht in die gewünschte Zelle.
Bin für jede Hilfe dankbar.
Beispiel:
https://www.herber.de/bbs/user/111832.txt
https://www.herber.de/bbs/user/111833.xlsx
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild aus Userform in Zelle einfügen
28.02.2017 16:15:53
Mullit
Hallo,
na, das geht doch locker:

VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel



Code erstellt und getestet in Office 12
Gruß, Mullit
Anzeige
AW: Bild aus Userform in Zelle einfügen
28.02.2017 16:33:45
feuerharry
Hy
Danke für dein Interesse
Leider nicht zufriedenstellend
Möchte wenn ich Maus auswähle in Zelle C4, bei Wurm C6 usw.....
https://www.herber.de/bbs/user/111833.xlsx
AW: Bild aus Userform in Zelle einfügen
28.02.2017 17:17:42
Mullit
Hallo,
ja dammich noch mal, wenn Du schon von Nepumuk den Code pfannenfertig vorgesetzt bekommst, brauchst doch selbst nur noch mit ner Select-Fallunterscheidung ran.
Und wenn Du schon ne Form am Start hast, würde es mich äußerst zufriedenstellen, wenn Du sie gleich mit hochlädst und ich mir nicht alles aus den Finger saugen muß....

VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel



Code erstellt und getestet in Office 12
Gruß, Mullit
Anzeige
AW: Bild aus Userform in Zelle einfügen
28.02.2017 18:03:22
feuerharry
Hy Danke nomal
Ist schon etwas besser, Habe aber über 100 jpg Bilder (Namensverzeichnis) und es kommen immer welche dazu und weg.
Geht das nicht über eine schleife, so das er sich den Bildnamen sucht in Spalte B und das Bild in Spalte J in der selben Zeile einfügt .
AW: Bild aus Userform in Zelle einfügen
28.02.2017 18:15:51
Mullit
Hallo,
....yo, geht...
Gruß, Mullit
Anzeige
AW: Bild aus Userform in Zelle einfügen
01.03.2017 09:03:30
feuerharry
Hy Danke nomal
Ist schon etwas besser, Habe aber über 100 jpg Bilder (Namensverzeichnis) und es kommen immer welche dazu und weg.
Geht das nicht über eine schleife, so das er sich den Bildnamen sucht in Spalte B und das Bild in Spalte J in der selben Zeile einfügt. So das Combobox bei Auswahl die Zelle in der Tabelle markiert
Lade eine test-Datei hoch.
https://www.herber.de/bbs/user/111843.xlsm
Danke im Voraus feuerharry
Anzeige
AW: Bild aus Userform in Zelle einfügen
01.03.2017 15:18:45
Mullit
Hallo,
was sehen meine entzündeten Augen, eine Testdatei, der Glaube an das Gute im Menschen ist bei mir wieder da, aber da benötigst Du nix anderes mehr, Du hast schon alles:
  1. die Combobox liest Deine Viecher-Namen ein ---> check ✔

  2. die Bilder werden bei Dir im Change-Event über die LoadPicture-Methode zugewiesen ---> check ✔

  3. die Select Case Anweisung in der 2. Code-Variante von Nepumuk weist Dein Viehzeug den verschiedenen Zellen zu ---> check ✔
...Die mußt Du in der Paste-Anweisung ggf. noch selbst anpassen und die TextBox durch die ComboBox ersetzen, das mußt Du irgendwie alleine gebacken kriegen...
Gruß, Mullit
Anzeige

Forumthreads zu verwandten Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
Anzeige
in spalte müssen 2 gleiche zahlen vorh. sein ...
Jessi

hallo zusammen,
suche nach einem makro, dass in spalte A überprüft ob von den dort geschriebenen zahlen jeweils zwei gleiche vorhanden sind. es geht um eine doppelbelegung eines zimmers. die zahl ist die zimmer-nr.
wäre z.b. nur einmal eine zahl in der spalte, wäre es möglich in das jew...
04.10.2008 15:33:00
Thread-ID: 1014154
5 Beiträge
Anzeige
Zeichen in Zelle automatisch kürzen
Andreas

Guten Tag,
ich habe Zellen mit jeweils 12 Stellen ausgefüllt (z.B. 000012345678) Davon hätte ich nun gerne automatisch die ersten 4 gelöscht (sodaß in diesem Beispiel dann in der Zelle nur 12345678 verbleibt)
Ist das mit Excel-Bordmitteln machbar?
Danke für Hilfe voarab,
Andreas...
09.10.2008 13:57:00
Thread-ID: 1015344
4 Beiträge
Anzeige
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Eine Zahl mit vorhandener Zahlenliste vergleichen
Niklas

Hallo Leute!
Es geht darum, eine eingegebene Zahl mit einer vorhandenen Zahlenliste vergleichen und die beiden nächstgelegenen Zahlen der Zahlenliste verwenden!
zur veranschaulichung:
ich habe die die zahlenliste : 1 , 2, 3, 4, 5, 6, 7
der eingegebene Wert ist z.B 1.5 dann soll...
17.10.2008 09:49:22
Thread-ID: 1017045
8 Beiträge
Autofilter - Anzahl vorh. Sätze
KViertel

Hallo in die Runde,
In einem Tabellenblatt wird In VBA ein Autofilter gesetzt. Die dabei angezeigten Sätze sollen in ein anderes Tabellenblatt kopiert werden. Wenn jetzt keine Sätze vorhanden sind, wird die Sub abgebrochen. In der Recherche habe ich einen Hinweis zu Subtotal gefunden, weiß...
11.12.2008 11:45:00
Thread-ID: 1031999
3 Beiträge
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
3 Beiträge
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Bild aus Userform in Zelle einfügen

Schritt-für-Schritt-Anleitung

  1. Userform erstellen: Öffne Excel und gehe in den VBA-Editor (ALT + F11). Klicke auf "Einfügen" und dann auf "UserForm", um eine neue Userform zu erstellen.

  2. Combobox hinzufügen: Ziehe eine Combobox auf die Userform, um die Bilder auszuwählen.

  3. Image-Control hinzufügen: Füge ein Image-Control hinzu, um das ausgewählte Bild anzuzeigen.

  4. Code zur Auswahl des Bildes: Verwende den folgenden Code, um das Bild in der Userform anzuzeigen, wenn du einen Eintrag in der Combobox auswählst:

    Private Sub ComboBox1_Change()
   Dim BildPfad As String
   BildPfad = "C:\Dein\Pfad\" & Me.ComboBox1.Value & ".jpg"
   Me.Image1.Picture = LoadPicture(BildPfad)
End Sub

  5. Bild in Zelle einfügen: Um das Bild in die gewünschte Zelle einzufügen, kannst du den folgenden Code verwenden:

    Private Sub CommandButton1_Click()
   Dim ZielZelle As Range
   Set ZielZelle = ThisWorkbook.Sheets("DeinBlatt").Range("J" & Me.ComboBox1.ListIndex + 1)
   Me.Image1.Picture = LoadPicture(BildPfad)
   ZielZelle.Select
   ActiveSheet.Pictures.Insert(BildPfad).Select
   Selection.Top = ZielZelle.Top
   Selection.Left = ZielZelle.Left
End Sub

Häufige Fehler und Lösungen

  • Bild wird nicht angezeigt: Stelle sicher, dass der Bildpfad korrekt ist und die Datei existiert. Überprüfe auch, ob die Dateiendung (.jpg) stimmt.

  • Bild wird in der falschen Zelle eingefügt: Überprüfe den Code zur Bestimmung der Zielzelle. Achte darauf, dass die richtige Zeile für die Combobox-Auswahl verwendet wird.

  • Fehlermeldung beim Einfügen: Prüfe, ob die Excel-Version VBA unterstützt. Der Code sollte in Excel 2007 oder höher funktionieren.

Alternative Methoden

  • Direktes Einfügen über VBA: Anstelle einer Userform kannst du auch direkt im Arbeitsblatt eine Dropdown-Liste (Datenüberprüfung) erstellen und das Bild basierend auf der Auswahl dort einfügen.

  • PowerPoint verwenden: Wenn du häufig Bilder in Zellen einfügst, könnte es sinnvoll sein, PowerPoint zu verwenden, um eine Präsentation mit den Bildern zu erstellen, die dann in Excel eingebettet wird.

Praktische Beispiele

  • Beispiel mit Schleife: Wenn du mehrere Bilder hast und sie automatisch einfügen möchtest, kannst du eine Schleife verwenden, um die Bildnamen aus einer Liste in Spalte B zu lesen und sie in Spalte J einzufügen. Hier ein einfaches Beispiel:

    Dim i As Integer
For i = 1 To 100 ' passe die Schleife je nach Anzahl der Bilder an
   Dim BildName As String
   BildName = ThisWorkbook.Sheets("DeinBlatt").Cells(i, 2).Value & ".jpg"
   Dim ZielZelle As Range
   Set ZielZelle = ThisWorkbook.Sheets("DeinBlatt").Cells(i, 10) ' Spalte J
   ZielZelle.Select
   ActiveSheet.Pictures.Insert("C:\Dein\Pfad\" & BildName).Select
   Selection.Top = ZielZelle.Top
   Selection.Left = ZielZelle.Left
Next i

Tipps für Profis

  • Verwende benannte Bereiche: Um die Wartbarkeit deines Codes zu verbessern, kannst du benannte Bereiche für deine Zellen verwenden.

  • Fehlerbehandlung: Implementiere Fehlerbehandlung in deinem VBA-Code, um unerwartete Fehler elegant zu handhaben.

  • Optimierung durch dynamische Pfade: Arbeite mit dynamischen Pfaden, um die Flexibilität zu erhöhen, insbesondere wenn sich die Bilddateien häufig ändern.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Bilder gleichzeitig einfügen?
Du kannst eine Schleife verwenden, die alle Bildnamen durchläuft und sie in die entsprechenden Zellen einfügt, wie im praktischen Beispiel gezeigt.

2. Funktioniert dieser Code in Excel 2010?
Ja, der Code sollte in Excel 2010 und neueren Versionen einwandfrei funktionieren. Achte darauf, dass du die richtigen Referenzen gesetzt hast.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige