meerdere cellen in 1 variabele

[universe]

ik heb de onderstaande code

Range("E3:K3").Select
dObservatie1 = Selection

deze geeft een error.

Nu is mijn vraag, hoe kan ik ervoor zorgen dat E3:K3 in de variabele dObservatie1 komt.

alvast bedankt

 

[Wigi]

Maak er een Array van.

 

[universe]

Array , sorry voor de vraag, maar wat is dat. Ik heb het naar mijn weten nog nooit gebruikt

 

[Wigi]

Als je dat niet weet, dan zou je reflex moeten zijn om op F1 te drukken en Array in te typen.

Je kiest dan voor Using arrays, en leest wat er daar geschreven wordt.

Wigi

 

[universe]

Ik heb nu heel de help functie doorgespit, maar wordt er niet veel duidelijker van.

Waar ik nu achter ben is dat ik aan moeten geven dat het een array is
Maar mocht het me dan gelukt zijn om de waardes erin te krijgen hoe krijg ik die er dan later weer net zo makkelijk uit.

Hij moet dus de waardes van E3 t/m K3 selecteren, in een array zetten en dan later moeten deze waardes in een ander werkboek ook weer naast elkaar neergezet worden.

 

[Wigi]

Ik heb nu heel de help functie doorgespit, maar wordt er niet veel duidelijker van.

Waar ik nu achter ben is dat ik aan moeten geven dat het een array is
Maar mocht het me dan gelukt zijn om de waardes erin te krijgen hoe krijg ik die er dan later weer net zo makkelijk uit.

Hij moet dus de waardes van E3 t/m K3 selecteren, in een array zetten en dan later moeten deze waardes in een ander werkboek ook weer naast elkaar neergezet worden.

Bestudeer de code bij www.wimgielis.be > Excel > VBA-code > Van plaats wisselen.

Die doet beide, en daartussen nog wat anders.

Wigi

 

[universe]

daar werd het ook niet echt duidelijker door.

Ben internet wat gaan afspeuren naar voorbeelden en uitleg en heb dit onderhand bijelkaar gesprokkeld.

Sub Data_Ophalen

Dim dAuditObservatie1 As Variant

dAuditObservatie1 = Range("e3:k3").Value
Selection.Offset(1, 0).Select

Range("L9":"R9").Value = dAuditObservatie1

maar nu is het geval dat het doel variabel moet zijn.
Het liefste door een soort van ActiveCell.Offset(1,0) verhaal

en mocht dat niet mogelijk zijn, dacht ik aan zoiets

Sub Data_Ophalen()

Dim xx As Integer
Dim dAuditObservatie1 As Variant

xx = 9

dAuditObservatie1 = Range("e3:k3").Value
Selection.Offset(1, 0).Select

Range ("L" & xx : "R" & xx).Value = dAuditObservatie1

End Sub

Maar dit krijg ik niet goed voor elkaar. Iemand die zoiets heeft gemaakt of mij hiermee kan helpen.

alvast bedankt voor enige moeite

 

[Wigi]

daar werd het ook niet echt duidelijker door.

Heb je die code uitgetest? Wat er gedaan wordt is:

- laat de gebruiker een range aanduiden.

- zet de inhoud van die cellen in een Array.

Alleen heb jij nu 2 dimensies. Het enige wat je moet doen is een lus doorheen de cellen van het bereik.

 

[universe]

maar is dit wel of niet mogelijk ??

Range ("L" & xx : "R" & xx).Value = dAuditObservatie1

 

[Wigi]

maar is dit wel of niet mogelijk ??

Range ("L" & xx : "R" & xx).Value = dAuditObservatie1

Als je er dit van maakt, denk ik wel dat het kan lukken. Niet 100% zeker.

Range ("L" & xx, "R" & xx).Value = dAuditObservatie1

Wigi

 

[universe]

het werkt

kijk, met dit soort antwoorden wordt ik veel meer geholpen dan met hele lappen info.

maar in ieder geval weer bedankt:thumb: