Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild mit jeweiligem Bildnamen einfügen

Forumthread: Bild mit jeweiligem Bildnamen einfügen

Bild mit jeweiligem Bildnamen einfügen
20.08.2004 09:47:59
Harald
Hallo,
ich möchte über den Befehl FiletoOpen Bilder in ein Sheet einlesen. Das
klappt auch Prima. Nun möchte ich aber unter jedes Bild auch den jeweiligen
Bildnamen automatisch darunter stehen haben.
Kann mir jemand dazu helfen?
Vielen Dank
Harald
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild mit jeweiligem Bildnamen einfügen
20.08.2004 11:14:42
ANdreas
Hallo Harald,
hoffe das hilft weiter:

Private Sub AddPicture()
Dim fileToOpen
Dim pct As Picture
fileToOpen = Application _
.GetOpenFilename("JPG Files (*.jpg), *.jpg,Bitmap Files (*.bmp), *.bmp,GIF Files (*.gif), *.gif")
If fileToOpen <> False Then
On Error GoTo ErrorHandler
Application.ScreenUpdating = True
With ActiveSheet
.Range("C6").Select
Set pct = .Pictures.Insert(fileToOpen)
pct.Height = 350
pct.Width = 490
Range("C5").Value = fileToOpen
Range("C5").Replace What:="*\", Replacement:="", LookAt:=xlPart
.Range("A1").Select
End With
Application.ScreenUpdating = True
End If
Exit Sub
ErrorHandler:
Application.ScreenUpdating = True
MsgBox Err.Description, vbCritical, "Error inserting picture"
End Sub

Gruß
Andreas
Anzeige
;

Forumthreads zu verwandten Themen

Varible Bildnamen zuweisen z.B.: ("Picture 14")
chrissey

Hallo Leut,
ich füge über Grafik einfügen ein Bild ein. Da das Bild immer eine Fortlaufende Nummer
besitzt würde ich diese gerne in eine Variable packen?
Dim Bj as string
BJ = ActiveSheets,? ( Wahrscheinlich was mit Name, oder )
Könnte mir hierbei jmd kurz unter die Arme gre...
29.03.2010 10:07:38
Thread-ID: 1149018
3 Beiträge
Anpassung Bildname in Zelle Makro von Tino
Tino

Hallo Forum,
Bei folgende Makro wird ein bild eingfügt in betreffende Zelle mit Doppelklick.
Gerne hatte ich die möglichkeit das der Bildname auch ausgelesen wird.
Also in gleiche Zelle mit Doppelklick komt der Bildname
und eine Zelle darunter wird bild positioniert.
kommt...
30.09.2010 16:23:15
Thread-ID: 1180113
8 Beiträge
Ordnernamen (teileweise) in Bildnamen übernehmen
Lemmi

Hallo zusammen,
ich habe eine Ordnerstruktur mit Unterverzeichnissen in den thematisch Bilder abgelegt sind. Diese sollen eine Identifikations- Nr. erhalten.
Die Identifikationsnummer ist sechstellig.
Beispiel:
Ordner: Projekt ABC
U-Ordner1: 01_Haus
01_001 Bild1 Datum...
15.11.2012 15:24:25
Thread-ID: 1286840
13 Beiträge
Anzeige
Bildname ändert sich!!!
Giuseppe
Hallo Freunde guten Tag,
ich habe Bilder kopiert und eingefügt.
Das original Bild heiß "Picture 214" und das eingefügte "Picture 249"!!!!
Eigentlich sollte der gleiche Name behalten!
Wie kann man ein Bild kopieren und dabei auch der Name?
Danke für eure Hilfe
Giuseppe
18.11.2003 12:48:35
Thread-ID: 339728
3 Beiträge
Bildname aus Kommentar in Userform - TextBox
ChrisBee

