Thema: Anzahl einer schleife in mehere Makros übernehmen


Seite durchsuchen:
Home


zurück zur Übersicht

Diskussionsgruppe: VBScript/Javascript

Hallo Zusammen

Ich habe ein Makro geschrieben in dem ich eine Schleife eingebaut habe

Dummerweise ist dieses Makro zu groß geworden und ich habe es daraufhin in mehre Module unterteilt.
Nun ist das aufrufen der einzelnen Module nicht das Problem. Nur benötigen die Module den Wert aus InAnzahl
Wie bekomme ich das hin, dass er diesen Wert automatisch aus dem Haupt-Modul übernimmt.

Hier mal ein Auszug aus dem Haupt-Modul


Dim LoAnzahl As Long
Dim InAnzahl As Integer
Application.ScreenUpdating = False
LoAnzahl = Application.InputBox("Anzahl", "Druckbereich", Type:=1)
If LoAnzahl < 1 Then Exit Sub
For InAnzahl = 1 To LoAnzahl

Sheets.Add.Name = "TestA" & InAnzahl
Application.Run "TestA"

Sheets.Add.Name = "TestB" & InAnzahl
Application.Run "TestB"

Next InAnzahl


Hat jemand von euch einen Idee?

Vielen Dank

Trudi

 Von: Trudi Datum: 27.06.2007, 12:32

alle Antworten zu dieser Frage


Antwort 1 von zero_-_-cool vom 17.07.2007, 00:10
Evtl. reicht es dir, die Variable InAnzahl nicht lokal zu deklarieren, sondern Global.

Dazu gehst du in deinem Hauptmodul in den Deklarationsabschnitt und stellst diese Variable deinem kompletten Projekt zur Verfügung.

Public InAnzahl As Integer
oder
Global InAnzahl As Integer

Damit kann jedes deiner Module unabhängig auf den zu letzt gespeicherten Wert zurückgreifen.

Antworten der Gruppe: VBScript/Javascript
www.supportnet.de



Office 365 stellt vertraute Microsoft Office-Tools für die Zusammenarbeit und Produktivität über die Cloud bereit. So können alle ganz einfach von nahezu überall zusammenarbeiten und auf E-Mails, Webkonferenzen, Dokumente und Kalender zugreifen.