Office: Neues Blatt erstellen, Namen per Inputbox abfragen

Guten Morgen Beverly,

vielleicht sollten wir der Reihe nach vorgehen. Hier erstmal die Datei. Das erste Problem welches ich habe, das die Funktion zur Auswahl der Bereiche im Blatt Mitarbeiter funktioniert, im Blatt Stundenabrechnung nicht. Woran könnte das liegen.
Anschließend füge ich den Code neuer Mitarbeiter ein und lade das hoch. Geht das so in Ordnung?

 

Welche Excel-Version verwendest du? Ich benutze Excel2013. Möglicherweise liegt es ja daran, dass wir unterschiedliche Fehlermeldungen erhalten.

Man kann diese Art Fehler umgehen, indem man explizit anweist, dass der Code nur ausgeführt werden soll, wenn nur 1 Zelle angewählt wurde.

Code:

Aber mal ganz davon abgesehen, könnte man den Code noch wesentlich vereinfachen, wenn man eine gemeinsame Prozedur für das Drucken verwendet und nur den Namen des Druckbereichs an diese übergibt.
Für mich gibt es allerdings einen Wiederspruch zwischen deinem Code im Makro "DruckeBerichtJanuar" und dem definierten Namen "DruckeJanuar", den du darin als Druckbereich ansprichst: in deinem Code beziehst du dich nämlich auf ActiveSheet - also Tabelle "Stundenabrechnung", der Name jedoch bezieht sich auf Tabelle "Joachim B". Was ist denn nun richtig? Davon hängt ab, wie die Druckprozedur aussehen muss.

 

Hi,

da wird es jetzt ganz spannend:
zu Hause Ubuntu(Linux) und Version 2007
im Büro Windows und Version 2010

 

Hi Bernd,

da haben sich unsere Beiden beiträge zeitlich überschnitten.
Also zu deiner hochgeladenen Mappe: In deinem Code für Tabelle "Stundenabrechnung" müsste es auch heißen

Code:

und nicht

Code:

 

Dein Codevorschlag war super. Hat eben sofort funktioniert. Klasse.

 

Den Vorschlag Code:

könnte ich doch für den neuen MA nehmen, sprich Code:

.
Das macht es doch einfacher. Das Script Code:

wird gestartet. Es läuft durch. Nur ein Problem. Im Blatt Stundenabrechnung, soll in der "Range Monteure" der neue Name unterhalb der letzten gefüllten Zelle eingetragen werden. Mein Zähler(+4) gibt momentan irgendeine Zeile vor. Daneben dann, soll die "Range zuKopieren" reinkopiert werden. Damit hätte ich dann alles an Ort und Stelle. Momentan macht das Script was es soll, verfehlt nur die gewünschte Zielzeile. Anpassungen werden dankend angenommen.
Die Krönung wäre, wenn bei voller "Range Monteure", eine neue Zeile im Blatt angelegt wird.

 

Du hast meinen Hinweis aus Beitrag 19.01.2015 09:02 noch nicht beantwortet - könnten wir vielleicht erst mal eine Sache zuende führen ehe wir die nächste beginnen?

 

Doch, doch
um 09:14 mit einem extra super klasse toll.

 

Hi Bernd,

Ich bezog mich auf diesen Hinweis.

 

Hi Beverly,

Schande über mein Haupt, dass hatte ich völlig überlesen.
Anbei die jetzt aktuelle Version. Ich habe das mit dem Drucken verstanden. Jetzt habe ich praktisch für jeden Bereich eine Sub. Eigentlich ändert sich aber nur der Name des Bereiches, die Eigenschaften für den Druck bleiben. Von daher stimme ich Dir zu. Ich habe das gemerkt als ich den Zustand "Stundenabrechnung" erstellt habe.
Ist wohl noch Kopfzerbrechen zum Feintuning angesagt.

 

Hi Bernd,

anstelle der 12 Zeilen für das Aufrufen der 12 Druck-Makros reicht diese Zeile:

Code:

und diese eine Druckprozedur:

Code:

Dasselbe kann man auch für die Anzeige der Berichte machen, indem man an eine aufzurufende Prozedur die entsprechenden Parameter übergibt.

 

Danke, werde das gleich mal testen. Persönlich spekulierte ich auf ein Array, aber ....
Danke

 

Hi Beverly,

ich verneige mein Haupt. Danke *Smilie .
Mit dem drucken klappt wunderbar. Beim zeigen bin ich mir da nicht so sicher. Ich habe es so geschrieben, dass bei der Zelle die den entsprechenden Monat aufruft - Bsp. Blatt Stundenabrechnung, Zelle Februar - die Zelle darüber und die Zelle darunter blau eingefärbt sind, wenn der jeweilige Bereich aufgerufen ist. Ich könnte das weglassen, aber so hat man vielleicht noch ein "Unterscheidungsmerkmal" für den angesteuerten Bereich. ".Interior.Color" hat also immer wechselnde Bezüge. Es sei denn, man bekommt soetwas über bedingte Formatierungen hin, was ich aber nicht glaube. Da muss ich mal ein wenig tüfteln.

 

Hi Bernd,

zum Aufrufen kann man als Parameter schon mal die Namen verwenden, da du sie ja in die Namen für die Monats-Bereiche ingtegriert hast - also so:

Code:

In der Prozedur für das Anzeigen der Monate muss man nur die betreffenden Zelle/Zeilen aus dem übergebenen Parameter ableiten und kann sie dann weiterverwenden:

Code:

 

Entschuldige, wenn ich heute nicht mehr kann, mein alter Herr hat sich vorhin akut krank gemeldet. Musste da heute Abend mal hin. Ich melde mich morgen.