In de combobox kan ik alleen de waarden uit een kolom selecteren niet uit een rij.

[Eastw00d]

ik ben bezig met het ontwerpen van een userform.
In dit userform wil ik een maand kunnen selecteren, waarna ik verschillende waarden zie in textboxen. Deze waarden moeten aangepast kunne worden, maar dat is van later zorg.
Op dit moment loop ik tegen het volgende aan:
In de combobox kan ik alleen de waarden uit een kolom selecteren (Dus in dit geval A of B of C), terwijl ik de waarden uit een rij wil kunnen selecteren (Jan of Fe of Mrt enz).
Vervolgens moeten de waarden A,B en C worden uitgelezen van de betreffende cel.
Ik ben al zover dat als ik A selecteer, er de waarden komen te staan, echter veranderen deze niet mee.

Wat zijn dus mijn vragen:
Hoe zet ik de combobox om van lezen uit kolom naar lezen uit een rij?
Hoe laat ik de waarden mee verspringen?


Bekijk bijlage help.xlsm

 

[mvw64]

Misschien kan je er zo iets mee

 

[Cobbe]

Probeer deze eens:

Private Sub UserForm_Initialize()
   ComboBox1.List = Application.GetCustomListContents(3)
End Sub

 

[Eastw00d]

Misschien kan je er zo iets mee

Hij werkt!

Nu heb ik de volgende code toegevoegd om gegevens weg te schrijven naar het sheet, maar als ik deze uitvoer dan lijkt er niets te gebeuren.

Private Sub CommandButton1_Click()

If Me.ComboBox1.Value = "Jan" Then
Range("B2").Value = Me.TextBox1.Value
Range("B3").Value = Me.TextBox2.Value
Range("B4").Value = Me.TextBox3.Value
End If


End Sub

Wat gaat er nu fout?

 

[Cobbe]

Daar staat effectief 'Jan' en je zoekt naar de maand januari(1).

 

[Eastw00d]

Mijn dank is groot!

De code werkt nu als een tierelier

 

[HSV]

Is dit niet gemakkelijker?

Private Sub CboPart_Change()
  TextBox1.Value = CboPart.Column(1)
  TextBox2.Value = CboPart.Column(2)
  TextBox3.Value = CboPart.Column(3)
End Sub




Private Sub UserForm_Initialize()
   CboPart.List = Application.Transpose(Cells(1, 2).CurrentRegion.Offset(, 1).SpecialCells(2).Value)
End Sub

Wel je RowSource 'naam' verwijderen.

 

[Eastw00d]

Is dit niet gemakkelijker?

Private Sub CboPart_Change()
  TextBox1.Value = CboPart.Column(1)
  TextBox2.Value = CboPart.Column(2)
  TextBox3.Value = CboPart.Column(3)
End Sub




Private Sub UserForm_Initialize()
   CboPart.List = Application.Transpose(Cells(1, 2).CurrentRegion.Offset(, 1).SpecialCells(2).Value)
End Sub

Wel je RowSource 'naam' verwijderen.

Gaat idd beter tot ik deze sheet onderdeel maak van meerdere sheets, dan roept de userform de cellen op de huidige sheet aan

 

[HSV]

Dan zet je de bladnaam ervoor.

CboPart.List = Application.Transpose([COLOR=#0000ff]sheets("bladnaamhier").[/COLOR]Cells(1).CurrentRegion.Offset(, 1).SpecialCells(2).Value)

 

[Eastw00d]

ik blijf bezig.
Alles draait, alleen deze code geeft een foutmelding dat hij geen object kan vinden

Private Sub ComboBox1_Change()
If ComboBox1.Value = "januari" Then
For i = 1 To 26
  Me("box" & i).Value = Worksheets("Uitgaven").Range("B" & i)
  Next i
End If
End Sub

Waar zit deze fout

 

[Cobbe]

Kijk eens of dit u verder helpt.

 

[Eastw00d]

Kijk eens of dit u verder helpt.

hij doe wel wat ik wil, maar op deze manier moet hij 26 textboxes vullen. Ik dacht dat ik dat op kon lossen met de code

For i = 1 To 26
  Me("box" & i).Value = Worksheets("Uitgaven").Range("B" & i)
  Next i

Maar dan gaat hij fout.
Het erge is, dat ik het draaiend heb gekregen, vervolgens excel wou afsluiten en mijn werk niet had opgeslagen.

 

[Cobbe]

Zo dan?

 

[HSV]

Plaats het niet werkend bestand.

 

[Eastw00d]

Plaats het niet werkend bestand.

het is werkend. Ik had voor een rij textboxes de naambox(nr) gebruikt en ergens stond er boC(nr) ipv boX(nr).
dus logisch dat hij geen object kon vinden!
Maar in ieder geval bedankt voor je aangeboden hulp

 

[HSV]

Volgens mij gebruik je nog steeds de 'find' methode incl. de verwijzingen naar je blad waar de gegevens zich bevinden.

Totaal overbodig lijkt mij.
De gegevens staan allemaal in je combobox.

Het bestand maar even gemaakt voor geïnteresseerden (toekomstige vragenstellers).
In de combobox staat columncount op 9 om een indruk te geven hoe dat eruit ziet.
Zet in de eigenschappen van de combobox de columncount op 1 voor het verschil.