Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
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
1932to1936
1932to1936
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild aus Zwischenablage aus VBA einfügen

Forumthread: Bild aus Zwischenablage aus VBA einfügen

Bild aus Zwischenablage aus VBA einfügen
30.05.2023 07:42:14
Dominik Werner

Guten Morgen!

Erstmal vielen Dank in die Runde! Dieses Forum hat mir schon so manchen Trick verraten!

Bei meinem aktuellen Problem bin ich allerdings nicht fündig geworden. Oder ich habe es gelesen und einfach nicht verstanden.
Meine VBA Kenntnisse sind leider nicht sehr fortgeschritten. Ich lese Sachen, kopiere sie mir zusammen und versuche es dann zu verstehen ;-).

Ich habe in einer Exceldatei eine Bilddatei (Name: Wartung) eingefügt. Nun möchte ich folgendes Über VBA ermöglichen:

- Rechtsklick
- Bild ändern ...
- Aus Zwischenablage ...

Das Ganze soll dann über einen Button ausgelöst werden.

Ich hoffe, dass die Beschreibung ausreichend ist.

Vielen Danke und Grüße,
Dominik

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild aus Zwischenablage aus VBA einfügen
30.05.2023 08:46:48
Dominik Werner
Kleiner Nachtrag:

In Zelle M39 würde ich gerne als Datum (YYYY-MM-DD) die letzte Aktualisierung sehen.

Das kann man ja sicherlich mit einbauen ;-).

Danke!


AW: Bild aus Zwischenablage aus VBA einfügen
30.05.2023 10:33:52
onur
- Bild ändern ...
- Aus Zwischenablage ...
??????
WAS soll das denn bedeuten?


Anzeige
AW: Bild aus Zwischenablage aus VBA einfügen
30.05.2023 10:59:37
Dominik Werner
Hallo.

Erstmal Danke für die Antwort.

Ich versuche verzweifelt ein Bild davon hoch zu laden. Klappt leider nicht.
https://www.transfernow.net/de/dltransfer?utm_source=202305307WgQpxAN

Wenn ich auf das Bild in der Exceldatei einen Rechtsklick mache, wähle ich "Bild ändern ..." und dann "Aus Zwischenablage ..." aus.
Das möchte ich gerne über eine Makro lösen und anschließend das Datum der Änderung in die Zelle eingetragen haben.

Ist das so verständlicher?

Danke und Grüße,
Dominik.


Anzeige
AW: Bild aus Zwischenablage aus VBA einfügen
30.05.2023 18:32:26
Dominik Werner
Und ich schon wieder.

Das das Datum nach dem betätigen des Buttons geändert wird, habe ich schonmal hin bekommen:

Tabelle1.Range("A1").Value = Date

Wie ich das Bild gegen ein Bild aus der Zwischenablage ersetzte, klappt leider immer noch nicht.

Gruß,
Dominik


Anzeige
AW: Bild aus Zwischenablage aus VBA einfügen
30.05.2023 20:49:07
volti
Hallo Dominik,

hier eine Idee zu Deinem Anliegen...

Code:


Option Explicit
Private Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32" ( _
        ByVal wFormat As Long) As Long

Type RECTB
    Left   As Double
    Top    As Double
    Width  As Double
    Height As Double
    Name   As String
End Type

Sub BildAendern()
  Dim R As RECTB
  
  If IsClipboardFormatAvailable(2) <> 0 Then    ' 2 = CF_BITMAP
     If TypeName(Selection) = "Picture" Then
        With Selection
            R.Left = .Left:   R.Top = .Top
            R.Width = .Width: R.Height = .Height
            R.Name = .Name
            .Delete
        End With

'Neue Grafik einfügen
        ActiveSheet.Paste
        With Selection
           .ShapeRange.LockAspectRatio = msoFalse
           .Left = R.Left:     .Top = R.Top
           .Height = R.Height: .Width = R.Width
           .Name = R.Name
          End With
    Else
        MsgBox "Es ist kein Zielbild markiert!", vbCritical, "Bild ändern"
    End If

  Else
     MsgBox "Es ist kein Quellbild in der Zwischenablage!", vbCritical, "Bild ändern"
  End If

