Beste allen,
Ik schrijf records met gegevens naar een werkblad ("TblKlacht!b2:F2"). Bij het opvragen van dit 'record' moet dit naar verschillende cellen teruggeschreven worden werkblad KlOverzicht "b2", "b6", "e2", "e6", "a25".
Ik krijg het wel voor elkaar de gehele array vanaf 1 cell in z'n geheel weg te schrijven (zie hieronder), maar hoe schrijf ik het naar veerschillen cellen weg, ook met een array?
Kan iemand mij een beetje op weg helpen?
Alvast hartelijk dank,
Albert
Sub Test_Opvragen_Klacht()
Rec = Range("TblKlacht!b2:f2") 'in totaal 33 velden in de record, voor de test maar even 5 gebruikt
With Sheets("KlOverzicht")
.Cells(10, 10).Resize(, 5) = Rec 'deze schrijft de gehele array weg, dat gaat goed
End With
'feitelijk moet het weggeschreven worden naar "b2", "b6", "e2", "e6", "a25"
End Sub
Ik schrijf records met gegevens naar een werkblad ("TblKlacht!b2:F2"). Bij het opvragen van dit 'record' moet dit naar verschillende cellen teruggeschreven worden werkblad KlOverzicht "b2", "b6", "e2", "e6", "a25".
Ik krijg het wel voor elkaar de gehele array vanaf 1 cell in z'n geheel weg te schrijven (zie hieronder), maar hoe schrijf ik het naar veerschillen cellen weg, ook met een array?
Kan iemand mij een beetje op weg helpen?
Alvast hartelijk dank,
Albert
Sub Test_Opvragen_Klacht()
Rec = Range("TblKlacht!b2:f2") 'in totaal 33 velden in de record, voor de test maar even 5 gebruikt
With Sheets("KlOverzicht")
.Cells(10, 10).Resize(, 5) = Rec 'deze schrijft de gehele array weg, dat gaat goed
End With
'feitelijk moet het weggeschreven worden naar "b2", "b6", "e2", "e6", "a25"
End Sub