在VBA中使用规则格式化输入

Question

不知道如何表达这个问题，但我真的不明白。

我想实现以下目标:

1. TextBox = TextVorname
2. TextBox = TextNachname

例如，我输入1。文本框"Markus"代入2。文本框"Neumann">

我想让它显示在书签"Ma.Ne_2022">

我有以下代码:

Private Sub OptionButton1_Click()
Dim VornameStr As String
VornameStr = Me.TextVorname.Caption
Dim NachnameStr As String
NachnameStr = Me.TextNachname.Caption
MyStrVorname = Left(VornameStr, 2)
MyStrNachname = Left(NachnameStr, 2)
MyStrFullname = MyStrVorname & "." & MyStrNachname & "_2022"

Call UpdateBookmark("test1", Me.MyStrFullname.Caption)
End Sub

Answer 1

你的问题有点模糊。也许这就是你想要的?

Dim MyVornameStr As String
Dim MyNachnameStr As String
Dim MyStrFullname As String
MyStrVorname = Left(Me.TextVorName.Text, 2)
MyStrNachname = Left(Me.TextNachName.Text, 2)
MyStrFullname = MyStrVorname & "." & MyStrNachname & "_2022"
Call UpdateBookmark("test1", MyStrFullname)