Met Listbox zoeken maar dan opslaan

[Atwist]

Hallo,

Ik krijg de gegevens die ik met behulp van een Listbox selecteer naar Text en ComboBoxen maar als ik een van de gegevens wil/moet wijzigen zou ik deze willen opslaan.
Weet alleen niet hoe want de Listbox is na het selecteren weg dus hoe krijg ik de gegevens van het gezochte weer op de juiste plaats.

Dim suchen As Range
Private Sub UserForm_Initialize()
LL28.Caption = Format(Now, "dd. mmmm yyyy")
With Worksheets("Kunden_Daten")
   Set suchen = .Range("A1:S" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
With LB1
    .List = [suchen].Value
    Me.LB1.ColumnCount = 20
    
    .ColumnWidths = "120;120;40;120"
End With
End Sub


Private Sub LB1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With Sheets("Kunden_Daten")
Set suchen = .Columns("A:S").Find(LB1, LookAt:=xlWhole, LookIn:=xlValues)
     TB1 = LB1.List(LB1.ListIndex, 16)
     CB1 = LB1.List(LB1.ListIndex, 17)
     CB2 = LB1.List(LB1.ListIndex, 4)
     TB2 = LB1.List(LB1.ListIndex, 0)
     TB3 = LB1.List(LB1.ListIndex, 5)
     TB4 = LB1.List(LB1.ListIndex, 1)
     TB5 = LB1.List(LB1.ListIndex, 2)
     TB6 = LB1.List(LB1.ListIndex, 3)
     TB7 = LB1.List(LB1.ListIndex, 6)
     TB8 = LB1.List(LB1.ListIndex, 7)
     CB3 = LB1.List(LB1.ListIndex, 8)
     CB4 = LB1.List(LB1.ListIndex, 9)
     TB9 = LB1.List(LB1.ListIndex, 10)
     TB10 = LB1.List(LB1.ListIndex, 11)
     TB11 = LB1.List(LB1.ListIndex, 12)
     CB5 = LB1.List(LB1.ListIndex, 13)
     CB6 = LB1.List(LB1.ListIndex, 14)
     TB12 = LB1.List(LB1.ListIndex, 18)
     
       End With
       LB1.Visible = False
       
End Sub

Private Sub CMB1_Click()

      LB1.List(LB1.ListIndex, 16) = TB1
      LB1.List(LB1.ListIndex, 17) = CB1
      LB1.List(LB1.ListIndex, 4) = CB2
      LB1.List(LB1.ListIndex, 0) = TB2
      LB1.List(LB1.ListIndex, 5) = TB3
      LB1.List(LB1.ListIndex, 1) = TB4
      LB1.List(LB1.ListIndex, 2) = TB5
      LB1.List(LB1.ListIndex, 3) = TB6
      LB1.List(LB1.ListIndex, 6) = TB7
      LB1.List(LB1.ListIndex, 7) = TB8
      LB1.List(LB1.ListIndex, 8) = CB3
      LB1.List(LB1.ListIndex, 9) = CB4
      LB1.List(LB1.ListIndex, 10) = TB9
      LB1.List(LB1.ListIndex, 11) = TB10
      LB1.List(LB1.ListIndex, 12) = TB11
      LB1.List(LB1.ListIndex, 13) = CB5
      LB1.List(LB1.ListIndex, 14) = CB6
      LB1.List(LB1.ListIndex, 18) = TB12
      

 'ActiveWorkbook.
 Worksheets("Kunden_Daten").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Kunden_Daten").Sort.SortFields.Add Key:=Range("A2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Kunden_Daten").Sort
        .SetRange Range("A2:G3000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    
End Sub

Private Sub CMB2_Click()
LB1.Visible = True

End Sub

Private Sub CMB3_Click()
Unload Me
  ActiveWorkbook.Save
   Frmstart.Show
End Sub


Private Sub TB1_Enter()
Frmkalenderänderung.Show
End Sub

__________________

Heeft iemand een idee hoe ik dit moet doen, heb zelf het idee dat ik er dicht bij zit maar ik zie het niet meer.

De code is misschien in jullie ogen omslachtig maar dit snap ik tenminste, SORRY.

 

[gast0660]

maar ik zie het niet meer.

Ik ook niet, uw voorbeeld bestandje is blijkbaar op miraculeuze verdwenen.:shocked:

 

[jkpieterse]

LB1 is niet meer zichtbaar, dat komt omdat je code hem verbergt middels

 LB1.Visible = False

.

 

[Atwist]

Sorry

 

[Atwist]

LB1 is niet meer zichtbaar, dat komt omdat je code hem verbergt middels

 LB1.Visible = False

.

Dat is ook de bedoeling.

 

[gast0660]

Hi,
Een voorbeeld waar je maar 1 userform nodig hebt.
Als je een klant zoekt verdwijnen de klanten die niet aan de zoekcriteria voldoen uit de lijst.

 

[Atwist]

Sorry gast0660,

Ik had de mail "Nieuw bericht op u vraag" helemaal over het hoofd gezien.

Dit ziet er erg strak en mooi uit :shocked::shocked:

Was zelf niet op het idee gekomen om de ListBox ernaast te zetten


ERG VEEL DANK HIERVOOR :thumb::thumb:

 

[gast0660]

Dank voor de terugkoppeling.:thumb:

 

[Atwist]

Hallo Philiep (gast0660)

Zou ik jou om een gunst mogen vragen???
Ik heb namelijk nog een Userform met instellingen waar ik de instellingen namen enz. in aanpas.
Nu wilde ik jou stijl overnemen omdat deze zo lekker kort is maar merk dat ik nog niet zo ver ben, op mijn manier kom ik een heel eind, jou manier is heel andere koek.
Dus wilde vragen of je bv de CombiBox "Mitarbeiter" zou willen aanpassen zodat deze leest, wegschrijft, en kan wijzigen.
En de ListBox "Krankenkassen" net zo kunt maken als je het hebt gedaan met de "Kundendaten".

Ik heb al zoveel mogelijk voorbereid maar nu loop ik vast.

Probeer zoveel mogelijk van jou codes te leren wat bij mij wat tijd gaat kosten omdat ik helemaal moet omschakelen.

Ik hoop dat je het zou willen doen, bij voorbaat mijn hartelijke dank.

 

[gast0660]

Ik begrijp de bedoeling niet.
Moet alles in het blad Kunden_daten komen of moet het in een nieuw blad Krankenkassen.
De combo mitarbeiter, is dat om de lijst mitarbeiter te veranderen?
Graag wat meer uitleg.

 

[Atwist]

Hallo Philiep (gast0660)


De combo mitarbeiter, is dat om de lijst mitarbeiter te veranderen?
Ja dat klopt en om nieuwe toe te voegen.

Moet alles in het blad Kunden_daten komen of moet het in een nieuw blad Krankenkassen.
Ik heb de sheet "listen" al aangepast dus hoeft er geen extra sheets te komen.
En de ListBox "Krankenkassen" net zo kunt maken als je het hebt gedaan met de "Kundendaten" zoeken en wijzigen.

Indien mogelijk graag de " Mitarbeiter" aanpassen zodat ik een leidraad heb om iets simpels aan te passen.

Ik probeer dan de rest van de ComboBoxen zelf aan te passen.

Alvast bedankt

 

[gast0660]

Hallo,
Morgen zal ik een en ander aanpassen zodat je verder kunt.
Nu ik erop denk, de textboxen zoals Information moet je in de eigenschappen multiline op true zetten.
Je kan EnterKeyBehavior ook op true zetten, dan kan je op het einde van een zin naar de volgende regel gaan met de entertoets.

 

[Atwist]

Ga ik doen.

Dank je wel

 

[gast0660]

In bijlage versie 2.

 

[Atwist]

gast0660,

Dit is helemaal geweldig, als je een jonge meid was dan kreeg je van mij een dikke knuffel

Hiermee kan ik verder mee werken.

MIJN DANK IS ERG GROOT :thumb::thumb:

 

[gast0660]

Graag gedaan.