und zwar möchte ich, dass wenn ich auf P1 klicke ein Bild suchen kann (funktioniert auch).
Der pfad zu diesem Bild wird mir dann auf eine Textbox ausgegeben (funktioniert auch).
Nun soll mit drücken auf Apply dieser Pfad als Hyperlink in die nächste freie Zelle geschrieben werden und das bekomme ich einfach nicht hin.
Excel schreibt nur den Pfad in die Zelle - ich weiß allerdings nicht wie ich diesen Pfad als Hyperlink hinbekomme.
Hier der Code:
Code:
Private Sub cmbPicture1_Click()
Dim strPfad As Variant
strPfad = Application.GetOpenFilename
If strPfad <> False Then
txtPicture1 = strPfad
Else
End If
End Sub
Private Sub cmbPicture2_Click()
Dim strPfad As Variant
strPfad = Application.GetOpenFilename
If strPfad <> False Then
txtPicture2 = strPfad
Else
End If
End Sub
Private Sub cmbPicture3_Click()
Dim strPfad As Variant
strPfad = Application.GetOpenFilename
If strPfad <> False Then
txtPicture3 = strPfad
Else
End If
End Sub
Private Sub cmdCancel_Click()
'Schließt Formular'
Unload Me
End Sub
Private Sub cmdApply_Click()
'Schließt Formular und speichert Daten'
Wobei ich das "ActiveSheet" noch umarbeiten würde. Nimm da lieber einen "With-Rahmen". Achte dann auf die Punkte. Das "Me" kannst du auch weglassen. Es verschiebt aber nicht die Erdachse, wenn du es drin lässt.
Code:
With Tabelle4
intErsteLeereZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(intErsteLeereZeile, 1).Value = txtNumber.Value
'
'
End With
du könntest z. B. prüfen, ob in der TextBox was steht:
Code:
If Trim(txtPicture1.Text) <> "" Then
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(intErsteLeereZeile, 23), Address:=txtPicture1.Text, TextToDisplay:=txtPicture1.Text
End If
wenn man die Eingabemaske öffnet soll beim Textfeld .txtNumber eine fortlaufende Zahl erscheinen.
Sprich wenn ich schon 5 Einträge in meiner Tabelle habe und ich die Eingabemaske starte, soll schon eine 6 darstehen.
Code:
Private Sub cmbPicture1_Click()
Dim strPfad As Variant
strPfad = Application.GetOpenFilename
If strPfad <> False Then
txtPicture1 = strPfad
Else
End If
End Sub
Private Sub cmbPicture2_Click()
Dim strPfad As Variant
strPfad = Application.GetOpenFilename
If strPfad <> False Then
txtPicture2 = strPfad
Else
End If
End Sub
Private Sub cmbPicture3_Click()
Dim strPfad As Variant
strPfad = Application.GetOpenFilename
If strPfad <> False Then
txtPicture3 = strPfad
Else
End If
End Sub
Private Sub cmdCancel_Click()
'Schließt Formular'
Unload Me
End Sub
Private Sub cmdApply_Click()
'Schließt Formular und speichert Daten'
27.07.2021, 10:35 (Dieser Beitrag wurde zuletzt bearbeitet: 27.07.2021, 10:41 von EA1950.)
Hallo,
habe dir in der SUB UserForm_Initialize() die nötigen 3 Zeilen hinzugefügt.
Ferner habe ich dir in der SUB cmdApply_Click() das DIM korrigiert (falscher Variablenname!)
Code:
Private Sub cmbPicture1_Click()
Dim strPfad As Variant
strPfad = Application.GetOpenFilename
If strPfad <> False Then
txtPicture1 = strPfad
Else
End If
End Sub
Private Sub cmbPicture2_Click()
Dim strPfad As Variant
strPfad = Application.GetOpenFilename
If strPfad <> False Then
txtPicture2 = strPfad
Else
End If
End Sub
Private Sub cmbPicture3_Click()
Dim strPfad As Variant
strPfad = Application.GetOpenFilename
If strPfad <> False Then
txtPicture3 = strPfad
Else
End If
End Sub
Private Sub cmdCancel_Click()
'Schließt Formular'
Unload Me
End Sub
Private Sub cmdApply_Click()
'Schließt Formular und speichert Daten'
Hyperlink VBA
![[-]](https://www.clever-excel-forum.de/images/collapse.png)