Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bilder aus Zwischenablage einfügen

Bilder aus Zwischenablage einfügen
22.07.2021 19:09:48
oraculix
Hallo
Ich möchte gerne ca. 3000 Bilder aus der Zwischenablage in eine Leere Tabelle Einfügen.
Das Problem ist wenn ich einfügen klicke werden die Bilder untereinander eingefügt mit dem dazugehörigen Hyperlink.
Aber die Bilder sollen Nebeneinander eingefügt werden immer 4 Stück in eine Reihe
dann 1 Zelle darunter die die nächsten 4 bis alle 3000 Bilder mit dem dazugehörigen Namen Hyperlink eingefügt sind.
Macro holt aus Zwischenablage die Bilder und fügt sie in 4er Reihen untereinader ein
Geht das?

Sub Einfügen()
'keine Ahnung wie ich dem Makro beibringe das er die Bilder
'nebeneinander in 4er Schritten einfügt
End Sub
Danke
Hier die Abgespeckte Tabelle
https://www.herber.de/bbs/user/147263.xlsm
Gruß
Oraculix
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder aus Zwischenablage einfügen
23.07.2021 10:08:55
Rudi
Hallo,
wie packst du 3000 Bilder in die Zwischenablage?
Gruß
Rudi
AW: Bilder aus Zwischenablage einfügen
23.07.2021 10:57:46
oraculix
Hallo
Auf der Htmlseite alles markieren und kopieren mit Strg+C und dann mit Strg+V einfügen.
AW: Bilder aus Zwischenablage einfügen
23.07.2021 12:10:12
Rudi
Hallo,
dann sind sie ja nicht mehr in der Zwischenablage.
Denkbar wäre eine Schleife über alle Shapes und neu positionieren.
Schema:

Sub aaaa()
Dim s As Shape, r As Integer, c As Integer
r = 2
c = 0
Application.ScreenUpdating = False
For Each s In ActiveSheet.Shapes
c = c + 2
With s
.Top = Cells(r, c).Top
.Left = Cells(r, c).Left
End With
If c = 8 Then
r = r + 7
c = 0
End If
Next
End Sub
Gruß
Rudi
Anzeige
AW: Bilder aus Zwischenablage einfügen
23.07.2021 14:43:18
oraculix
Ja Vielen Dank genau so!
Nur noch ein Problem die Titel der Bilder werden irgendwo abgelegt nur nicht unter dem Bild.
Manche Titel sind überhaupt nicht zu sehen.
Hast Du da auch noch ne Idee wie ich das noch einbauen könnte in Deinen Genialen VBA Code?
Danke
Gruß
Oraculix
Anzeige
AW: Bilder aus Zwischenablage einfügen
24.07.2021 19:55:47
Rudi
Hallo,

Sub aaaa()
Dim s As Shape, r As Integer, c As Integer, i As Integer
Dim rng As Range
Set rng = ActiveSheet.Columns(4).SpecialCells(xlCellTypeConstants)
i = 1
r = 2
c = 0
Application.ScreenUpdating = False
For Each s In ActiveSheet.Shapes
c = c + 2
i = i + 1
With s
.Top = Cells(r, c).Top
.Left = Cells(r, c).Left
End With
Rows(r).RowHeight = s.Height
rng.Areas(i).Cut Cells(r, c).Offset(1)
If c = 8 Then
r = r + 3
c = 0
End If
Next
End Sub
Gruß
Rudi
Anzeige
AW: Bilder aus Zwischenablage einfügen
27.07.2021 11:07:52
oraculix
Danke für Deine Mühe!
Wenn ich es auf meine Tabelle Übertrage dann kommt ein Fehler!
Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler
rng.Areas(i).Cut Cells(r, c).Offset(1) Dieser Code wird dann Gelb Markiert
Gruß
Oraculix
AW: Erledigt Danke
27.07.2021 12:56:11
oraculix
Hat sich erledigt Danke jetzt geht es !!!
Gruß
Oraculix
kost fast nix
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Bilder aus der Zwischenablage einfügen in Excel


