Hallo zusammen,

ich habe folgendes Erfassungsformular erstellt, was soweit auch funktioniert:

Private Sub cmdAbbruch_Click()
'schliesst die Erfassung der Bauteile
    Unload frmErfassung
End Sub

Private Sub cmdEingabe_Click()
'fügt die Daten in das Tabellenblatt ein und schliesst die Erfassung der Bauteile
Dim intErsteLeereZeile As Long
           intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
              ActiveSheet.Cells(intErsteLeereZeile, 1).Value = Me.txtDatum.Value
              ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.txtObjektstrasse.Value
              ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.txtObjektstandort.Value
              ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txtEinbaulage.Value
              ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.txtAnzahl.Value
              ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.txtBauteil.Value
      Unload frmErfassung
End Sub

Private Sub UserForm_Initialize()
'Datumswert aktuell bei Formularaufruf eintragen
    With Me
        .txtDatum.Value = Date
    End With
End Sub

Nun möchte ich auch noch einen Bild auswählen und als Hyperlink mit dem Datensatz anfügen (z.B. in der Zeile an der 7. Stelle der Datenzeile)

Es könnte auch ein kleines Bild sein, so wie mit dieser Codezeile:

Sub DialogZeigen()
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.Width = 85.0393700787
End Sub

Leider bringe ich aber die Position zur Plazierung damit nicht in den Griff, dass diese immer beim Zeilenende eingefügt wird. Somit denke ich, eine definierter Link-Eintrag wäre in diesem Fall günstiger.

Kann mir jemand unter die Arnme greifen und mir die Codezeile benennen? Ich steh nämlich auf dem Schlauch :/

Danke!

Gruss, Juergen