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, 11:35 (Dieser Beitrag wurde zuletzt bearbeitet: 27.07.2021, 11: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)