PDA

Vollständige Version anzeigen : verschiedenen Zeilen hintereinander in neuem Arbeitsblatt


robbse
21.09.2016, 15:45
Hallo zusammen,
ich bin ein blutiger VBA-Anfänger, brauche aber dringend eine Lösung, bei der ich mir selbst nicht helfen kann...
Ich habe eine Tabelle zur Vergabe von Medikamenten an Patienten, die immer für ein Datum gültig ist, dass in H3 steht. In Spalte C steht der Name aller Patienten . Bekommt der Patient Medikamente, steht der Name nochmals in Spalte P mit Doppelpunkt. In Spalte Q steht, wie oft am Tag das Medikament verabreicht wird, in Spalte R ein "x", das nur der Optik dient, in Spalte S die Dosierung und in Spalte T der Name des Medikamentes.
Wenn ein Patient mehrere Medikamente am Tag bekommt, stehen diese untereinander, der Name des Patienten steht aber nur vor dem ersten.
Für Patienten, die Medikamentenfrei sind, steht nichts in der Spalte, sie sind im Plan bei den Namen in Spalte C aber aufgeführt, sodass Leerzeilen entstehen.
Es gibt 2 Tabellen für verschiedenen Stationen (1.: "Station A", 2.: "Station B")


Das sieht ungefähr so aus: (im Anhang sieht man es schöner)

A P Q R S T
Müller Müller: 2 x 0,5 Tablette 1
1 x 0,8 ml Medikament 2
Meier Meier: 2 x 1 Tablette 3
Fischer
Schmidt Schmidt: 3 x Augensalbe links
1 x 1,5 Tablette 2
2 x 0,75 Tablette 3

Mein Ziel wäre, dass in einem neuen Arbeitsblatt für jeden Patienten (egal ob er Medikamente bekommt oder nicht und egal, ob er von Station 1 der 2 kommt) eine eigene Zeile vorhanden ist, in der in Spalte A der Name, in Spalte B das Datum, ggf. in Spalte C "keine Medikamente" (falls der Patient keine Medikamente bekommen hat) und dann ab Spalte D alle Medikamente, die der Patient bekommen hat hintereinander stehen.

Das sollte dann ungefähr so aussehen: (auch hier sieht der Anhang klarer aus)
Tabellenname: "Medikamente 22.07.2016" (Datum aus H3)

A B C D E F G H I J K
Müller 22.7.2016 2 x 0,5 Tablette 1 1 x 0,8 ml Medikament 2
Meier 22.7.2016 2 x 1 Tablette 3
Fischer22.7.2016 kein M.
Schmidt 22.7.2016 3 x Augensalbe 1 x 1,5 Tablette 2 .........

Ich bin da leider schwer überfragt und es wäre eine riesige Erleichterung für uns, wenn es dazu Lösungsansätze gäbe...
Viele Grüße und schonmal ein herzlicher Dank!
Robbse

Hajo_Zi
21.09.2016, 16:48
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann. Eine hochgeladene Arbeitsmappe bzw. ein geposteter Tabellenausschnitt dagegen, erhöhen die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese Mappe mit einem <a href="http://www.ms-office-forum.net/forum/showpost.php?p=340072&postcount=3">aussagekräftigen Dateinamen</a> hoch oder benutze ein Tool zur Tabellenanzeige.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten <a href="http://www.ms-office-forum.de/forum/showthread.php?t=322895">anonymisieren bzw. pseudonymisieren.</a>
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms).
<br/><b><em>Jul 2014</em></b><table border="1" cellspacing="0" cellpadding="0" style="border-color:#000000; border-width: 1px; font-size:11pt; background-color:#ffffff; padding-left:2pt; padding-right:2pt; "><colgroup><col style="font-weight:bold; width:40px;" /><col style="width:209px;" /></colgroup><tr style="background-color:#99CCFF; text-align:center; font-weight:bold; "><td>&nbsp;</td><td>C</td></tr><tr><td style="background-color:#99CCFF; text-align:center; font-weight:bold; ">29</td><td style="border-color:#000000; color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">Falsch</td></tr><tr><td style="background-color:#99CCFF; text-align:center; font-weight:bold; ">30</td><td style="border-color:#000000; color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">496</td></tr></table><br/><table border="1" cellspacing="0" cellpadding="0" style="border-color:#000000; border-width: 1px;font-size:11pt; background-color:#ffffff; width:800px;padding-left:2pt; padding-right:2pt; "><tr style="background-color:#FFCC66; text-align:center; font-weight:bold; "><td colspan="3" > verwendete Formeln </td><td> </td></tr><tr valign="top" style="background-color:#FFCC66; text-align:center; font-weight:bold; "><td> Zelle </td><td> Formel</td><td> Bereich </td> <td>N/A</td></tr><tr><td>C29</td><td>=C27=C28</td><td>&nbsp;</td><td>&nbsp;</td></tr><tr><td>C30</td><td>=SUMMEWENN([Bildschirm.xlsm]Statistik!$Q$44:$Q$54;"&lt;" &amp;HEUTE();[Bildschirm.xlsm]Statistik!$R$54)</td><td>&nbsp;</td><td>&nbsp;</td></tr></table><table cellspacing="0" cellpadding="0"><tr style="text-align:left; font-weight:bold; " class="style21"><td style="text-align:left; font-size: xx-small" ><a href="http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip" >Excel-Inn.de</a></td></tr> <tr style="text-align:left; font-weight:bold; " class="style21"><td style="text-align:left; font-size: xx-small" ><a href='http://Hajo-Excel.de/tools.htm' >Hajo-Excel.de</a></td></tr><tr style="text-align:left; font-weight:bold;" ><td style="text-align:left; font-size: xx-small" >XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007</td></tr><tr style="text-align:left; font-weight:bold; " ><td style="text-align:left; font-size: xx-small" > Add-In-Version 18.07 einschl. 64 Bit</td></tr></table><br/>

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

robbse
22.09.2016, 10:17
vielen Dank für den Tip!
Ich habe mal eine Beispieldatei angehangen. In der Tabelle "Medikamente 21.09.2016 - so soll's" habe ich einmal die Anordnung, in die ich die Daten aus Station 1 und 2 bringen möchte, zusammenkopiert.