Deel van inhoud ListBox kopieren

[ExcelAmateur]

Beste forumleden,

Ik heb als test een Userform met daarop een ListBox.
Deze laat de namen en de 2 E-mail adressen zien. (zoals op het goede bestandje)

De code daarvoor heb ik op het www kunnen vinden.

Nu wil ik b.v.b. een E-mail adres kopiëren en dit dan in de E-mail gebruiken. (dat wil niet lukken)
Ik krijg het wel voor elkaar om het naar een cel te kopiëren maar heb ik mij vergist en moet dus,
het andere E-mail adres hebben dan lukt dit niet.

Nu heb ik dit wel voor elkaar maar volgens mij niet zoals het hoort.

Hier heb ik niets over kunnen vinden.

De vraag is dan ook;
Hoe kan ik het kopiëren en dan in mijn E-mail (Outlook 2013) program gebruiken.

Zie bijgevoegd bestandje.

 

[gast0660]

Hoi excelA,

Kan je hiermee verder?
Dit is een automatisch email
Op blad een staat de bijlage die wordt meegestuurt op blad twee de emailadressen Die kan je aanklikken met ja of nee en een kleine tekst die automatisch in je email verschijnt
Hopelijk ben je al wat geholpen. anders geef maar een seintje

 

[ExcelAmateur]

gast0660,

Hartelijk bedankt voor de snelle reactie.
Dit is niet wat ik bedoel.

Mijn voorbeeld is uit een adressen bestand en ziet er zo uit.

De tussen liggende kolommen heb ik niet ingevuld, dit is de straatnaam enz.
Vandaar dat er zoveel lege kolommen tussen zitten.

 

[snb]

Gebruik

Private Sub UserForm_Initialize()
   ListBox1.List = Blad1.Cells(1).CurrentRegion.Offset(1).SpecialCells(2).Resize(, 15).Value
   
   
   ListBox1.ColumnCount = 15
   ListBox1.ColumnWidths = "60;0;0;0;0;0;0;0;0;0;0;0;0;90;90"
End Sub

Private Sub ListBox1_Change()
  Blad1.Cells(6, 2) = ListBox1.List(ListBox1.ListIndex, 14)
End Sub

De eigenschappen columncount en columnwidth kun je het beste in het ontwerp vastleggen.

Voor meer informatie over het vullen van een combobox/listbox, zie:

http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

 

[VenA]

Werkt het niet prettiger met comboboxen? Waarbij je door een druk op Ok een procedure start.

 

[ExcelAmateur]

@snb,
Hartelijk bedankt voor de code, ga het morgen testen.

@VenA,
Ook hartelijk bedankt, ga er morgen naar kijken.

 

[ExcelAmateur]

@snb,
Uw code werkt perfect, alleen kan ik niet kiezen welk E-mail adres wil gebruiken.
Ik heb op uw site gekeken en moet zeggen er staat interessante code op.

@VenA;
Het is inderdaad handiger en kan dus ook kiezen welk E-mail adres ik wil gebruiken.

Beide hartelijk bedankt.

 

[HSV]

Als je eenmaal alle gegevens hebt verzamelt in de eerste combobox, hoef je niet meer te zoeken naar de gegevens voor de tweede combobox.
Daarbij kan de OK knop op het form ook weg.

Private Sub ComboBox1_Change()
With ComboBox1
    ComboBox2.Value = ""
    ComboBox2.List = Array(.List(.ListIndex, 13), .List(.ListIndex, 14))
End With
End Sub

Private Sub ComboBox2_Change()
 Sheets(1).[B6] = ComboBox2.Value
End Sub

Private Sub UserForm_Initialize()
   ComboBox1.List = Blad1.Cells(1).CurrentRegion.Offset(1).SpecialCells(2).Resize(, 15).Value
End Sub

 

[snb]

Zonder toeters en bellen:

Private Sub UserForm_Initialize()
  ListBox1.List = Blad1.Cells(1).CurrentRegion.Offset(1).SpecialCells(2).Resize(, 15).Value
End Sub

Private Sub ListBox1_Click()
  Blad1.Cells(6, 2) = ListBox1.List(ListBox1.ListIndex, 13)
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Blad1.Cells(6, 2) = ListBox1.List(ListBox1.ListIndex, 14)
End Sub

 

[VenA]

Hoe kan ik het kopiëren en dan in mijn E-mail (Outlook 2013) program gebruiken.

In plaats van het eerst in een cel weg te schrijven kan het bv zo

Private Sub Ok_Click()
With CreateObject("outlook.application").CreateItem(0)
    .To = ComboBox2.Value
    .Subject = "test"
    .Display '.send om direct te versturen.
End With
End Sub

Het voordeel van de Ok knop is dat je dan nog even kan kijken of je het juiste mailadres geselecteerd hebt. En bij een change, click of dblclick ga je direct naar outlook.