Vba:String zusammenfügen
07.10.2019 16:17:00
Christian
Ich versuche gerade mehere Wörter in einem String zusammen zu fügen.
Die Wörter in Zelle 3,6 bis 3,8 stehen dort immer und dieser Vorgang funktioniert auch gut.
Nach Zelle 3,8 können noch beliebig viele weitere Wörter eingefügt werden.
Diese sollen bei vorhandensein mit in den String eingelesen werden.
Wie gehe ich das am besten an?
Das untenstehende Makro fügt die 3 Begriffe bereits zusammen und schreibt jedesmal die Definiton davor.
Für die dynamisch hinzukommenden Wörter ab Zelle 3,9 soll lediglich durch ein "," getrennt jeder neue Namen eingelesen werden.
Sub Nameneinlesen()
Dim Reg As Worksheet
Set Reg = ThisWorkbook.Worksheets("Regression")
Dim Y As Variant 'Name des Abhängigen Wertes
Dim rf As String 'Names des Risikolosen Zinses
Dim X1 As String 'Name des Xi-ten Wertes
Dim Bez As String 'Gesamte Namensbezeichnung
Y = Reg.Cells(3, 6).Value
rf = Reg.Cells(3, 7).Value
X1 = Reg.Cells(3, 8).Value
Bez = "Y=" & Y & ";rf=" & rf & ";Xi=" & X1 & "," & .....(hier soll durch komma getrennt _
jeder weitere Begriff dynamisch auftauchen)
MsgBox Bez
End Sub
Vielen Dank Grüße
Christian