Office: Makro Bugs bekomm ich einfach nicht raus :(

Hi Community,

vor einigen Wochen konnte ich durch das Forum ein wunderbares Tool erstellen dass mir die Arbeit ungemein erleichtert hat. (Danke nochmals)
Um die Kirsche dem Sahnehaeupchen aufzusetzen, habe ich mich selbst an kleine Veraenderungen gemacht. Anfangs mit Erfolg aber jetzt geht gar nichts mehr.

Bitte schaut euch einmal kurz die Mappe unten an (sheet: "Pool" macro knopf: "add another tab"). Es geht um folgendes:

1. Das Hauptmakro - ueber den customized button "Add Another Tab" - funktioniert nicht mehr so wie es soll (Sheet: "Pool").
-> Es soll eigentlich:
1. Fragen, wie viele tabs benoetigt werden u.
2. die Tabs einzeln benennen und die namen auch in das Tabellenblatt "List" schreiben. Darauf beziehen sich naemlich meine drop downs im Sheet: "Pool"
-> Mein Sahnehaeupchen war und jetzt bitte nicht lachen (blush), dass makro dazu zu bewegen, einfach nur die neu erstellten reiter/tabs zwischen Sheet: "Pool" u. "Done" zu erstellen (that's all). Allerdings habe ich jetzt das problem dass mein makro:
- genau die funktion NICHT macht und
- leider habe ich noch die funktion verloren dass mir die reiter/tabs benannt werden. Der Einzelne Reiter wird zwar benannt aber sobald ich 3 nacheinander einfuege verlieren die ersten 2 reiter ihre bezeichnung.

2. Leider werden mir im Sheet: "Pool" auch die leeren Zellen im dropdown angezeigt obwohl ich "ignore blank cells" angewaehlt habe. Das habe ich auch nicht wegbekommen. Und jetzt sind in allen Tabellenblaettern immer die dropdown unnnoetig lang

3. momentan ist mein datumsformat "DD.MMM.YYYY" ich finde im internet nur optionen die, die tage, monate oder jahre entweder durch einen punkt, bindestrich oder komma trennt. kann ich auch einfach die loesung haben "DD(leer)MMM(leer)YYYY"

kann mir vielleicht jemand helfen wenigstens einen der Bugs loszuwerden. Es ist ein tolles tool und ich wuerde es nur ungern so belassen. Ueber irgendeine form der rueckmeldung wuerde ich mich riesig freuen.

Liebe Gruesse an alle und ein schoenes Wochenende

Nico

 

Das erledigt Dein

Code:

    BB = Application.InputBox("How many tabs are required?", "Amount of Tabs?")

Dafür sind prinzipiell die Zeilen

Code:

            Worksheets(1).Name = AA
            Range("A1") = AA

gedacht. Aber das kann so nicht ganz funktionieren.

Du benennst grundsätzlich das erste Blatt in der Mappe um. Das ist aber nicht das neu erzeugte bzw. von der Vorlage kopierte.

Außerdem schreibst Du den Namen auch grundsätzlich in Zelle A1 und nicht in A2, A3, ... weiter.

Der zweite Fehler läßt sich leicht lösen:

Code:

Range("A" & i) = AA

oder

Code:

Cells(i, 1) = AA

Beim ersten Problem wird's etwas tricky. Du müßtest herausfinden, an welcher Position das kopierte Blatt liegt oder welchen Namen es hat. Die Vorlage zum Kopieren heißt "A", dementsprechend müßte die Kopie "A (1)" heißen. Das wäre eine Möglichkeit:

Code:

            Worksheets("A (1)").Name = AA

Vielleicht ist es schöner, wenn Du einen "dynamischen Bereich" per Namensdefinition erzeugst und diesen dann als Listen-Quelle einsetzt. (Stichwort Funktion "bereich.verschieben()" und eine kleine Suche nach "dynamischer Bereich" hier im Forum, da gibt's ein gutes How-To.)

Hast Du mal versucht, im "benutzerdefinierten Format" etwas einzugeben? "TT MMM JJJJ" müßte eigentlich passen.

Gruß, Michael

 

Hallo Michael,

Danke fuer deine Antwort. Ich denke dass der dynamische Ansatz ganz gut klingt.
Ich habe mich zum thema dynamischer Bereich eingelesen und und ich denke ich habe die Formel verstanden. Jedoch wird mir bei der Eingabe immer ein Fehler angezeigt. Um genau zu sein immer der selbe Fehler. Dabei wird mir von Excel immer der gleiche Bereich markiert ($A$1) Ich verstehe nicht was an A1 falsch ist. In A1 beinhaltet eine Bezeichnung bzw. die Ueberschrift "List:" und ein kleines Logo.

=bereich.verschieben (List!$A$1;1;0;Anzahl2(List!TeamList$A:$A)-1)

Deutsch oder Englisch spielt auch keine Rolle:

=OFFSET (List!$A$1;1;0;COUNTAl2(List!TeamList$A:$A)-1)

nun bin ich etwas ratlos. Die anderen Tipps haben soweit funktioniert. Ich habe mich bei dem Positionierungsproblem der sheets einfach eines anderen Tricks beholfen. Nach dem erstellen wird das sheet immer vor das "Done" sheet kopiert. Damit ist das Requirement erfuellt.(siehe Code). Datum war nach dem Tipp auch super einfach, danke. :)

Ich wuerde mich ueber einen weiteren Tipp sehr freuen. Wir sind definitiv auf einem guten weg :).

LG Nico

 

Kann es sein, daß Du da einfach nur einen Parameter vergessen hast?



Gruß, Michael

 

Hallo Michael,

Danke fuer den Tipp. In der Tat glaube ich dass ich einen Parameter vergessen habe. Jedoch loest das noch nicht das Problem. Der Formelpruefer von Microsoft markiert immer noch die selbe Stelle (siehe Screenshots).
Hast du noch eine andere Idee die mir weiterhelfen koennte? ich habe die Tutorials auf office-hilfe.com gelesen. Leider bringen beide Tutorials uns nicht viel weiter, weil sie sich auf das selbe Tabellenblatt beziehen. Meine Dropdown Quelle soll TeamListNEW heissen und sich im Tabellenblatt "List" befinden.
Mehrere Tabellenblaetter ("Pool", "A", etc.) sollen dann ueber "Data Validation" auf diese Quelle zugreifen (ueber "=TeamListNEW").

Ich habe auch schon alle kombindationen des A1 mit und ohne $-Zeichen versucht. Nun bin ich am Ende des Lateins . Das Dropdown ist aber wesentlicher bestandteil eines meiner Makros. Da durch das Dropdown ein verantwortlicher bestimmt wird.

Ueber weitere Vorschlaege wuerde ich mich sehr freuen. LG

Nico

 

Ich muss gestehen, daß ich auf den Screenshots nicht viel erkenne und raten müßte.

Wenn Du global referenzieren möchtest:

Code:

='blatt name'!$spalte$zeile

In meinem Screenshot für die Liste in Spalte S könnte also stehen:

Code:

=bereich.verschieben( 'tabelle1'!$s$4 ; 0 ; 0 ; anzahl2( 'tabelle1'!$s$4:$s$65536 ) ; 1 )

Gruß, Michael

 

Hi Michael,

wie meistens bei meinen Problemen war die Loesung einfach. Ich habe ein Englisches Excel und dadurch ist die Syntax leicht verschieden.

"= OFFSET(List!$A$1,1,0,COUNTA(List!$A:$A)-1,1)" -> loest das Problem.

bei genauerer Betrachtung faellt auf dass die englische Version durch ein "," und nicht durch ein ";" getrennt ist.

Ich danke dir trotzdem fuer deine Bemuehungen. Jetzt laeuft doch tatsaechlich wieder alles wie es soll :). Somit noch einmal vielen Dank