Wat moet op plaats van find(vind & i)

Status
Niet open voor verdere reacties.

sjonnie1974

Gebruiker
Lid geworden
19 okt 2011
Berichten
177
Hoi,
onderstaande stukje in rood aangegeven werkt niet... wat moet ik dan daar tussen haakjes zetten? iemand een idee?

Code:
'Import AL066
vind1 = Sheets("Data_x").Range("AH2")
vind2 = Sheets("Data_x").Range("AI2")
vindk1 = Sheets("Data_x").Range("AH2:AI2").Find(vind1).Column
vindk2 = Sheets("Data_x").Range("AH2:AI2").Find(vind2).Column
al066path = Range("settings!H25")
Workbooks.Open Filename:=al066path
al066naam = ActiveWorkbook.Name
   
For i = 1 To 2
    Windows(al066naam).Activate
    Sheets("Data").Select
    foundRng = Sheets("Data").Range("A1:AZ1").[COLOR="#FF0000"]Find(vind & i).[/COLOR]Column
    Range(Cells(2, foundRng), Cells(20000, foundRng)).Copy
    Windows(toolnaam).Activate
    Sheets("Data_x").Select
    Range(vindk & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next i
 
plaats eens een voorbeeldbestandje.

Andere optie welke ik kan bedenken, in combinatie met mijn eerdere optie:
Code:
vind1 = Sheets("Data_x").Range("AH2")[COLOR="#FF0000"].Value[/COLOR]
vind2 = Sheets("Data_x").Range("AI2")[COLOR="#FF0000"].Value[/COLOR]
 
Maak er dit van:
Code:
Dim vind(2) As String

vind(1) = Sheets("Data_x").Range("AH2")
vind(2) = Sheets("Data_x").Range("AI2")

For i = 1 To 2
    foundRng = Sheets("Data").Range("A1:AZ1").Find(vind(i)).Column
Next i
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan