VBA loop with variables

[igormigor]

Hi all,

I have to run number od macros in which only 1 word is changing. The macros are relatively long. In order to make the code shorter, and easier to maintain (since there will be change to some of the phrases in the future) I like to make a loop which will go through the phrases and replace them in the code.

To each letter from "a" to "h" is dedicated phrase. The code should run loop from a to h and in message box to show the dedicated phrase.

Below are simplified codes for what I like to achieve.

Below is code which shows how the finished code should behave.

Please Login or Register  to view this content.

This is my attempt above code to make with loop. It goes through the letters but is not displaying the phrases, rather it displays the letters.

Please Login or Register  to view this content.

can anyone help me with this.

Thank you in advance for your help.

Igor

[nilem]

maybe something like this

Please Login or Register  to view this content.

[stnkynts]

FWIW, the array will start at 0 not 1. So you will miss out on "Country:". Usually the way to ensure this doesn't happen is to specify LBound(var) to UBound(var)

[nilem]

the array will start at 0 not 1

oops, of course

Please Login or Register  to view this content.

[bulina2k]

I don't know how to do this other than with the use of the collections:

Please Login or Register  to view this content.

give it a try, tell me what you think!

[MarvinP]

Instead of using:

var = Array("Country:", "Site:", "Requester:", "E-mail:", "Telephone:", "Cost center", "Project number", "Run hours")

I like this better:

VarStr = "Country:,Site:,Requester:,E-mail:,Telephone:,Cost center,Project number,Run hours"
Var = Split(VarStr,",")

[bulina2k]

I'm sorry but from my understanding (language barrier) is that the OP wants to use strings as variables...
The OP wishes to use "a", "b" etc. (from the Chr(asc("a")) as already initiated variables a, b...
something like MsgBox "a" should result Country:

[igormigor]

hi nilem, stnkynts and MarvinP
your solution works perfectly.
thank you a lot.
Igor

[bulina2k]

oh well... nevermind...

[igormigor]

scuze bulina.
Am ai uitat