Hallo liebe VBA Freunde,

ich stehe gerade vor einem kleinen Problem und komme einfach nicht weiter... Ich bin mir aber sich, dass ihr so lieb seid und mir helfen könnt :).

Nachfolgend kommen drei Codes. Der erste Teil funktioniert problemlos, der zweite auch aber diesen wrde ich gerne ändern. Die Änderung bekomme ich aber nicht hin.  

Sub OL_Ubersicht1_zu_Ausgabe()
Application.ScreenUpdating = False
Dim Suchergebnis As Range
Dim Range As Integer
Dim SuchWert As String
SuchWert = Cells(6, 6)
With Worksheets("PersonenDatenbank").Range("A1:A20")
Set Suchergebnis = .Find(SuchWert)
If Not Suchergebnis Is Nothing Then

Call Such_Kopiervorgang(Suchergebnis)

Else
    MsgBox "gibts net!."

End If
End With

End Sub      'bis hier funktioniert alles Einwandfrei!!

Sub Such_Kopiervorgang(Suchergebnis As Range)

Worksheets("PersonenDatenbank").Cells(Suchergebnis.Row, 1).Copy   
'Worksheets("PersonenAusgabe").Cells(6, 2).PasteSpecial      

End Sub 'Dies ist der alte Zweite Teil des Codes, welcher einwandfrei funktioniert!

'Was ich aber gerne möchte.. Neuer zweiter Teil 

Call Such_Kopiervorgang(Suchergebnis)

strategischeMA.Show        'Ich hätte gerne, dass er den Text aus der Datenbank in die TextBox1 der Usrform "strategischeMA" schreibt.
With stratgischeMA             'bekomme es aber einfach nicht hin :'(
TextBox1.Text = Worksheets("PersonenDatenbank").Cells(Suchergebnis.Row, 1)

End With 
End Sub

Über eure Hilfe bin ich sehr sehr dankbar.

Viele liebe Grüße

Lucas