1 fout ( je ) ......

[MartijnRG]

hey ik heb hier een document met 1 fout erin.. ik weet alleen niet waar het aan ligt.
Fout 91..

Private Sub CommandButton1_Click()

Dim MAXVAL As Double

Worksheet = "blad2!"
Range("D1").Select
Selection.Value = MAXVAL

Range("G4:G" & Range("G4:G72").Find(What:="MAXVAL", LookIn:=xlValues, LookAt:=xlWhole).Row).Select
Selection.Copy
Range("N4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False



End Sub

de fout verwijst naar regel:
Range("G4:G" & Range("G4:G72").Find(What:="MAXVAL", LookIn:=xlValues, LookAt:=xlWhole).Row).Select

wat doe ik verkeerd? alvast bedankt!

 

[Hoornvan]

MartijnRG,

Ik weet er niet veel van maar wat is de inhoud van MAXVAL?

Worksheet = "blad2!"
Range("D1").Select
Selection.Value = MAXVAL

Moet dat niet zo zijn?

Worksheet = "blad2!"
MAXVAL = Range("D1").Value

Als ik hem laat lopen komt de fout melding; Objectvariable With is niet ingesteld.

Verder ben ik niet zo goed in VBA.
Suc6

 

[Wigi]

Probleem; de TEKST "MAXVAL" wordt niet gevonden in het bereik waarin je zoekt. Logisch ook, want jij wil dat dit een variabele is. dus ook eerst goed die variabele vullen.