Spørgsmålet er en fortsættelse af tidligere <En søgeopgave> 24-8-16
Her er koden som ikke virker i denne variant :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AE$13" Then Target.Address = "$AB$7"
If Target.Value > 25 And Target.Value < 1053 Then
ActiveWindow.ScrollRow = Target.Value
Else
MsgBox "Ugyldigt rækkenummer"
End If
End If
End Sub
FORDI : jeg skriver et kontonummer i AE13 og rækkenummer beregnes i AB7 : <=SLÅ.OP(AE13;AE26:AE1053;AC26:AC1053) >
Løsning : hver gang der skrives i AE13 skal der rykkes til rækken beregnet i AB7.