Bild in Zelle einfügen und Zeilenhöhe anpassen

Hallo liebe VBA-Experten,
Ausgangssituation:
Ich habe ein Userform in dem ich verschiedene Eingaben vornehmen kann. Diese werden dann mit einem Command Button automatisch in eine bestimmte leere Zeile (Zeile i) geschrieben, die per Makro gesucht wird. Das funktioniert soweit alles.
Jetzt zu meinem Problem:
Ich will zudem unterhalb der eingefügten Zeile (also i+1) in einer festen Spalte (Spalte C) ein JPG-Bild einfügen (der "Einfügen-Code" sollte also im "CommandButton Code" eingebettet werden).
Die Breite soll idealerweise die Breite der Spalte C haben und die Höhe soll sich im Verhältnis der Originalgrößen anpassen (damit das Bild nicht verzerrt wird). Wenn möglich sollte sich dann die Zeilenhöhe der Zeile i+1 an die Höhe des Bildes anpassen.
Der Pfad/Dateiname der Bilddatei ist bekannt und steht als Text in einer Textbox (Textbox4) im Userform. Falls kein Bild hinzugefügt wird (also Textbox4 = "") soll nichts passieren und die Zeilenhöhe unverändert bleiben.
Dieses Problem übersteigt meine VBA-Kenntnisse (leider) bei weitem und ich bin euch dankbar für eure Hilfe!!
Schöne Grüße Felix

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim start As String Dim ziel As String Dim test1 As String Dim test2 As String Dim test3 As String Dim test4 As String Dim test5 As String Dim test6 As String Dim bauteil As String Dim nr As String start = "Nr." 'damit wird die Zeile gesucht, in der das Wort "Nr." steht. i = 1 'Die Zeile danach ist die Zeile, in die der erste Schaden geschrieben wird. Do i = i + 1 ziel = Cells(i, 1).Value Loop Until ziel = start i = i + 1 If WorksheetFunction.CountA(Rows(i)) = 0 Then 'Hier wird geprüft ob die gesucht Zeile leer ist. _ zeileinf1 = i + 1 ActiveSheet.Cells(zeileinf1, 1).EntireRow.Insert 'Ist die Zeile leer, wird eine Zeile _ eingefügt, 'in die der Schaden geschrieben wird 'Die Boxen aus dem Userform werden hier in die entsprechenden Zeilen geschrieben Cells(i, 1).Value = Me.ComboBox6.text & "_" & Me.TextBox3.text Cells(i, 2).Value = TextBox1.text Cells(i, 3).Value = TextBox2.text Cells(i, 4).Value = ComboBox1.text Cells(i, 5).Value = ComboBox2.text Cells(i, 6).Value = ComboBox3.text Else 'Falls die Zeile nicht leer ist wird Schritt für Schritt jede Zeile darunter 'geprüft ob die 6 zu beschreibenden Spalten leer sind, bis eine Zeile komplett leer _ ist. Z = i Do Z = Z + 1 test1 = Cells(Z, 1).Value test2 = Cells(Z, 2).Value test3 = Cells(Z, 3).Value test4 = Cells(Z, 4).Value test5 = Cells(Z, 5).Value test6 = Cells(Z, 6).Value Loop Until test1 = "" And test2 = "" And test3 = "" And test4 = "" And test5 = "" And _ test6= "" zeileinf2 = Z + 1 'Wenn eine leere Zeile gefunden ist, wird wieder eine neue Zeile 'eingefügt, in die der Schaden eingetragen wird. ActiveSheet.Cells(zeileinf2, 1).EntireRow.Insert 'Der Schaden wird hier eingetragen Cells(Z, 1).Value = Me.ComboBox6.text & "_" & Me.TextBox3.text Cells(Z, 2).Value = TextBox1.text Cells(Z, 3).Value = TextBox2.text Cells(Z, 4).Value = ComboBox1.text Cells(Z, 5).Value = ComboBox2.text Cells(Z, 6).Value = ComboBox3.text End If End End Sub

