Attribute VB_Name = "Modul1"
'entwickelt von Winfried Radner
'e-mail: Wolf.W.Radzinski@onlinehome.de
'Benutzung frei - ohne Gewähr

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'arbeitet auf GANZEM Arbeitsblatt
Sub uf()
  UserForm1.Caption = "UF"
  UserForm1.ob_Blatt = True
  UserForm1.str_laenge = 1
  UserForm1.Show
End Sub

'nutzt NUR Selection
'setze Stringlänge auf konstant 3
Sub uf_3s()
  UserForm1.Caption = "UF_s"
  UserForm1.ob_Selection = True
  UserForm1.str_laenge = 3
  UserForm1.Show
End Sub