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
|