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.
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.