Føje ny værdi til rowsource

Prøv denne:

Set VærdiFund = Sheets("Ark2").Range("B20:B30").Cells.Find(what:=ComboBox, LookIn:=xlFormulas, lookat:=xlWhole)

        If VærdiFund Is Nothing Then
            Range("B31").End(xlUp).Offset(1, 0).Value = Me.ComboBox.Value
            Exit Sub
        End If

Tak C_Thyge, det ser godt ud! Jeg tester og vender tilbage :)

Fino. Jeg kan se at der er en lille fejl i koden, som muligvis vil få betydning for dig afhængig af hvilket ark du befinder dig i.

Der burde stå "Sheets("Ark2")." foran "Range("B31")", så værdien ikke indsættes i det forkerte ark.

Her er din kode tilpasset mine objekter:

Set nykategori = Sheets("Konfiguration").Range("B32:B81").Cells.Find(what:=cbkategori, LookIn:=xlFormulas, lookat:=xlWhole)

        If nykategori Is Nothing Then
            Range("B32").End(xlUp).Offset(1, 0).Value = Me.cbkategori.Value
            Exit Sub
        End If

Det sære er, at den indsætter værdien i B30?! Der er to værdier på listen, i 32 og 33.

Min fejl. Der skal stå 81 i stedet for 31 - fordi mit eksempels slutværdi tilfældigvis var lig mit rigtige arks værdi! Sorry :).

Det virker, tak. Lige pludselig virker resten af koden så ikke, men det er nok ikke pga det her. Hvis du smider et svar, så får du dine point. Og jeg lærte den der find-ting til en anden gang - det er kanon!

Ændre den til dette:

Set nykategori = Sheets("Konfiguration").Range("B32:B81").Cells.Find(what:=cbkategori, LookIn:=xlFormulas, lookat:=xlWhole)

        If nykategori Is Nothing Then
            Sheets("Konfiguration").Range("B82").End(xlUp).Offset(1, 0).Value = Me.cbkategori.Value
            Exit Sub
        End If

Den søger sidste linje nedefra og op. Så "startcellen" skal ikke være B32, men blot en celle der er under sidste linje i dit rowsource. Jeg har sat den til B82.

Jo det er på grund af min kode... Sorry! Slet "Exit Sub", så skulle den gerne virke. Bare noget som jeg havde i min testfunktion og glemte at slette.

Haha :D... så forstår jeg det bedre! Min ellers ret lange GEM kode, blive lige pludselig meget tam :)

Jeg kunne have været skyld i mange timers fortvivlelse :) beklager igen, men godt det virker nu. God weekend!

Ja, det kunne godt være gået meget mere galt. Det var godt jeg gjorde opmærksom på det og at du opdagede fejlen. Men det havde stadig været min egen "skyld", i det det er mig der beder om hjælpen.

Tak i lige måde, og tak for den finde kodebid :).