Office: Wert aus Inputbox in Makro übernehmen

Guten Morgen.

Ich fange gerade mit VBA an - daher bitte ich um nachsicht für meine (vielleicht naiven) Fragen.

Ich "baue" mir gerade einen Arbeitsplan.
Dort soll mittels Inputbox abgefragt werden, wieviele Mitarbeiter angelegt werden sollen.

Das klappt auch.
Code:

Die Abfrage wird "irgendwann" bei der Planerstellung gemacht und das Makro ausgeführt.

Ich möchte nun aber, die Abfrage (also die Eingabe in die Inbox) gleich am Anfang der Planerstellung
aber die Ausführung des Makros erst zu einem späteren Zeitpunkt.

Wie kann ich das bewerkstelligen ?

Der eigegebene Wert muß ja irgendwie zwischengespeichert werden
und an den oben aufgeführten Code übergeben werden.

Kann jemand helfen ?

Nette Grüße
Torsten

:)

 

Hallo
Geht mit einer Public Variablen.
In ein extra Modul nur dieses:
Code:

Mit Makro
Code:

Legst Du Ddie Anzahl fest, diese bleibt erhalten.
mit Makro
Code:

holst Du die Anzahl wieder vor.
gruss hary

 

Vielen Dank für die Antwort ! Klappt !

Eine bescheidene Frage habe ich aber dennoch:
(wie) kann ich diesen Bereich in eine Schleife (Loop) bringen ?
Code:

Es geht darum, dass nur eine Anzahl von Max 20 eingegeben werden darf.
Also Werte über 20 und kleiner 1 dürfen nicht eingegeben werden.
Sollte dem so sein, dann soll eine MsgBox aufpoppen und einen Hinweis geben.
Danach soll erneut eingegeben werden können.
Sollte der eingegebene Wert in den Bereich passen, soll der Wert halt nur für das andere Makro abrufbar sein.

Nochmals Hilfe wäre sehr nett.

Nette Grüße
Torsten

 

Hi

ich würde das mit 1 und 20 in die Box schreiben...
reicht dann wohl auch *wink.gif*

dafür habe ich für das Abbr. eine Meldung drinnen.

Code:

 

Auch Dir vielen Dank für die Antwort.

Ja - so soll es aussehen. NUR - wie kann der eingegeben Wert zu einem späteren Zeitpunkt wieder abgerufen werden ?

Das funktioniert bei Harys version wunderbar, nur bei Deinem Code "scheinbar" nicht.

Nette Grüße
Torsten

Ach ja - auch nett mit der Ganzzahl...

 

Hi

dann mache halt wieder eine Globale Variable daraus*Smilie, ich persönlich verwende Globale Vernichter fast nie.

die Lösung dafür hast du ja schon?

übrigens was steht denn in M1 bis M20?
mir kommt das alles ein wenig überladen vor*Smilie

 

Hallo
edit:geloest.
gruss hary

 

Ich sach doch - völliger Noob am Werk.
Das Teil ist sicherlich völlig überladen, aber jeder fängt ja mal an.

In MA1 - MA20 steht, wieviele Zeilen auf 12 Blättern (mit unterschiedlichen Namen) gelöscht werden sollen.
ZB.
MA1 = Zeilen 6 - 24 auf allen 12 Blättern löschen
MA2 = Zeilen 7 - 24 auf allen 12 Blättern löschen usw.

Trotzdem fehlt mir immernoch die Lösung mit dem abrufbaren Wert.
Das ist mir deshalb wichtig, weil alle Angaben VOR Beginn der Erstellung des Planes gemacht werden sollen.

Nette Grüße
Torsten

 

Hallo
Code:

gruss hary
sonst alles wie gehabt.

 

Hi
Code:

 

Hi

wie sehen die anderen aus?
sind die komplett gleich?

wenn ja welche Zeilen sollen in M1-M12 gelöscht werden.

hier einmal M1

Code:

 

Hi

Es sollen auf allen 12 Blättern immer die gleichen Zeilen gelöscht werden.
Also bei einem Mitarbeiter, sollen auf allen 12 Blättern die Zeilen 6 bis 24 gelöscht werden;
bei zwei Mitarbeitern, sollen auf allen 12 Blättern die Zeilen 7 bis 24 gelöscht werden.....
bei 19 Mitarbeitern, soll auf allen 12 Blättern nur die Zeile 24 gelöscht werden.

Die Blätter haben aber unterschiedliche Namen (Jan, Feb........).

Nette Grüße
Torsten

 

Hi

dann müsste das reichen

Code:

 

Booah bist Du schnell....

Ich bekomme hier
Code:

einen Laufzeitfehler 9 "Index außerhalb des gültigen Bereichs".
Das liegt wohl an den unterschiedlichen Blattnamen,
denn beim selekierten Blatt löscht er korrekt. Danach kommt die Meldung.

Nette Grüße und vielen Dank für Deine Mühe nebenbei.
Und ja - bei 20 soll nix passieren.