listbox

[Roma]

Beste forumleden.
Ik heb een listbox gemaakt maar op een of andere manier werkt het niet. Ik wil alleen dat cel B13 actief is en daarnaast geeft het nog een foutmelding. Zie bijlage
Wie kan mij helpen?

 

[HSV]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "B3" Then
  Overzicht.Show
  Cancel = True
 End If
End Sub

Je foutmelding zit in de naam van het blad dat niet bestaat.

 

[Roma]

Super Harry
Bedankt werkt perfect
Ron

 

[pasan]

En als ik zo vrij mag zijn nog een ander voorstel
1 regel om de waarde van de listbox in je cel te zetten in plaats van de for next

ActiveCell.Value = ListBox1.List(ListBox1.ListIndex, 1)

 

[Roma]

Pasan,
Bedankt voor de info. Ook dat ga ik even proberen
Ron

 

[Roma]

Beste Harry,
Ik heb toch nog een vraag: Ik wil de cellen uitbreiden van B13 t/m B17. Wil je dit veranderen voor mij?
Alvast bedankt

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "B13" Then
  Overzicht.Show
  Cancel = True
 End If
End Sub

 

[HSV]

Deze....

If Target.Address(0, 0) = "B13" Then

.....veranderen in.

if not intersect(target, range("b13:b17")) is nothing then

 

[Roma]

Toppie
Bedankt

 

[Roma]

Beste Harry,
Allereerst hartelijk voor alle info.
Toch heb ik nog een vraag: in de listbox selecteert hij kolom B bestaat de mogelijkheid dat het kolom A wordt. (zie bijlage)
Alvast bedankt
Ron

 

[Roma]

probleem opgelost