Schritt-für-Schritt-Anleitung

Um Bilder aus der Zwischenablage in Excel einzufügen und sie ordentlich anzuordnen, folge diesen Schritten:

  1. Bilder kopieren: Markiere die gewünschten Bilder auf einer Webseite oder in einer Anwendung und kopiere sie mit Strg+C.

  2. Excel öffnen: Starte ein neues Excel-Dokument oder öffne ein bestehendes.

  3. VBA-Editor öffnen: Drücke Alt + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  4. Neues Modul erstellen:

    • Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
  5. VBA-Code einfügen: Kopiere und füge den folgenden Code in das Modul ein:

    Sub Einfügen()
       Dim s As Shape, r As Integer, c As Integer
       r = 2
       c = 0
       Application.ScreenUpdating = False
       For Each s In ActiveSheet.Shapes
           c = c + 2
           With s
               .Top = Cells(r, c).Top
               .Left = Cells(r, c).Left
           End With
           If c = 8 Then
               r = r + 3
               c = 0
           End If
       Next
    End Sub
  6. Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Führe das Makro mit Alt + F8 aus.

  7. Überprüfen: Die Bilder sollten jetzt nebeneinander in 4er Reihen eingefügt werden.


Häufige Fehler und Lösungen

  • Laufzeitfehler '1004': Dieser Fehler tritt häufig auf, wenn der Code auf eine nicht vorhandene Zelle zugreift. Überprüfe, ob die Referenz auf rng.Areas(i) korrekt ist. Stelle sicher, dass die Zellen, auf die verwiesen wird, existieren.

  • Bilder werden nicht richtig angeordnet: Überprüfe, ob der Code im Makro korrekt kopiert wurde und die Zellen genügend Platz bieten, um die Bilder nebeneinander anzuordnen.


Alternative Methoden

Falls du die Bilder nicht direkt in Excel einfügen möchtest, kannst du auch die Bilder aus der Zwischenablage als Datei speichern:

  1. Bild speichern: Öffne ein Bildbearbeitungsprogramm (z.B. Paint) und füge das Bild mit Strg+V ein.
  2. Speichern: Wähle Datei > Speichern unter und speichere das Bild als JPG oder in einem anderen gewünschten Format.

Das Speichern der Bilder aus der Zwischenablage als Datei ermöglicht es dir, diese später einfach in Excel einzufügen.


Praktische Beispiele

  • Beispiel 1: Wenn du Bilder von einem Webshop kopierst, kannst du sie direkt in eine Excel-Tabelle einfügen, um eine Produktübersicht zu erstellen.

  • Beispiel 2: Für eine Präsentation könntest du Fotos aus der Zwischenablage einfügen, um einen visuellen Eindruck der Produkte zu vermitteln.


Tipps für Profis

  • Nutze den VBA-Code zur automatischen Anordnung der Bilder, um viel Zeit zu sparen.
  • Achte darauf, dass die Bildgrößen einheitlich sind, damit das Layout in Excel sauber aussieht.
  • Speichere regelmäßig deine Excel-Datei, um Datenverlust zu vermeiden, besonders wenn du mit einer großen Anzahl von Bildern arbeitest.

FAQ: Häufige Fragen

1. Wie bekomme ich ein Bild aus der Zwischenablage?
Kopiere das Bild, das du einfügen möchtest, mit Strg+C und füge es dann in Excel mit Strg+V ein.

2. Kann ich Bilder aus der Zwischenablage als Datei speichern?
Ja, du kannst das Bild in ein Bildbearbeitungsprogramm einfügen und dann als Datei speichern.

3. Wie füge ich mehrere Bilder gleichzeitig ein?
Du kannst mehrere Bilder in die Zwischenablage kopieren und sie dann mit einem Makro in Excel anordnen.

Beliebteste Forumthreads (12 Monate)

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