VBA: Function in Userform Textbox
13.10.2017 09:15:44
Bernd
Komme bei nachfolgendem Problem nicht weiter und bräuchte Eure Hilfe.
Also bei Verlassen derTextbox1 werden (siehe Code) über VLOOKUP die Werte die in die Textboxen eingelesen. D.h. ich suche folgenden Code sinngemäß: Nehme das Kürzel aus Textbox7 und steuere damit die Funktion "KURS_AB" an und geben den Wert an Textbox 2 weiter.
Private Sub TextBox1_AfterUpdate()
If TextBox1 = "" Then
Exit Sub
End If
With Application.WorksheetFunction
' TextBox2.Value = Textbox10.value
TextBox5.Value = .VLookup(TextBox1.Value, Worksheets("Kürzel").Range("A1:G141"), 3, False) _
'Indizes
TextBox6.Value = .VLookup(TextBox1.Value, Worksheets("Kürzel").Range("A1:G141"), 6, False) _
'Branche
TextBox7.Value = .VLookup(TextBox1.Value, Worksheets("Kürzel").Range("A1:G141"), 2, False) _
'Kürzel
TextBox8.Value = .VLookup(TextBox1.Value, Worksheets("Kürzel").Range("A1:G141"), 4, False) _
'ISIN
TextBox9.Value = .VLookup(TextBox1.Value, Worksheets("Kürzel").Range("A1:G141"), 5, False) _
'WKN
' TextBox10.Value = Formel muss hier hinein
TextBox12.SetFocus
End With
End Sub
Überschrift der Funktion: "Public Function KURS_AB(Symbol As String) As Double"
Formel in einer Tabellenzelle sieht so aus "KURS_AB(Symbol)" siehe Bild unten. Damit wird der aktuelle Börsenkurs der dem Symbol entspricht aus Yahoo Finance geladen. (Symbol) steht für Zelle in dem das Kürzel steht. In der Userform ist das in Textbox7. Ungefähr so: (Textbox10.Value= Textbox10(KURS_AB(Textbox7))?
Vielen Dank im Voraus.
Gruß aus Bremen
Bernd
Anzeige