Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Quelltext mit Zählerschleife dublizieren
 28.06.2022 16:30:01 Gast29220
NotSolved
28.06.2022 18:22:27 volti
NotSolved

Ansicht des Beitrags:
Von:
Gast29220		 Datum:
28.06.2022 16:30:01		 Views:
1037		 Rating:
     
Antwort:
  Ja
Thema:
VBA Quelltext mit Zählerschleife dublizieren

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Quelltext mit Zählerschleife dublizieren
 28.06.2022 16:30:01 Gast29220
NotSolved
28.06.2022 18:22:27 volti
NotSolved