Michael's Enduro Page - Enduro Termine 2000

Daten an eine Userform übergeben:

Variablen im Modul als Public deklarieren und dann in der UserForm aufrufen:
==> Das würde in einem Modul stehen:

Option Explicit
Public test As String

Sub LosGehts()
' Public Variable test mit einem Wert füllen
test = "Hallo Welt"

' Userform 1 aufrufen
UserForm1.Show

End Sub

==> Das würde in einer Userform mit einem Label stehen um im Label1 den Text "Hallo Welt" darzustellen,....

Private Sub UserForm_Initialize()

With Label1
.Caption = test
End With

End Sub

.... Back to Top

.... Back to Mainpage

String kürzen:
Einen vorhendenen String auf eine feste Länge kürzen:

Sub schnitt()

Dim a As String ' Ausgangsvariable
Dim b As String ' Beschnittene variable

a = "82712345-4"
b = Left(a, 8)

MsgBox ("A ist unbeschnitten: " & a & Chr(13) & "Beschnitten ist das dann: " & b & Chr(13) & "Direkter Beschnitt = " & Left(a, 8))

End Sub

.... Back to Top

.... Back to Mainpage