Hallo Felix,
ungetestet!

Private Sub CommandButton1_Click()

Dim start As String
Dim ziel As String
Dim test1 As String
Dim test2 As String
Dim test3 As String
Dim test4 As String
Dim test5 As String
Dim test6 As String
Dim bauteil As String
Dim nr As String
Dim pic As Picture


start = "Nr."   'damit wird die Zeile gesucht, in der das Wort "Nr." steht.
i = 1           'Die Zeile danach ist die Zeile, in die der erste Schaden geschrieben wird.

Do
  i = i + 1
  ziel = Cells(i, 1).Value
Loop Until ziel = start

i = i + 1

If WorksheetFunction.CountA(Rows(i)) = 0 Then  'Hier wird geprüft ob die gesucht Zeile leer ist. _
    
  
  
  zeileinf1 = i + 1
  ActiveSheet.Cells(zeileinf1, 1).EntireRow.Insert    'Ist die Zeile leer, wird eine Zeile _
    eingefügt,
  'in die der Schaden geschrieben wird
  
  'Die Boxen aus dem Userform werden hier in die entsprechenden Zeilen geschrieben
  Cells(i, 1).Value = Me.ComboBox6.Text & "_" & Me.TextBox3.Text
  Cells(i, 2).Value = TextBox1.Text
  Cells(i, 3).Value = TextBox2.Text
  Cells(i, 4).Value = ComboBox1.Text
  Cells(i, 5).Value = ComboBox2.Text
  Cells(i, 6).Value = ComboBox3.Text
  If Len(TextBox4) Then
    If Dir(TextBox4, vbNormal) <> "" Then
      Set pic = ActiveSheet.Pictures.Insert(TextBox4)
      With pic.ShapeRange
        .LockAspectRatio = msoTrue
        .Left = Cells(i + 1, 3).Left
        .Width = Cells(i + 1, 3).Width
        .Top = Cells(i + 1, 3).Top
        Rows(i + 1).RowHeight = .Height
      End With
      Set pic = Nothing
    End If
  End If
  
Else    'Falls die Zeile nicht leer ist wird Schritt für Schritt jede Zeile darunter
  'geprüft ob die 6 zu beschreibenden Spalten leer sind, bis eine Zeile komplett leer _
    ist.
  
  Z = i
  
  Do
    Z = Z + 1
    
    test1 = Cells(Z, 1).Value
    test2 = Cells(Z, 2).Value
    test3 = Cells(Z, 3).Value
    test4 = Cells(Z, 4).Value
    test5 = Cells(Z, 5).Value
    test6 = Cells(Z, 6).Value
    
  Loop Until test1 = "" And test2 = "" And test3 = "" And test4 = "" And test5 = "" And _
    test6 = ""
  
  zeileinf2 = Z + 1   'Wenn eine leere Zeile gefunden ist, wird wieder eine neue Zeile
  'eingefügt, in die der Schaden eingetragen wird.
  ActiveSheet.Cells(zeileinf2, 1).EntireRow.Insert
  'Der Schaden wird hier eingetragen
  Cells(Z, 1).Value = Me.ComboBox6.Text & "_" & Me.TextBox3.Text
  Cells(Z, 2).Value = TextBox1.Text
  Cells(Z, 3).Value = TextBox2.Text
  Cells(Z, 4).Value = ComboBox1.Text
  Cells(Z, 5).Value = ComboBox2.Text
  Cells(Z, 6).Value = ComboBox3.Text
  
End If


End

End Sub

Gruß Sepp

Private Sub CommandButton3_Click() Dim varDateiname As Variant varDateiname = Application.GetOpenFilename If TypeName(varDateiname) = "Boolean" Then Exit Sub 'Abbrechen gewählt TextBox4 = varDateiname End Sub

Beliebteste Forumthreads (12 Monate)

Bild in Zelle einfügen und Zeilenhöhe anpassen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

416 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bild in Zelle einfügen und Zeilenhöhe anpassen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

416 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread