For Next loop met andere declaraties

[duco243]

Beste forumleden,


Weet iemand of het volgende mogelijk is en wat dan de code is?

sub inlezen()

For x = 1 to 26

Dim filename1 As String
Dim filename2 As String
Dim filename3 As String
Dim filename4 As String
Dim filename5 As String


filename1 = "C:\Users\duco\Documents\Overzicht.xlsm"
filename2 = "C:\Users\duco\Documents\DataA1.xls"
filename3 = "C:\Users\duco\Documents\DataA2.xls"
filename4 = "C:\Users\duco\Documents\DataA3.xls"
filename5 = "C:\Users\duco\Documents\Maand.xlsx"



Application.ScreenUpdating = False


Workbooks.Open Filename:= _
filename2

- een heleboel handelingen-

Next x

end sub

In de volgende loop moeten alle hoofdletters A B worden dus:

filename1 = "C:\Users\duco\Documents\Overzicht.xlsm"
filename2 = "C:\Users\duco\Documents\DataB1.xls"
filename3 = "C:\Users\duco\Documents\DataB2.xls"
filename4 = "C:\Users\duco\Documents\DataB3.xls"
filename5 = "C:\Users\duco\Documents\Maand.xlsx"


Het is op te lossen door 26 keer de code van alle handelingen onder elkaar te plakken maar wellicht kan dit ook met for - next zodat de code wat korter blijft.


b.v.d..

Duco

 

[ExcelAmateur]

In je andere vraag word ook gevraagd om de code tussen de tags te zetten.
Aangezien je al lang lid ben, moet je dit toch weten.

 

[VenA]

Zonder het gelezen te hebben denk ik dat het antwoord in jouw vorige vraag staat. Maar als het te moeilijk is om er even naar te kijken en er op te reageren. Tja......

 

[duco243]

Nee dat is het niet want ik las zojuist pas je antwoord, mooie oplossing overigens, net getest werk perfect.

Dank daarvoor.

Deze vraag is overigens wezenlijk anders en gaat niet zozeer over een code voor een bepaalde handeling maar over een kortere code voor een aantal steeds terugkerende handelingen.
In elke lus dienen elke bestandsnamen gewijzigd te worden alvorens de handelingen zich herhalen, zoals ik al schreef : het kan met 26x de code onder elkaar te zetten maar misschien kan het ook met een for-next lus.

 

[HSV]

for i = 65 To 90
 msgbox "C:\Users\duco\Documents\Data" & chr(i) & "1.xls"
next

 

[duco243]

Weer wat geleerd, thx HSV voor je oplossing.