Thema Datum  Von Nutzer Rating
Antwort
Rot Userform TxtBox Problem
04.08.2016 09:52:25 Lucas
****
Solved
04.08.2016 12:09:24 Lucas
Solved

Ansicht des Beitrags:
Von:
Lucas		 Datum:
04.08.2016 09:52:25		 Views:
1018		 Rating:
     
Antwort:
 Nein
Thema:
Userform TxtBox Problem

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Userform TxtBox Problem
04.08.2016 09:52:25 Lucas
****
Solved
04.08.2016 12:09:24 Lucas
Solved