Potrebujem vediet:
- ako sa zapisuje ComboBox a TextBox, lebo tak ako som to zapisal ja to nefunguje
- Textboxu: hodnotu priradit k premennej
- ComboBox: tvorba zoznamu a priradenie premenej


1) definovať default hodnoty - fn: UserForm_Activate()
v tvojom kóde by sa dupľovali voľby výberu pri každej zmene

2) premenné použiteľné v celom kóde:
Global a As Variant, b As Variant, c As Variant (definovať v module)

3) šírka prvku a šírka zoznamu môžu byť rozdielne - viď ComboBox1

TIP: Vo VBA okne pri úprave UserFormu po stlačení F4 sa zobrazí okno s vlastnosťami. Zobrazené vlastnosti pre daný objekt (napr. ComboBox) možno nastaviť alebo aspoň čítať ich hodnoty.
F1 - pomôže vždy :)

Celá funkcia:

Private Sub UserForm_Activate()

Dim xPU, aPU
xPU = "SLSP;VUB;Tatra Banka": aPU = Split(xPU, ";")

On Error GoTo xErr:
' ComboBox: tvorba zoznamu
With Me.ComboBox1
For i = 0 To 2
.AddItem aPU(i)
Next i
.Width = 100
.ListWidth = 80 'nie "DropDownWidth"
.ListRows = 2 'nie "DropDownLines"

'ComboBox: priradenie premenej
.Value = aPU(0)
End With

With Me.ComboBox2
For i = 0 To 2
.AddItem aPU(i)
Next i
.Value = aPU(1)
End With

With Me.ComboBox3
For i = 0 To 2
.AddItem aPU(i)
Next i
.Value = aPU(2)
End With


'TextBox: priradenie premenej
Me.TextBox1.Value = "A"
Me.TextBox2.Value = "B"
Me.TextBox3.Value = "C"

xResume:
Exit Sub
xErr:
GoTo xResume
End Sub

Palo

- super presne toto som chcel

dakujem za pomoc .... dalsia dobra vec co mozem pouzivat v svojich makrach :)