Office: Hyperlink in Userform

Hallo Ich habe Kurze Frage

ich habe Hyperlinkbutonn in Userform2
es Fuktionirt aber Übertragt in Tabelle Falsch (kwasi wo Maus steit dort macht er Link rein)

kann mir helfen das hyperlink immer in gleiche zeile Übertragt z.B F12

hier Code
Hinfüger Button

Code:

Private Sub CommandButton1_Click()
'auswahl = Application.GetOpenFilename()
'If Not auswahl = False Then TextBox1 = auswahl
 Z = Range("D12").End(xlUp).Row + 1
      
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(12, 4), _
      Address:=TextBox1
    
    Unload Me
auswahl = Application.Dialogs(xlDialogInsertHyperlink).Show
End Sub

[B]SchließButton[/B]

Private Sub CommandButton2_Click()
Unload Me
End Sub

Danke voraus

 

Hi,


Cells wird in der Form angegeben: Cells(Zeile, Spalte) - also kannst du das ganz einfach anpassen.

Ein Blick in die VBA-Hilfe ist in derartigen Fällen sehr hilfreich.

Bis später,
Karin

 

sorry was VBA brauchst du noch
das ist alles was ich für 2 Buttons hab?

Ja Cells sind drauf aber die Fuktioniren nicht richtig iggal was rei schreibst ?

ich binn nicht Große VBA Freund

 

Verstehe leider nur Bahnhof - also gar nichts.

Wenn du die aktive Zelle brauchst (die markiert ist), dann heißt das ActiveCell. Willst du eine bestimmte, dann so wie ich schon geschrieben habe.

Bis später,
Karin

 

OK Ich habe Problemm gelöst mit Makro
so

Code:

Private Sub CommandButton1_Click()
'auswahl = Application.GetOpenFilename()
'If Not auswahl = False Then TextBox1 = auswahl
 Z = Range("D12").End(xlUp).Row + 1
      
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(12, 4), _
      Address:=TextBox1
    Range("D12").Select
    Unload Me
auswahl = Application.Dialogs(xlDialogInsertHyperlink).Show
End Sub