Excelbat
Gebruiker
- Lid geworden
- 23 mrt 2012
- Berichten
- 402
Hi all,
Onderstaande code werkt prima, dus ik wil even geen excelbijlage plaatsen als voorbeeld,
maar ik hoop dat iemand een antwoord uit de losse pols kan verzinnen.
Hier gaat het echter fout, als sheet "ArraySpel" niet de actieve sheet is:
Omdat hier op helpmij altijd benadrukt wordt om geen .activate en/of .select te gebruiken, vraag ik mij af, of iemand een andere oplossing heeft.
Greetz/Excelbat
Onderstaande code werkt prima, dus ik wil even geen excelbijlage plaatsen als voorbeeld,
maar ik hoop dat iemand een antwoord uit de losse pols kan verzinnen.
Code:
Sub Spelen()
Dim arr01 As Variant
arr01 = Range("Ledenlijst[[Nummer]:[LinksVier]]") 'Gegevens inlezen vanuit Tabblad
Dim arr02 As Variant
ReDim arr02(1 To 30, 1 To 10) 'Nieuwe lege array opzetten, 30 rows and 10 columns
For x = 1 To UBound(arr01, 1) 'Hoeveel keer (rijen) moet ik printen
arr02(5, 2) = arr01(x, 15) 'Naam
arr02(6, 2) = arr01(x, 20) 'Straat
arr02(7, 2) = arr01(x, 21) & " " & arr01(x, 22) 'Postcode & Plaats
arr02(11, 2) = "MijnDorp, " & Format(Date, "dd-mm-yyyy") 'Datum brief
arr02(13, 2) = "Factuurnummer: 2022_" & arr01(x, 14)
arr02(24, 2) = "Betreft: het lidmaatschap 2021."
arr02(29, 2) = "Het factuurbedrag bedraagt:"
arr02(29, 7) = Format(arr01(x, 27), "€ 0.00")
ThisWorkbook.Sheets("ArraySpel").Range(Cells(1, 1), Cells(UBound(arr02, 1), UBound(arr02, 2))) = arr02 'Array terugzetten naar Worksheet
Next x
End Sub
Hier gaat het echter fout, als sheet "ArraySpel" niet de actieve sheet is:
Code:
ThisWorkbook.Sheets("ArraySpel").Range(Cells(1, 1), Cells(UBound(arr02, 1), UBound(arr02, 2))) = arr02 'Array terugzetten naar Worksheet
Omdat hier op helpmij altijd benadrukt wordt om geen .activate en/of .select te gebruiken, vraag ik mij af, of iemand een andere oplossing heeft.
Greetz/Excelbat