Excel-Tabelle mit Bildern

Hallo Forum,
ich möchte eine bestehende Excel-Tabelle mit eingebetteten Bildern per Makro überarbeiten. Die bestehende Tabelle mit ca. 150 Einträgen ist chaotisch aufgebaut. Ich möchte nun:
1. die Einträge nach Artikelnummern sortieren
2. die Bilder einheitich ausrichten und deren Höhe vorgeben (die Breite ist technisch bedingt unterschiedlich)
3. die Texte gleichmäßig auf das Bild ausrichten.
Nachdem es (derzeit) 3 verschiedene Text-Zeilen gibt, soll das Bild die Höhe von 3 Zeilen haben. Und jeder der 3 Texte soll in einer der 3 Zeilen kommen.
Zwischen 2 Bilder soll es einen Abstand von jeweils einer leeren Zeile geben.
Nun mein Problem 1:
wie kann ich aus der aktuellen Tabelle ein Bild "auslesen" und vorübergehend extern speichern? Die Artikel-Nummer wäre dabei ein guter Ansatz für einen Teil des Filenamens.
Problem 2:
Nachdem alle vorhandenen Bilder extern vorhanden sind, möchte ich eine neue Tabelle aufbauen. Die soll nach Artikelnummer aufsteigend sortiert sein. Das ist kein Problem für mich, dafür habe ich die Kenntnisse. Schwieriger wird es dann, wenn ich an der richtigen Stelle dann noch das richtige Bild und in der richtigen Größe einfügen möchte.
Die Bilder sollten Bestandteil der Tabelle sein, und nicht extra gespeichert bleiben. Nur so kann die Tabelle als "normale Tabelle" weitergegeben werden. Und sie wird vermutlch - vorläufig - ohne Makros auskommen.
Meine Vorstellung: jeder Artikel besteht aus 3 Zeilen mit einheitlichem Aufbau. Das Bild erstreckt sich über diese 3 Zeilen in einer eigenen Spalte, um eine Mini-Ansicht zu vermeiden..
Wer kann mit bei der Lösung der genannten Probleme weiterhelfen?
Eine Mustertabelle habe ich bereitgestellt.
https://www.herber.de/bbs/user/148420.xlsm
Gruß Werner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
zunächst einmal brauchst du eine Zuordnung der Bilder/Shapes zu den einzelnen Artikelnummern. am einfachsten ist es, wenn der Bildname der Artikelnummer in der Zelle entspricht, dann kannst du später einfach zuordnen.
das machst du entweder von Hand:
1. Bild anklicken
2. die Artikelnummer ins Namensfeld oben links vor der Bearbeitungszeile eingeben und ENTER drücken
das Bild hat dann den Namen der der Artikelnummer entspricht.
sowas geht auch per Makro beispielsweise mit diesem, hierzu verschiebst du das Bild so, dass die Linke obere Ecke des Markierungrahmens in der gleichen Zeile liegt wie die dazugehörige Zelle mit der Artikelnummer, wenn du das für alle Bilder gemacht hast, lässt du dieses Makro einmal laufen:
Sub umbenennen()


Dim shpe As Shape
For Each shpe In ActiveSheet.Shapes
shpe.Name = Cells(shpe.TopLeftCell.Row, 3).Text
Next
End Sub

jetzt bringst du deine Tabelle in die richtige anordnung, erstmal unabhängig von den Bildern
wenn das über sortieren gehen soll, kannst du beispielsweise in Spalte A folgende Formel einfügen, damit in jeder der (oder besser 4) Zeilen für jede Artikelnummer diese steht, dann kannst du danach sortieren:
für deine Beispieltabelle muss in die Zelle A5 folgende Formel, welche du dann nach unten ziehst:


=WENN(B5="Artikel-Nr:";C5;WENN(ODER(B5={"Beschreibung";"Preis"};B4="Preis");A4;""))

diese Formel fügst du in A5 ein, ziehst sie nach unten, dann kopierst du sie und fügst sie an gleicher Stelle als Wert ein.
danach sortierst du die Liste nach Spalte A
um jetzt die Bilder der Liste zuzuordnen, lässt du dieses Makro laufen:


Sub Bilder_Anordnen()
Dim shpe As Shape
Dim Zelle As Range
For Each shpe In ActiveSheet.Shapes
Set Zelle = Columns(3).Find(what:=shpe.Name, lookat:=xlWhole, LookIn:=xlValues)
If Zelle Is Nothing Then
shpe.Left = Columns(13).Left
Else
With shpe
.Top = Zelle.Top
.Left = Columns(4).Left
.Height = Zelle.Resize(3, 1).Height
End With
End If
Next
End Sub

die Bilder werden in Spalte D (4) angeordnet, die Größe den Zeilen angepasst. Die Standardeinstellung ist, dass bei Bildern das Seitenverhältnis gesperrt ist, dh wenn man das nicht verstellt hat, wird bei anpassen der Höhe die Breite automatisch mit geändert, so dass man das nicht selbst tun muss.
Bilder, für die eine Artikelnummer existiert (vielleicht, weil du dich beim manuellen umbenennen vertippt hast) werden nach Spalte M verschoben, so dass du siehst was du korrigieren musst.
so könnte das gehen.
was das arbeiten in dieser Liste angeht:
Ausblenden mit Autofilter könnte klappen, wenn du für die Bilder die Option "von Position und Größe abhängig", dann werden die Bilder ausgeblendet, wenn die Zeilen ausgeblendet werden.
Sortieren geht nicht. Bilder werden nur dann mit sortiert, wenn sich das Bild vollstätndig innerhalb einer Zelle befindet
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread