Suchergebnisse

Was ist denn, wenn zur gleichen Zeit in 2 Räumen je ein Therapeut was macht? Wie soll das in die Exporttabelle gehen? Nach Zeit sortiert? Nach Therapeut?

Hach, mit Excel bevorzuge ich ne BruteForce-Methode: Das Makro soll einfach doof weitersuchen, bis nix mehr zu holen ist. Als Pseudocode: Quellcode (14 Zeilen)

Da der nachhaltige Effekt für Dich größer ist, wenn Du selbst auf einen passenden Code kommst, gehen wir doch mal Deinen Code so in Gedanken durch: Zeile 8+9 = "Finde das passende Sheet" Joa, an sich ok Zeile 10: "Wenn in Zeile 2, Spalte 1 nichts drinsteht, dann arbeite den Exportcode ab" Was befindet sich in Zeile 2, Spalte 1? Ich seh da erstmal nur Euer Logo. Ist das gewollt? Zeile 11: "zähle i von 0 bis Therapeutenzahl - 1" klingt überzeugend Zeile 12: "wenn in Zeile (komplexe Rechnung), Spal…

4-fach For-Schleife zzgl. If-Statements. Also, wenn Du da noch durchblickst, dann herzlichen Glückwunsch. Ich werd mich mit weiteren Lösungen und Beiträgen insoweit zurückhalten, da Dein Problem etwas zuviel von meiner Freizeit verschlingt. Hilfe zur Selbsthilfe: Mach es doch anderweitig noch Schritt für Schritt: Kommentier die Zeilen 15 bis 29 erstmal aus und schau, ob die verbleibenden Anweisungen das machen, was sie sollen. Notfalls per Haltepunkt, Variablenwertanzeige und MsgBox. Wenn z.B. d…

Was ist "warry"? Warum in Zeile 10+19 LBound to UBound? Ist LBound bei Dir je was anderes als Null? Warum in Zeile 24 x = x + 1, wenn Du eh schon in einer For-Schleife mit x unterwegs bist? Wo wird RowID gesetzt/erhöht? Oder sollte das in Zeile 24 passieren? Wo ist das Spaltenoffset, welches nach jedem abgeschlossenen Tag um Therapeutenanzahl erhöht wird? Was bedeutet "strg" ausgesprochen bei Dir (Zeile 11)? Steuerung? Wo wird wie colAktu aus Zeile 16/17 verändert? Wo gehst Du die ganzen Therape…

Du gehst ja einen Tag von morgens bis abends durch, bevor Du zum nächsten tag wechselst, richtig? Und innerhalb einer Zeit gehst Du jeden Therapeuten durch => äußerste bzw. 1. Schleife: die Tage 2. Schleife: die Uhrzeit 3. Schleife (die innerste) die Therapeuten Gib mal nur die Schleifenköpfe als Code für die 3 Schleifen an, die Deiner Meinung nach passend sind.

Schleifenköpfe in Code: For i = 0 to ... oder Do Until x = ... eben. Damit wir sehen können, ob die dortigen Bedingungen sinnvoll sind. Eben von den 3 von mir beschriebenen. Und dazu noch, welche Reihenfolge Du als sinnvoll erachtest. Vielleicht hast Du eine andere als die in Post#15 von mir vorgeschlagene.

Ich bat absichtlich nur um die Schleifenköpfe und deren Reihenfolge, nicht um die ganzen Schleifen mit allem drum und dran. Je mehr Code Du postest, desto anstrengender wird es für uns jenen zu lesen und DIr weiterzuhelfen. Deine Schleifen-Reihenfolge hat natürlich direkten Einfluss auf die Sortierung in der Endtabelle. Zeile 3: Der Kommentar ist verwirrend. Welchen Verwendungszweck hat x? Nun, ich weiß es, denn ich kann es mir aus dem Code erschließen. Aber mit der Zeile verpasst Du dem Leser e…

Nein, das geht wieder an der Sache vorbei, zumindest teilweise. Schleifenköpfe. Und zwar bitte von allen Schleifen der kompletten Exportfunktion. Natürlich könnte ich sie mir auch aus Deinem Projekt raussuchen, aber das ist auch nicht Sinn der Sache. Es geht mir nicht um If-Statements, sondern um Schleifen, also solche (ich hoffe, das ist klar), die mir For, Do oder While beginnen. Alles andere ist erstmal vollkommen egal.

