Thema Datum  Von Nutzer Rating
Antwort
Rot Bild mit VBA aus Zelle kopieren und in andere Zelle einfügen
31.05.2024 15:08:49 Tobias
NotSolved
31.05.2024 17:06:18 ralf_b
NotSolved
03.06.2024 08:44:09 Tobias
NotSolved
06.06.2024 06:07:10 ralf_b
Solved

Ansicht des Beitrags:
Von:
Tobias
Datum:
31.05.2024 15:08:49
Views:
709
Rating: Antwort:
  Ja
Thema:
Bild mit VBA aus Zelle kopieren und in andere Zelle einfügen

Hallo zusammen, ich bin nicht wirklich in VBA drinnen und verzweifle gerade etwas daran.

Im Endeffekt versuche ich einfach nur ein Bild aus einer Zelle zu kopieren und dieses dann an einer anderen Stelle wieder in eine entsprechende Zelle einzufügen. Das Makro an sich funktioniert aber das Zielfeld, wo das Bild rein soll, bleibt leider leer.

Vielleicht erkennt ja einer von euch mit mehr Erfahrung als ich worin der Fehler liegt.

Ich bin über jede Hilfe sehr dankbar!

Merci!

Tobi

Anbei der Quellcode:

Sub KundenBearbeiten_DBEingabe()

    ' Tabelle einlesen
    Dim tbl As ListObject
    Set tbl = tb_Datenbank.ListObjects(1)
    Dim Zeile As Long
    Zeile = ActiveCell.Row - tbl.HeaderRowRange.Row

    With tb_Eingabeformular

        ' Spalten leeren
        .Columns("H").ClearContents
        .Columns("L").ClearContents
        
        ' Eingabeformular befüllen
        .Range("H12").Value = tbl.DataBodyRange(Zeile, 1).Value
        .Range("H18").Value = tbl.DataBodyRange(Zeile, 3).Value
        .Range("H20").Value = tbl.DataBodyRange(Zeile, 4).Value
        .Range("H22").Value = tbl.DataBodyRange(Zeile, 5).Value
        
        ' Bildverarbeitung
        Dim Bild As Picture
        For Each Bild In tb_Datenbank.Pictures
            If Not Intersect(Bild.TopLeftCell, tbl.DataBodyRange(Zeile, 2)) Is Nothing Then
                ' Bild kopieren
                Bild.CopyPicture
                
                ' Zielzelle auswählen und Bild einfügen
                .Range("H28").Select.PastePictureInCell
                Exit For ' Nur ein Bild kopieren
            End If
        Next Bild
        
        .Range("L18").Value = tbl.DataBodyRange(Zeile, 6).Value
        .Range("L20").Value = tbl.DataBodyRange(Zeile, 7).Value
        .Range("L22").Value = tbl.DataBodyRange(Zeile, 8).Value
        .Range("L24").Value = tbl.DataBodyRange(Zeile, 9).Value
        .Range("L26").Value = tbl.DataBodyRange(Zeile, 10).Value
        
        
        ' Navigieren auf das Eingabeformular
        .Shapes.Range(Array("txt_Anlegen", "img_Anlegen")).Visible = False
        .Shapes.Range(Array("txt_Bearbeiten", "img_Bearbeiten")).Visible = True
        .Select
        
        ' Zelle auswählen
        .Range("H18").Select

    End With

End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bild mit VBA aus Zelle kopieren und in andere Zelle einfügen
31.05.2024 15:08:49 Tobias
NotSolved
31.05.2024 17:06:18 ralf_b
NotSolved
03.06.2024 08:44:09 Tobias
NotSolved
06.06.2024 06:07:10 ralf_b
Solved