scherm verspringt

[wilbert1967]

Private Sub cmbadres_Change()

  Dim straatnaam, lokatie As Variant
  Dim rijcijfer As Integer
  Dim rng2 As Range
  Dim aantal, lng As Long
  Dim col As Range
  Dim inputrange As Range
  Dim Col2 As New Collection
  Dim tekst As String
    
  straatnaam = cmbadres.Value
  aantal = 0
  Application.ScreenUpdating = False
  'Application.Volatile

  Sheets("gegevens").Select
  Sheets("gegevens").Range("c1:c2646").Find(What:=cmbadres.Value, LookIn:=xlValues, LookAt:=xlPart).Select
  If Selection.Value = cmbadres.Value Then
     rijcijfer = Mid(Selection.Address, 4, 4)
  End If
  
  For Each col In Sheets("Gegevens").Range("c" & rijcijfer & ":c2646")
  
    'lokatie = col.Value

Hallo

als ik een adres gekozen heb uit een lijstje van een combobox. dan spring het scherm naar het werkblad waar de data staat. ik dacht met "Application.ScreenUpdating = False "
gebeurt dat niet maar toch

wat doe ik verkeerd?

wilbert

 

[Wigi]

wat doe ik verkeerd?

Zo weinig mogelijk .Select gebruiken...

Enkel als het echt nodig is.

 

[Wigi]

Private Sub cmbadres_Change()

  Dim straatnaam As String 'hier verkeerde declaratie
  Dim lokatie As Variant 'waarschijnlijk ook een string
  Dim rijcijfer As Integer
  Dim rng2 As Range
  Dim aantal As Long 'hier verkeerde declaratie
  Dim lng As Long
  Dim col As Range
  Dim inputrange As Range
  Dim Col2 As New Collection
  Dim tekst As String
  Dim rFoundCell As Range
    
  straatnaam = cmbadres.Value
  aantal = 0
  Application.ScreenUpdating = False

  Set rFoundCell = Sheets("gegevens").Range("C1:C2646").Find(What:=cmbadres.Value, LookIn:=xlValues, LookAt:=xlWhole)
  
  If Not rFoundCell Is Nothing Then
     rijcijfer = rFoundCell.Row
  End If
  
  'code...
    
End Sub

Wigi

 

[wilbert1967]

dank u
dit is wat ik zocht

 

[Wigi]

Bedankt voor de terugkoppeling. Graag gedaan.