Office: Durchnummerieren

Hallo

habe folgendes Problem. Ich habe ein Programm das folgende Variablen an Excel übergibt und man diese, über ein vom Programm bereit gestelltes Makro (Code ist Passwort geschützt) in Excel durchnummerieren kann.

Beispiel
Übergebene Variablen (diese stehen in H1 bis O1)

x|TEXT1_PR1 x|TEXT1_PR2 x|TEXT1_PR3 x|TEXT1_PR4
x|TEXT2_XY1 x|TEXT2_XY2 x|TEXT2_XY3 x|TEXT2_XY4

Darunter (H2 bis O2) sollen diese nummeriert werden.

Also in so etwa

H1 x|TEXT1_PR1
H2 1
H3 5
I1 x|TEXT1_PR2
I2 2
I3 6
J1 x|TEXT1_PR3
J2 3
J3 7
K1 x|TEXT1_PR4
K2 4
K3 8
...


L1 x|TEXT2_XY1
L2 1
L3 5
M1 x|TEXT2_XY2
M2 2
M3 6
N1 x|TEXT2_XY3
N2 3
N3 7
O1 x|TEXT2_XY4
O2 4
O3 8
...


usw. Anzahl der Zeilen sollte variabel sein (Abhängig davon ob in A2, A3 usw etwas steht).

Da das im bereitgestellte Makro über eine Seberate Userform mit mehreren klicks passiert, würde ich dies gerne über ein eignes Makro machen lassen.

Kann mir jemand einen Tipp geben wie das am einfachsten geht?

Vielen Danke
Century147

 

Wen es Interessiert zur Info meine Lösung (nicht elegant aber es Funktioniert):

In meiner Erklärung hatte ich einen Punkt vergessen, und zwar sollen nur bestimmte Farbige Zellen nummeriert werden.

Gruss
Century147