Hallo,
ich hoffe ich bin hier richtig.
Ich habe in VBA einen kleinen Prozedurablauf ala:
====
'Block1
Private Sub eins1_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("coach")
With sh
.Range("d63").Value = 1
.Rows("65").EntireRow.Hidden = True
... und noch einges mehr an Quelltext
Nun müsste ich diesen Block für 48 Fälle deklarieren und jeweils aus dem Prozedurnamen eins1 in eins2(3,4... und die Zelle d63 und die Zeile 65 aus dem Quelltext in eins2 um 100 erhöhen...
====
'Block2
Private Sub eins2_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("coach")
With sh
.Range("d163").Value = 1
.Rows("165").EntireRow.Hidden = True
... und noch einges mehr an Quelltext
Gibt es hier eine möglichkeit mit einer definition des Endwertes (48) und laufenden (Zell)Werten die bei jedem neuem Block um 100 erhöt werden automatisiert Quelltext für 48 Fälle (Prozeduren) auszugeben?
Danke für jden Tipp
Ingo
|