Met userform data ophalen en veranderen

[schuurar]

Beste Rudi,

SUPER !!!! Zo ziet en werkt het prima (bijna)
Krijg nu alleen nog een foutmeldig.



Ik krijg deze melding als ik een nieuw recept wil aanmaken in een map waar nog niets in staat.
Is daar nog wat aan te doen?

 

[Warme bakkertje]

Private Sub ComboBox1_Change()
    If ComboBox1.Value = vbNullString Then Exit Sub
    CommandButton1.Enabled = True
    ComboBox30.Value = vbNullString
   [COLOR="#FF0000"] If WorksheetFunction.CountA(Sheets(ComboBox1.Value).Columns(2)) = 0 Then Exit Sub[/COLOR]
    With Sheets(ComboBox1.Value)
        ComboBox30.List = .Range("B2:B" & .Cells(.Rows.Count, 2).End(xlUp).Offset(1).Row).Value
    End With
End Sub

Heb de rode regel toegevoegd. Dit werkt enkel zo als er geen kolomkop in kolom B v/h doelwerkblad staat, anders moet ge de 0 wijzigen in 1.

 

[schuurar]

Nu werkt hij helemaal TOP!!!

SUPER bedankt voor je hulp Rudi.
Nu kan ik weer verder "klooien"

Mvg,
Arjan