Supportnet / Forum / Skripte(PHP,ASP,Perl...)

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

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.

• Flexsieble Schleife mit VBA
• Anzahl einer schleife in mehere Makros übernehmen
• Excel VBA: Vergleich mehrerer zusammenhängender Spalten
• Farbwert auslesen!!!