Hallo liebes Forum.
Kann man den Namen eines vorher per Code in den Kommentar eingefügten Bildes
in einem Userform anzeigen lassen?
Also ich möchte ein UserForm, bei dem auf click geprüft wird ob eine bestimmte
Zelle ein Kommentar-Bild enthält. (Es gibt nur entweder Bild oder sons...
10.07.2005 17:09:31
Thread-ID: 635331
6 Beiträge
hilfe von profi benötigt (bildnamen variable)
profi

hallo ich habe in Spalte A artikel nummern stehen
und in ordner c:\bilder
sind die bild dateien die zu den artikel nr gehöhren
in den namen ist irgendwo immer die artikel nr vorhanden
zb
artikel nr 4566455
C:\bilder\herstellerx4566455irgendwas.jpg
kann mir einer v...
21.07.2005 14:13:54
Thread-ID: 640477
23 Beiträge
Liste mit Bildnamen vergleichen und Bilder löschen
Patrick

Hallo zusammen
Wie kann man über ein Makro eine Liste mit Bildnamen mit den vorhandenen Bildern vergleichen und die Bilder löschen, deren Namen nicht auf der Liste stehen?
Ausgangslage:
Ich habe ein Tabellenblatt namens "Oktober". In den Spalten AD und AE ab Zeile zwei stehen die Bi...
12.10.2005 08:33:01
Thread-ID: 680361
9 Beiträge
Bildname in Zelle einfügen per Auswahl
Uwe

Hallo an alle,
möchte per Button auf meinem Tabellenblatt in meinem Ordner F:\Bilder mir ein Bild ansehen und dann den Bildnamen z.b. DCP_1001 in Zelle N39 übernehmen.
wie muß da der Code aussehen.
Hab mal wieder keine Ahnung und in der Recherche hab ich nichts gefunden um nur den B...
02.11.2006 20:05:32
Thread-ID: 816221
4 Beiträge
Bildname zu weisen _ Bild mit Makro löschen
Pabst

Guten Morgen Zusammen,
Benötige kurz eure Hilfe bei einem kleinen Problem.
Die Situation ist die folgende. Ich habe ein kleines Makro verfasst, dass nach Aktivieren dem User die Möglichkeit gibt aus dem Standardfenster 'Bild/Grafik aus Datei einfügen' eine Bilddatei auszuwählen.
Nac...
31.08.2007 09:43:35
Thread-ID: 902411
4 Beiträge
Userform Bildname(Variable) hide/show
Axel

Guten Morgen Excelenzen,
ich habe eine Twister-Userform programmiert. Bei Twister (realworld Spiel) muss man Hände/ Füße mit Unterschied Rechts/ Links auf farbige Felder setzen (Gelb/Blau/Rot/Grün). Mit dem Spiel wird ein Kreisel geliefert, der diese 2·2·4 Möglichkeiten wählt und der Kreise...
05.04.2020 11:00:01
Thread-ID: 1750543
4 Beiträge
UserForm.image Bildname auslesen
Pepi
Hallo zusammen
Sub Test() Dim sPfa$, sFil$, sTmp$ sPfa = "C:\Users\Peter\_4-Tools\Downloads\" sFil = "xMap.jpg" uFor.Ima.Picture = LoadPicture(sPfa & sFil) 'sTmp = uFor.Ima.Picture.Name 'Test sollt wieder den Namen von "sFil" zeigen uFor.Show End Sub Wie kann ich den FileNamen von uFor.Ima...
20.07.2022 13:40:23
Thread-ID: 1891946
3 Beiträge
Anzeige
Bildnamen richtig zuweisen
bustue
Hallo Freunde,

im Anhang habe ich eine Beispieltabelle https://www.herber.de/bbs/user/164888.xlsx . Hier steht in der 1. Spalte die Artikelnr,
in der 2. Spalte der Bildname.
Ich möchte gerne per Formel den richtigen Bildnamen in Spalte 3 (Artikelnr&".jpg") ermitteln.
Dabei...
06.12.2023 11:41:57
Thread-ID: 1956737
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige