Office: (Office 365) Führendes Hochkomma in Text Zelle einfügen

Hallo Karin,
in Zelle E12 steht Aciclovir

 

Hi Alexander,

sorry, ich habe Spalte F geschaut.

Das erklärt aber immer noch nicht, was wann ersetzt werden soll und was wann nicht - also woher soll Excel wissen, dass gerade in Zeile 12 ersetzt werden soll und nicht auch in Zeile 11, obwohl dort auch "Aciclostad" in Spalte A steht und "Aciclovir" in Spalte E?

---

 

Ich habe mir es so gedacht, dass ich den zu suchenden Begriff angebe und wenn er gefunden wird, mit dem Begriff in Spalte E ersetzt wird, in der gesamten Tabelle. Es müssten mehrere Begriffe anzugeben sein.
Oder ist es einfacher, ein Makro mit suchen und ersetzen für die jeweiligen Suchbegriffe zu erstellen? (Find all)

 

Ich arbeite gerade mit Suchen und Ersetzen, scheint mir fast einfacher.....

 

Das hat mit "einfacher" nichts zu tun. Es ist ganz einfach logisch so: wenn es kein System gibt (und genau das ist bei dir offensichtlich der Fall!), nach welchem festgelegt werden kann, wann ersetzt werden soll und wann nicht, dann ist jegliche Umsetzung per VBA hinfällig, dann MUSST DU das selbt von Hand machen.

---

 

Ok, danke Dir jedenfalls für Deine Mühe.
Viele Grüße
Alexander

 

Oder als Apotheker eine Auftragsprogrammierung erwägen ... Dann wirst Du über den Weg Lasten/Pflichtenheft nämlich genau definieren müssen, was du denn vorhast. Tatsächlich wäre für mich die erste Frage, wo kommen die Listen der zu ersetzenden Begriffe denn her. Ist das eine regelmäßig wiederkehrende oder einmalige Aufgabe?

fragt sich ...

 

Hallo,
die Listen werden von der Apotheke aus der Abdamed Datenbank geliefert. Da gibt es keine Möglichkeiten der Änderung. Die vorliegende Datei stellt eine "Hausliste" für eine Intensivstation dar, die als Filter über die Abdamed Datenbank gelegt wird, dass der Anwender nur seine Medikamente sieht, die er verwendet.
Ich bin nur sozusagen der Mittelsmann, der die ursprüngliche Hausliste wie sie geliefert wird in ein Format überführen soll, das von General Electric in deren Programm gelesen werden kann.

 

Hi Alexander,

wie ich schon geschrieben hatte: wenn es kein EINDEUTIGES Schema gibt, dass bestimmte Begriffe bei JEDEM Vorkommen ersetzt werden sollen, dann lässt sich das nicht vollautomatisieren, sondern du musst auf JEDEN FALL selbst Hand anlegen und entscheiden, ob hier ersetzt oder dort nicht ersetzt werden soll - und dafür ist die Excel-interne Funktion "Suchen und Ersetzen" die einfachste und auch komfortable Möglichkeit. Klar kann man etwas programmieren, das genau dasselbe macht, aber dein Eingriff bleibt trotzdem notwendig um zu entscheiden: Ersetzen oder/und nächsten Eintrag suchen.

---

 

Genau so ist es, Du hast vollkommen recht. Die gelieferten Daten sind wie sie sind, das kann ich nicht ändern. Und als Kirsche auf der Sahne sind die Daten aus der Abdamed teils inkonsistent.

 

Moin,

anders als Karin sehe ich durchaus eine Möglichkeit diesen Import zu automatisieren. Du hast zum einen die (vermutlich gelegentlich aktualisierten) Abdamed-Tabellen. Dazu legst Du als Gegenstück eine Referenztabelle an, die neben den Arzneinamen bzw. Austauschprodukten z.B. auch die Nutzernamen führst. Dort gleichst Du auch die Inkonsistenzen der Lieferantentabelle aus. Wie oft diese aktualisiert werden muss, hängt von den Anforderungen der Station ab.

Das ist -und da hat Karin Recht- einmalig bzw. gelegentlich etwas Handarbeit, spart dann aber regelmäßig viel Aufwand. Ein möglicher VBA-Code kann dann auch auf Änderungen in beiden Tabellen reagieren, ohne dass Du ihn ändern musst.

Um je nach Benutzer entsprechende Filter zu setzen (laienhafter Versuch: Anästesisten sehen nur BTM, Physiotherapeuten nur durchblutungsfördernde Salben ) lässt sich über den Anmeldenamen im Betriebssystem oder eine Benutzerverwaltung in XL steuern.

Weder der Tabellen-Admin noch der Nutzer muss dann noch im Code irgendetwas ändern.

Ganz anderer Ansatz: Bietet ABDATA kein entsprechend nutzbares Software-Modul?

Grüße

 

Auch ohne Schleife möglich.

Code:

Sub hsv()
 Columns(1).SpecialCells(2, 2).Name = "b"
 [b] = ["'"&b]
End Sub

 

Danke hierfür.

@d'r Bastler: Sorry, für die verspätete Reaktion. Ich musste bis heute die Liste abgeben und habe jetzt die Tabelle mit suchen und ersetzen bearbeitet. Dabei wurde offensichtlich, dass noch sehr viel mehr Inkonsistenzen vorhanden sind als angenommen. Ich habe jetzt ein Makro erstellt, dass mir die 1000 Datensätze so anpasst, dass an ca. 30 Datensätzen "Hand angelegt werden muss".

Danke an Alle für ihre Bemühungen. Ich weiß dies sehr zu schätzen.

Gruß
Alexander

 

Moin Alexander,
no need to say sorry. man! Wichtig ist, dass dabei am Ende eine für Dich praktikable Lösung herausgekommen ist.

Schöne Grüße!

 

So, jetzt gibt es ein Problem beim Speichern. In der Excel Datei stehen die führenden Hochkommata ('Argininhydrochlorid 4.214g Ifk'), beim Speichern als csv Datei wird das Hochkomma aber wieder entfernt. (Argininhydrochlorid 4.214g Ifk'). Lässt sich das irgendwie vermeiden?