End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz



Anzeige
AW: Bild aus Zwischenablage aus VBA einfügen
31.05.2023 06:52:29
Dominik Werner
Guten Morgen,

Danke für deine Antwort!

Habe den Code rein kopiert. Leider kommt die Fehlermeldung "NachEnd Sub, Function oder End Property können nur Kommentare stehen".

Was habe ich falsch gemacht?

Grüße,
Dominik.


AW: Bild aus Zwischenablage aus VBA einfügen
31.05.2023 07:33:03
Volti
Moin,
Das sagt ja schon die Fehlermeldung, dass nach End Sub noch Code steht.

Ansonsten weiß niemand, was genau Du da gemacht hast. Da wird keiner konkret helfen können.

Gruß Karl-Heinz


Anzeige
AW: Bild aus Zwischenablage aus VBA einfügen
31.05.2023 11:22:36
Dominik Werner
Hallo,

ich habe den Code 1:1 kopiert und eingefügt. Danach kam die Fehlermeldung.

Gruß,
Dominik.


AW: Bild aus Zwischenablage aus VBA einfügen
31.05.2023 11:34:10
volti
Hallo,

das heißt, Du hast nur den kompletten code wie hier dargestellt in ein leeres Modul kopiert. Dann kann das nicht sein, ich habe es auch gerade noch mal probiert.

Oder es war schon was drin im Modul und Du hast den code da mitten rein kopiert?

Du siehst, Deine Aussage ist nicht eindeutig.

Ggf. Mappe hochladen.....


Anzeige
AW: Bild aus Zwischenablage aus VBA einfügen
31.05.2023 12:32:58
Dominik Werner
Hallo,

anbei der Link zu einer angepassten Datei:

https://www.transfernow.net/dl/20230531C4KI5hti

Im Reiter "Übersicht" findet sich der Punkt Wartungen.
Das dortige Bild möchte ich mit einem Rechtsklick -> Bild ändern -> aus Zwischenablage gerne gegen ein anderes Bild ersetzt.

Danke und Grüße,
Dominik.

Anzeige
;

Forumthreads zu verwandten Themen

Rangebereich aus Zwischenablage einfügen
Excellent

Hallo,
ich möchte gerne in unterschiedlichen Excelmappen manuell mit strg-c Bereiche kopieren. Diese Bereiche sind immer genau gleich groß und es gibt keine verbundenen Zellen.
Dann möchte ich mit einem Makro den Bereich aus der Zwischenablage in einen bestimmten Bereich eines Excelarbe...
24.09.2009 12:31:17
Thread-ID: 1105195
4 Beiträge
Bilder (JPG) aus Verzeichnis einfügen
Dieter(Drummer)

