Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Skripte(PHP,ASP,Perl...)
Skripte(PHP,ASP,Perl...)
Fragevon Trudi vom 27.06.2019, 12:32 Options
Anzahl einer schleife in mehere Makros übernehmen
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
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
Antwort 1 von zero_-_-cool vom 17.07.2019, 00:10 Options
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.
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.
Ähnliche Themen
Flexsieble Schleife mit VBA
Trudi 20.06.2007 - 121 Hits - 2 Antworten
Anzahl einer schleife in mehere Makros übernehmen
Trudi 28.06.2007 - 73 Hits - 6 Antworten
Excel VBA: Vergleich mehrerer zusammenhängender Spalten
AnneS 17.01.2008 - 57 Hits - 1 Antwort
Farbwert auslesen!!!
Platin7 29.02.2008 - 56 Hits - 6 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
