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:
141
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