Also erstmal: Wenn Du keine Do-Loop-Schleife in Deinem bisherigen Code hast, musst Du jetzt nicht anfangen, eine einzuführen. Denn ich bat ja nur um den Code Zitat von VaporiZed: „von allen Schleifen der kompletten Exportfunktion“. Wenn dort bisher keine Do-Loop-Schleife ist, na dann eben nicht, macht ja nix. Wenn Du nur mit For-Schleifen arbeiten möchtest und keine der unbestimmten Schleifen wie Do-Schleife oder While-Schleife brauchst, ja dann musst Du natürlich auch keine erzeugen, ist doch O…

Die Schleifenreihenfolge hat direkten Einfluss auf die Exportreihenfolge. Die Quelltabelle sieht ja so aus: * * Tag 1 * * * Tag 2 * * * * Therapeut 1 * Th2 * Th3 * Th1 * Th2 * Th3 * 8:00 * Patient A * B * * E * * F * 9:00 * A * * D * E * * * 10:00 * * C * * E * * Du gehst die Schleifen ja grundsätzlich mit folgendem durch: Visual Basic-Quellcode (5 Zeilen) das führt eben zu: Tag 1: alle Termine von Th1, alle von Th2, alle von Th3 Tag 2: alle Termine von Th1, alle von Th2, alle von Th3 ... Wenn D…

Zitat von Sam85: „wenn ja, dann soll der loop sooft wie Therapeuten Anzahl ausgeführt werden. (Geht das?, also kann ich festlegen wie oft geloopt wird?)“ Ich glaube fast, dass Du da zwei Schleifen gedanklich vermischst. Die äußere von den beiden ist die Do-Schleife (oder vollenglisch: do loop). Der sagst Du: Schaue in Zelle(2, aktuelle_Spalte_für_den_Tag), ob da was steht. Wenn ja, dann führe die inneren Schleifen aus; wenn nicht, dann sind die Tage für den Monat vorbei. Wenn Du 5 Therapeuten ha…

1. Da der (Über)Schreibcode in Zeile 15 stehen dürfte, wäre es auch gut, wenn Du jene Zeile(n) postest. 2. die Do-Schleife sieht gut aus, ihr Wert wird aber (außer in Zeile 20) nirgends verwendet. Altes Problem: Nenne Deine Variablen so, dass man ihren Sinn erkennt. aktTag ist benennungstechnisch irreführend. Nenn sie z.B. SpalteDesAktuellenTagsInDerSchleife und schon erkennst Du, dass Du diesen Spaltenwert ja auch überall dort reinbringen musst, wo du relativ auf die Quelltabelle zugreifst/verw…

1. ja => bitte selbständig Code entsprechend anpassen (das "+ 2" rauslöschen) 2. wks.Cells(3, 1).Copy: schlechtes Beispiel, da ein fixer Wert (Jahr). Gib mal bitte eine Exportzeile, in der ein Patient in die Zieltabelle geschrieben wird.

1. wks.Cells(6 + y, 2).Copy = "kopiere aus der Quelltabelle aus Zeile 6 + y, Spalte 2 die Werte raus." Da wird trotz der vielen umherschwirrenden Schleifen immer nur aus Spalte 2 gelesen. Wieder keinerlei Variabilität. Da fehlt die x-Variable, die für die Therapeutenspalte steht, und der aktTag-Wert, der für die 1. aktuelle Tagesspalte steht. 2. rngPatient ist eine Range, ein Bereich. Da kann m.E. nicht .Value geprüft werden => Jede einzelne Zielzelle muss auf Inhalt geprüft werden.

Worksheets(target).Cells(2 + y, counter + 8).Value = Trim(strg) same thing. statt "2 + y" mach ein 2 + fortlaufendeZeilennummer, die Du nach jedem erfolgreichen Export um 1 erhöhst.

Da gibt's nix zu messen. Die laufen nicht in einer eigenen Schleife. Einfach nur vor allen anderen Schleifen Dim expRow As Integer und expRow = 2 (ggf. Wert korrigieren. Und jedes Mal, wenn ne Zeile exportiert wird/in die Exporttabelle geschrieben wird: expRow = expRow +1. sonst nix

Nachdem ein Worksheet/Monat komplett exportiert wurde, müssen alle relevanten Variablen wie aktcolTaginDoLoop natürlich wieder auf ihren Startwert gesetzt werden, sonst wird ab der 2. Tabelle ja an der falschen Stelle nach Daten gesucht.