Udtræk fra multi listbox

prøv med noget i dnne dur. Går ud fra at din liste hedder MONTHS

Private Sub CommandButton2_Click()
Dim i As Integer
For i = 0 To listbox1.ListCount - 1
  If listbox1.Selected(i) Then
  [MONTHS].Offset(i, 1) = listbox1.List(i)
  End If
Next i
End Sub

Lige en lille fehler

Private Sub CommandButton2_Click()
Dim i As Integer
For i = 0 To listbox1.ListCount - 1
  If listbox1.Selected(i) Then
  [MONTHS].Offset(i, 1) = 1
  End If
Next i
End Sub

Det er vist ikke helt rigtigt, men for at lave offset'en skal man bruge det første element.
Range("B1").Offset(i, 1) = 1

Det var bedre .... Tak skal du have bak.
Der er stadig en del VBA at lære ...... :-)
Smider du lige et svar.

s'føli :-)

Min kode kom til at se sådan ud:

Private Sub cmdOk_Click()
    Dim i As Integer
    For i = 0 To lboMåneder.ListCount - 1
        If lboMåneder.Selected(i) Then
            Worksheets("List").Range("B1").Offset(i, 0) = 1
        End If
    Next i
    Unload Me
End Sub

Måske du kunne hjælpe med det lille tillægsspørgsmål:
Hvis jeg nu ønsker en streng, som ser sådan ud "001100000000", hvis man f.eks. vælger februar og marts, hvordan ser koden så ud?

Undskyld, der skal stå "..... hvis man f.eks. vælger marts og april ...".

vil du have denne streng placeret ud for de aktuelle måneder eller vil du bare have den ud een gang

Forløbig bare som en variabel i koden.
Det er ment som et "sammenkog" af alle månedsvalg.

Jeg blander mig lige

Private Sub cmdOk_Click()
    Dim i As Integer
    Dim sMonth As String
    For i = 0 To lboMåneder.ListCount - 1
        If lboMåneder.Selected(i) Then
            Worksheets("List").Range("B1").Offset(i, 0) = 1
        sMonth = sMonth & "1"
        Else
            sMonth = sMonth & "0"
        End If
    Next i
    Range(WhereEver).NumberFormat = "000000000000"
    Range(WhereEver).Text = sMonth
    Unload Me
End Sub

Har løst det:
Private Sub cmdOk_Click()
    Dim i As Integer
    Dim Valg As Integer
    Dim Streng As String
   
    For i = 0 To lboMåneder.ListCount - 1
        If lboMåneder.Selected(i) Then
            Worksheets("List").Range("B1").Offset(i, 0) = 1
            Valg = "1"
        Else
            Valg = "0"
        End If
        Streng = Streng & Valg
    Next i
    'Worksheets("List").Range("B14").Value = streng
    Unload Me
End Sub

:-) hej flemming, jeg nåede lige at opdatere

Private Sub cmdOk_Click()
Dim st As String
    Dim i As Integer
    For i = 0 To lboMåneder.ListCount - 1
        If lboMåneder.Selected(i) Then
            st = st & "1"
            Worksheets("List").Range("B1").Offset(i, 0) = 1
        Else
            st = st & "0"
        End If
    Next i
    Unload Me
End Sub

Takker flemming.
Rart at se, at du stadig kigger forbi ind i mellem :-)

Det sker nu og da :-)

I skulle nu lige kigge forbi denne her http://www.eksperten.dk/spm/437942 måske i kan bruge den sidste løsning.... det virker faktisk rigtig godt.

Tjekker ....

Ja, det fungerer upåklageligt.
Hvorfor er det nødvendigt med både en Worksheet_SelectionChange og en Worksheet_Change?

Det smarte er at han bruger Worksheet_SelectionChange til at huske hvad der stod i cellen/rne inden de bliver ændret (indlæses i de variable han definerer i toppen), og derefter genbruger disse værdier når cellen/rne er blevet ændret Worksheet_Change

smart

tak bak - præcist.... men når der er valgt flere celler, og der indtastes i dem, så skifter ActiveCell, men det reagerer Worksheet_SelectionChanges ikke på... derfor bruges Worksheet_Change faktisk også til at huske den aktive cells tidligere værdi...

Det var da en væsentlig detajle, jeg der havde overset :-)

Ok, så blev jeg lidt klogere :-)

Der var én måde makroen ikke fungerede helt hensigtsmæssigt på:
Jeg opdaterer ofte mange celler ad gangen ved at markere et område og så taste en værdi efterfulgt af CTRL+ENTER. Herved bliver alle celler udfyldte med den pågældende værdi.
I makroen bliver kun den første celle (den aktive) behandlet.

Ja, den kan kun håndtere en celle ad gangen, men kan sikkert udvides, hvis det en dag slukke blive nødvendigt *gg*