Hi Spezialisten,
per VBA möchte ich aus einem frei wählbaren Verzeichnis - dort sind nicht nur Bilddateien - alle Bilder (nur JPG's) in einer frei wählbaren Bildgrösse in ein Tabellenblatt einfügen. Die Bilder können dann untereinander - mit geringem Abstand eingefügt werden. Ist das Ende d...
12.06.2012 21:08:32
Thread-ID: 1267169
18 Beiträge
Bilder (jpg) aus Verzeichnis einfügen
Michael

Hallo Leute,
ich bin bei der Suche nach einem Excel-Makro zum Einfügen von Bildern aus einem Verzeichnis auf dieses hervorragende Makro gestoßen:
https://www.herber.de/forum/archiv/1264to1268/1267169_Bilder_JPG_aus_Verzeichnis_einfuegen.html
Wäre es sehr aufwändig, 2 Felder in dem I...
14.06.2013 09:52:51
Thread-ID: 1317666
4 Beiträge
Bilder (jpg) aus Verzeichnis einfügen - NEU
Tobias

Hallo zusammen,
vielen Dank für https://www.herber.de/bbs/user/80570.xls . Funktioniert super!
Für mich stellt sich jedoch die Frage, ob ich die einzufügenden Bilder auch jeweils einer eigenen Zelle zuweisen kann (Beispiel: 1. Bild in "B1", zweites in "B2, drittes in "B3" usw.). Idealer...
16.07.2013 15:16:02
Thread-ID: 1322762
6 Beiträge
Bilder aus einem Ordner in Zelle einfügen
puma_888
Hallo zusammen,
ich habe einen Code, der mir ein Bild aus dem Ordner "Sample Pictures" in die Zelle B6 bzw. D6 einfügt, wenn in dieser Zelle der entsprechende Name der Bildbezeichnung steht. Dies funktioniert soweit auch ganz gut. Nun zu meiner Frage. Wie müsste ich diesen Code erweitern, dami...
17.04.2015 14:41:12
Thread-ID: 1421496
12 Beiträge
Anzeige
VBA Dezimalzahlen aus Zwischenablage einfügen
Thomas

Hallo,
ich ziehe mir aus einem externen System jeden Tag Reports, welche als durch TABULATOR-getrennte Datensaetze an die Zwischenablage ausgegeben werden. Ein Beispieldatensatz habe ich als TXT beigefügt.
Wenn ich diese Daten aus der Zwischenablage per STRG+V in Excel einfüge, so werde...
23.05.2016 19:00:42
Thread-ID: 1494927
3 Beiträge
[VBA] Aus Excel heraus Word Zwischenablage leeren
Nils

Hallo liebe Experten,
wie kann man aus Excel heraus via VBA die Word-Zwischenablage leeren, also "Start" - "Zwischenablage" - "Alle löschen" ?
Grüße
Nils
22.12.2017 15:14:37
Thread-ID: 1598617
5 Beiträge
Per Makro Bilder aus Ordner in Excel einfügen
Pascal

Guten Abend zusammen,
Ich würde gerne via makro Bilder (.png) aus einem Dateipfad (C:\Users\Pascal\Desktop\Ordner) in bestimmte Zellen einfügen abhängig vom Zellwert. Also wenn A10 = "Frankreich", dann sollte in B10 die französische Flagge kommen usw. Die Namen der Bilder und des Zellwerts...
19.09.2018 00:47:28
Thread-ID: 1646329
5 Beiträge
Bilder aus externer Quelle anzeigen nicht einfügen
GünterF

Hallo,
Ich habe eine Excel-Datei mit vielen Grafiken. Nun möchte ich die Grafiken "auslagern", damit die Excel-Datei nicht zu groß wird.
Dazu habe ich ein kleines Makro gebastelt, mit dem ich die Bilder aus der externen Quelle einfüge (pictures.insert).
Nachteil ist, dass ich jedes...
28.10.2018 16:17:31
Thread-ID: 1654003
3 Beiträge
Bilder einfügen aus der Zwischenablage
mirko

Hallo zusammen ist es möglich in einem formular, sagen wir in einem graphikfeld, bilder aus der zwischenablage reinzukopieren. wenn ja, könnte mir jemand erklären wie so etwas funktioniert?
danke vielmals
Gruss

03.01.2003 17:33:30
Thread-ID: 198716
4 Beiträge
Inhalt aus Zwischenablage einfügen
Jürgen

Hallo, ich möchte Inhalt aus der Zwischenablage einfügen. Hierin sind Zahlenwerte enthalten, teils mit Vorzeichen, teils auch mit Nachkommastellen (z.B. 50, 50,2, -50,4). Die Zellen sind formatiert mit "Währung". Wenn ich den Inhalt mit Strg+V einfüge, stimmt die Formatierung. Mache ich dies...
11.12.2019 19:20:40
Thread-ID: 1728516
2 Beiträge
Anzeige
Bild aus Ordner in Zelle einfügen
Ulli
Hallo,
ich habe eine Frage.
Ich würde gerne mit einem Makro das letzte Bild (jüngstes Speicherdatum) aus dem Microsoft Standard Ordner für Bilder in die aktive Zelle des Excel Arbeitsblatt einfügen.
Der Pfad zum Ordner steht in Zelle "F3"
Das vorhandene Makro (BilderImport) fügt ein...
12.08.2021 08:20:12
Thread-ID: 1843211
11 Beiträge
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 Zwischenablage einfügen und in Excel übertragen

Schritt-für-Schritt-Anleitung

Um ein Bild aus der Zwischenablage in Excel einzufügen, benötigst Du VBA. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. VBA-Editor öffnen:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Neues Modul hinzufügen:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle Einfügen -> Modul.

  3. VBA-Code einfügen:

    • Kopiere den folgenden Code und füge ihn in das neue Modul ein:
    Option Explicit
Private Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long

Type RECTB
   Left   As Double
   Top    As Double
   Width  As Double
   Height As Double
   Name   As String
End Type

Sub BildAendern()
   Dim R As RECTB

   If IsClipboardFormatAvailable(2) <> 0 Then   ' 2 = CF_BITMAP
       If TypeName(Selection) = "Picture" Then
           With Selection
               R.Left = .Left:   R.Top = .Top
               R.Width = .Width: R.Height = .Height
               R.Name = .Name
               .Delete
           End With
           ActiveSheet.Paste
           With Selection
               .ShapeRange.LockAspectRatio = msoFalse
               .Left = R.Left:     .Top = R.Top
               .Height = R.Height: .Width = R.Width
               .Name = R.Name
           End With
       Else
           MsgBox "Es ist kein Zielbild markiert!", vbCritical, "Bild ändern"
       End If
   Else
       MsgBox "Es ist kein Quellbild in der Zwischenablage!", vbCritical, "Bild ändern"
   End If

End Sub

  4. Makro ausführen:

    • Schließe den VBA-Editor und kehre zu Excel zurück. Wähle das Bild aus, das Du ersetzen möchtest, und führe das Makro BildAendern aus.

  5. Letzte Aktualisierung speichern:

    • Um das Datum in Zelle M39 zu aktualisieren, füge folgende Zeile am Ende des Codes hinzu: 
      Tabelle1.Range("M39").Value = Date

Häufige Fehler und Lösungen

  • Fehlermeldung: "Nach End Sub, Function oder End Property können nur Kommentare stehen":

    • Stelle sicher, dass der gesamte Code korrekt in ein leeres Modul eingefügt wurde und keine zusätzlichen Zeilen nach End Sub vorhanden sind.

  • Bild wird nicht eingefügt:

    • Überprüfe, ob ein Bild in der Zwischenablage vorhanden ist. Du kannst dies testen, indem Du das Bild manuell in Excel einfügst.

Alternative Methoden

Falls Du nicht mit VBA arbeiten möchtest, kannst Du auch das Bild manuell in Excel einfügen:

  1. Kopiere das Bild in die Zwischenablage (Rechtsklick auf das Bild und "Kopieren" wählen).
  2. Gehe zu Excel und wähle die Zelle aus, in der das Bild eingefügt werden soll.
  3. Drücke Strg + V, um das Bild in die aktive Zelle einzufügen.

Diese Methode eignet sich, wenn Du keine VBA-Kenntnisse hast oder schnell ein Bild einfügen möchtest.

Praktische Beispiele

  • Eingabemaske für Wartungen:
    • Du könntest eine Excel-Eingabemaske erstellen, um Bilder von Wartungen zu verwalten. Bei jedem Update kannst Du das Bild aus der Zwischenablage einfügen und das Datum der letzten Aktualisierung in einer dazugehörigen Zelle speichern.

Tipps für Profis

  • VBA zwischenablage leeren:

    • Um die Zwischenablage mit VBA zu leeren, kannst Du folgende Zeile verwenden: 
      Application.CutCopyMode = False

  • Optimierung des Codes:

    • Überlege, wie Du den Code so anpassen kannst, dass er mehrere Bilder gleichzeitig verarbeitet, um Deine Effizienz zu steigern.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass das Bild korrekt eingefügt wird? Um sicherzustellen, dass das Bild korrekt eingefügt wird, prüfe, ob das ursprüngliche Bild in der Zwischenablage vorhanden ist, bevor Du das Makro ausführst.

2. Kann ich die Größe des eingefügten Bildes anpassen? Ja, Du kannst die Eigenschaften Width und Height im VBA-Code anpassen, um die Größe des eingefügten Bildes zu ändern.

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