• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Bij afsluiten fout in code

Status
Niet open voor verdere reacties.

Remlo

Gebruiker
Lid geworden
20 mei 2011
Berichten
131
Bij afsluiten werkblad krijg ik een foutcode in volgende

Private Sub Combobox1_Change()
Dim afdeling As String
Dim printer As String
Dim serienr As String
Dim IP As String

With Combobox1
afdeling = .List(.ListIndex, 0) --> deze regel geeft fout bij afsluiten
Range("Blad2!B1").Value = afdeling
printer = .List(.ListIndex, 1)
Range("Blad2!C1").Value = printer
serienr = .List(.ListIndex, 2)
Range("Blad2!D1").Value = serienr
IP = .List(.ListIndex, 3)
Range("Blad2!E1").Value = IP
End With
End Sub


wat doe ik verkeerd? Ben helemaal niet vertrouwd met vba.
 
Zou wel zo handig zijn als je er ook de betreffende fout bij laat weten.
Daar zijn er maar 10.000 van of zo.
 
En wat voor een combobox is dat? In een Userform, op een werkblad.
In het geval van een werkblad, is het dan een ActiveX- of een formulier object?
 
Vreemde combinatie: werkblad afsluiten en de combobox roept de change_event aan.

De listindex staat vast op -1.
 
Het is op een werkblad en een ActiveX. in excel 2013

het bestand is te groot om te posten. Verder zit er geen vba code in.

Sorry voor het geven van te weinig info. Dacht dat vba voor alles hetzelfde werkte.

Alvast bedankt om me ver te willen helpen
 
Lijkt me niet zo lastig om alleeb een relevant voorbeeld te plaatsen. Het hele bestand is niet nodig.
 
Om te testen.
Code:
[COLOR=#333333]Private Sub Combobox1_Change()[/COLOR]
[COLOR=#333333]Dim afdeling As String[/COLOR]
[COLOR=#333333]Dim printer As String[/COLOR]
[COLOR=#333333]Dim serienr As String[/COLOR]
[COLOR=#333333]Dim IP As String[/COLOR]

[COLOR=#333333]With Combobox1
[/COLOR] [COLOR=#0000ff]if .listindex >-1 then[/COLOR]
[COLOR=#FFD700]afdeling = .List(.ListIndex, 0)[/COLOR][COLOR=#333333] --> deze regel geeft fout bij afsluiten[/COLOR]
[COLOR=#333333]Range("Blad2!B1").Value = afdeling[/COLOR]
[COLOR=#333333]printer = .List(.ListIndex, 1)[/COLOR]
[COLOR=#333333]Range("Blad2!C1").Value = printer[/COLOR]
[COLOR=#333333]serienr = .List(.ListIndex, 2)[/COLOR]
[COLOR=#333333]Range("Blad2!D1").Value = serienr[/COLOR]
[COLOR=#333333]IP = .List(.ListIndex, 3)[/COLOR]
[COLOR=#333333]Range("Blad2!E1").Value = IP
[/COLOR][COLOR=#0000ff]end if[/COLOR]
[COLOR=#333333]End With[/COLOR]
[COLOR=#333333]End Sub[/COLOR]
 
Zou inderdaad kunnen, maar blijft vreemd dat dat event wordt getriggerd.
 
Er moet iets aan code in thisworkbook staan.

Listindex -1 geeft foutnr. 381, dus dat is het ook niet.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan