AW: Adressdaten aus ZWA in Textboxes
21.08.2020 12:18:13
Nepumuk
Hallo Wolfgang,
teste mal:
Private Sub UserForm_Activate()
Dim strText As String
Dim avntValues As Variant, vntItem As Variant
Dim ialngIndex As Long, lngIndex As Long
Dim objClipBoard As DataObject
Set objClipBoard = New DataObject
Call objClipBoard.GetFromClipboard
strText = objClipBoard.GetText
Set objClipBoard = Nothing
avntValues = Split(strText, vbCrLf)
TextBox1.Text = Split(avntValues(0), " ")(0)
For Each vntItem In Split(avntValues(0), " ")
If Right$(vntItem, 1) = "," Then Exit For
lngIndex = lngIndex + 1
Next
For ialngIndex = 1 To lngIndex
TextBox2.Text = TextBox2.Text & Split(avntValues(0), " ")(ialngIndex) & " "
Next
TextBox2.Text = Replace$(TextBox2.Text, ",", vbNullString)
TextBox2.Text = Trim$(TextBox2.Text)
For ialngIndex = lngIndex + 1 To UBound(Split(avntValues(0), " "))
TextBox3.Text = TextBox3.Text & Split(avntValues(0), " ")(ialngIndex) & " "
Next
TextBox3.Text = Trim$(TextBox3.Text)
TextBox4.Text = avntValues(1)
TextBox5.Text = Split(avntValues(2), " ")(0)
For ialngIndex = 1 To UBound(Split(avntValues(2), " "))
TextBox6.Text = TextBox6.Text & Split(avntValues(2), " ")(ialngIndex) & " "
Next
TextBox6.Text = Trim$(TextBox6.Text)
End Sub
Gruß
Nepumuk