Userform igen igen

Hejsa

Jeg håber du kan omsætte følgende til dit eget eksempel.

Flemming

Private Sub Et_Eller_Andet_Tilfældigt()
Dim st As String \'Midlertidig værdi
Dim i As Integer
  For i = 0 To ListBox1.ListCount - 1
    st = ListBox1.List(i, 1)
    ListBox1.List(i, 1) = ListBox1.List(i, 0)
    ListBox1.List(i, 0) = st
  Next
End Sub

Hmm ja, men hvis nu ombytningen skal ske ved brug af en commandbutton??

Den var nem.

Private Sub Commandbutton1_Click()
Dim st As String \'Midlertidig værdi
Dim i As Integer
  For i = 0 To ListBox1.ListCount - 1
    st = ListBox1.List(i, 1)
    ListBox1.List(i, 1) = ListBox1.List(i, 0)
    ListBox1.List(i, 0) = st
  Next
End Sub

Der er lidt problemer med min liste.. min listbox er pt. fyldt med rækker fra excel.. der det et problem??

Det er jo et helt andet problem. Så kunne det være, at du skulle bytte om på kolonnerne i excel i stedet for.

Ja ok der var jeg doven.. det var en opstilling jeg lige ville prøve. mit projekt kører med en listbox (runtime) jeg prøver lige..!

Yess en rundstykke, en kop kaffe og så... mange tak Flemming!! 45 point til dig!