Via combobox gegevens ophalen uit een ander tabblad

[davylenders123]

In de userform op tabblad Reparaties zit een combobox waar ik via Rowsource verwijs naar de cellen H1:H250 in hetzelfde tabblad.
Kan ik op de ene of andere manier de gegevens van de combobox ophalen uit een ander tabblad?

Hij zou de gegevens uit tabblad Overzicht scanners moeten halen in de kolom B

 

[davylenders123]

edmoor

Bedankt voor je snelle reactie :thumb:

Heb net je code toegepast en hij neemt de gegevens wel uit kolom B maar uit het tabblad waar de userform in staat (Reparaties).
Hij zou de gegevens uit tabblad Overzicht scanners moeten halen uit kolom B.

Hier zal waarschijnlijk enkel de naam Overzicht scanners aan de code moeten worden toegevoegd veronderstel ik, maar weet niet hoe

 

[davylenders123]

Raar bericht van edmoor is ineens verdwenen

 

[edmoor]

Ik had daarom ook al weer verwijderd, maar je was me voor
Komt goed.

 

[edmoor]

Wel eerst even de RowSource leeg maken:

Private Sub UserForm_Initialize()
  Dim snr() As Variant

  With Sheets("Overzicht scanners")
    snr = WorksheetFunction.Transpose(.Range("B3:B" & .Cells(1).CurrentRegion.Rows.Count - 1).Value)
  End With
  cbSerienummer.List = snr
  LblDatum = Format(Date, "dd-mm-yyyy")
End Sub

 

[Jack Nouws]

Of...

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Private Sub UserForm_Initialize()
  cbSerienummer.List = Sheets("Overzicht scanners").ListObjects(1).ListColumns("Serienummer").DataBodyRange.Value
  LblDatum = Format(Date, "dd-mm-yyyy")
End Sub
[/FONT]

 

[edmoor]

Die is beter, vanwege het list object

 

[davylenders123]

Beide bedankt voor jullie weeral zeer snelle oplossingen :thumb:

Het werkt :thumb: