Krijg de gegevens niet uit de ComboBox

[Atwist]

Hallo

Ik probeer gegevens uit een ComboBox op de juiste plaats in mijn formulier maar ik krijg alleen maar de tekst "Onwaar".
Zie ik iets over het hoofd??

Range("Abtrettungserklärung!B7").Value = Frmkundeänderung.CT_09.ListIndex = 1
Range("Abtrettungserklärung!B8").Value = Frmkundeänderung.CT_09.ListIndex = 2
Range("Abtrettungserklärung!B9").Value = Frmkundeänderung.CT_09.ListIndex = 3

Zoja dan zal ik wel last van de warmte hebben

BTW de ComboBox is gevuld dus daar kan het niet aanliggen.

Fijne zondag iedereen.

 

[Ginger]

Je maakt een vergelijking met je listindex = 1 (enz...).
Het is dus iets van .listindex(1)
Al meen ik zo uit mijn hoofd dat de index bij nul begint.

 

[HSV]

Ongeveer zo.

Range("Abtrettungserklärung!B7").offset(Frmkundeänderung.CT_09.ListIndex)  = Frmkundeänderung.CT_09.value

Of:

with Frmkundeänderung.CT_09
 Range("Abtrettungserklärung!B7").resize(3)  = application.transpose(array(.column(0),.column(1),.column(2)))
end with

 

[Jack Nouws]

Zo zou je het ook kunnen benaderen

Range("Abtrettungserklärung!B7").Value = Frmkundeänderung.CT_09.Column(0)
Range("Abtrettungserklärung!B8").Value = Frmkundeänderung.CT_09.Column(1)
Range("Abtrettungserklärung!B9").Value = Frmkundeänderung.CT_09.Column(2)

 

[Atwist]

Helaas

Krijg ik telkens de fout 381 zie afbeelding.
Dus nu zoek ik in de eigenschappen van de CombiBox maar daar zie ik ook geen fout.

 

[HSV]

Eigenschappen > columncount op 3.

 

[Atwist]

Harry

Dit heb ik geprobeerd maar het helpt niets
Ik heb eigenlijk 5 colums die ik in het formulier ingevoerd moeten worden.
Al verschilende manieren geprobeerd.

Range("Abtrettungserklärung!B8").Value = Frmkundeänderung.CT_09.ListIndex(1)
Range("Abtrettungserklärung!B9").Value = Frmkundeänderung.CT_09.ListIndex(2)
Range("Abtrettungserklärung!B10").Value = Frmkundeänderung.CT_09.ListIndex(3)
Range("Abtrettungserklärung!B11").Value = Frmkundeänderung.CT_09.ListIndex(4) & "  " & Frmkundeänderung.CT_09.ListIndex(5)

Probeer een voorbeeld bestand te maken maar moet veel privacy uit gesloopt worden.

 

[HSV]

Een voorbeeldbestand is niets anders dan een nieuw leeg blad met een Userform met combobox en de gegevens om de combobox te vullen.

 

[Atwist]

Harry inderdaad,

Ik heb een voorbeeld bestand, ik dacht dat ik ook de formulieren mee moest sturen maar dat is onzin

 

[HSV]

Och, er zitten wat haperingen in, maar welke combobox van de 6 wil je wegschrijven?

Ct_09 met [KK_lst].Value ? die heeft 7 kolommen aan gegevens, maar je wil er 5?

Controleren of er iets gekozen is uit de combobox.

With CT_09
 If .ListIndex > -1 Then
   Range("c15").Resize(5) = Application.Transpose(Array(.Column(0), .Column(1), .Column(2), .Column(3), .Column(4)))
 End If
End With

 

[Atwist]

Inderdaad de CT_09 en die heeft 7 kolommen waarvan de 1e en de 7e niet in de formulieren word gebruikt.

de 1e kolom staan nummer die ik nergens gebruik en de 7e kolom word gebruikt ik het instelling gedeelte (Einstellungen).

 

[Atwist]

Het gaat hier mis

 If .ListIndex > -1 Then

Fout melding "Object vereist"

 

[Atwist]

Och, er zitten wat haperingen in,

Inderdaad heb telkens weer een andere melding momenteel weer een 1004 "Methode select van Klasse Worksheet is mislukt".

 

[HSV]

Wat niet functioneert bij mij heb ik even als tekst opgemaakt in de code.

Dit heb ik onder een nieuwe knop gezet.

Private Sub CommandButton1_Click()
With CT_09
 If .ListIndex > -1 Then
   Range("c15").Resize(5) = Application.Transpose(Array(.Column(1), .Column(2), .Column(3), .Column(4), .Column(5)))
 End If
End With
End Sub

Ik laat alleen combobox CT_09 wegschrijven naar C15:C19.

 

[Atwist]

Goedemorgen Harry,

Helaas heb ik aan mijn kant nu telkens deze fout

    Me("CT_" & Format(i, "00")) = LB_00.Column(i)

Als ik deze fout ophef door Boundcolum op 2 ipv. 1 zet dan kom ik verder maar dan loopt het weer vast op

If .ListIndex > -1 Then

Ik heb jou knop op onderstaande methode in de mijn bestand ingebouwd

Private Sub Cmd_15_Click()
With CT_09
 If .ListIndex > -1 Then
   Range("c15").Resize(5) = Application.Transpose(Array(.Column(1), .Column(2), .Column(3), .Column(4), .Column(5)))
 End If
End With
weiter_01
End Sub


Sub weiter_01()
Sheets("Abtrettungserklärung").Visible = True
Worksheets("Abtrettungserklärung").Select
'Kunde Daten
Range("E17").Value = Frmkundeänderung.CT_05 & "  " & Frmkundeänderung.CT_01
Range("E18").Value = Frmkundeänderung.CT_06
Range("E19").Value = Frmkundeänderung.CT_12
Range("E20").Value = Frmkundeänderung.CT_02 & "  " & Frmkundeänderung.CT_03 & "  " & Frmkundeänderung.CT_04
Range("C39").Value = Frmkundeänderung.CT_04
Range("C40").Value = Frmkundeänderung.L_20

Range("A1:I49").Select
Frmformulare.Hide
ActiveWindow.SelectedSheets.PrintPreview
Frmformulare.Show
Sheets("Abtrettungserklärung").Visible = False
Worksheets("Start").Select
End Sub

Zodat ik jou code eerst laat werken en dan overgaat naar de mijne

Heb een kleine wijziging aangebracht en nu is

If .ListIndex > -1 Then

fout ook weg, helaas geen gegevens in het formulier.

Private Sub Cmd_15_Click()
With [COLOR="#FF0000"]Frmkundeänderung.CT_09[/COLOR]
 If .ListIndex > -1 Then
   Range("c15").Resize(5) = Application.Transpose(Array(.Column(1), .Column(2), .Column(3), .Column(4), .Column(5)))
 End If
End With
weiter_01
End Sub

 

[Atwist]

Wij komen in de richting

Met deze wijziging krijg ik de gegevens al op de juiste plaats

Private Sub Cmd_15_Click()
With Frmkundeänderung.CT_09
 If .ListIndex > -1 Then
 Sheets("Abtrettungserklärung").Visible = True
 Worksheets("Abtrettungserklärung").Select
   Range("B7").Resize(4) = Application.Transpose(Array(.Column(1), .Column(2), .Column(3), .Column(4) & "   " & .Column(5)))
 End If
End With
weiter_01
End Sub

Alleen krijg ik een tweede adres gegevens in dit geval AOK Niedersachsen ........ wat niet moet waar dit vandaan komt is mij een raadsel.
En ik het nog een "#N/B" fout die ik niet weg krijg

 

[Atwist]

YES YES :love::love::love:

Het werkt, op een of andere manier werd het formulier niet schoongemaakt van gegevens nu dus wel

Ik dank Harry voor zijn bijdrage dit heeft mij een heel eind op de goede weg geholpen

Harry Bedankt:thumb::thumb: