| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Brühl und CIDEON: Synergien schaffen Wettbewerbsvorteile , ein Anwenderbericht
|
Autor
|
Thema: Text einklammern (4913 mal gelesen)
|
Sir Vival Mitglied Fachplaner Kanalsanierung
Beiträge: 134 Registriert: 12.09.2003 Intel Core i7-6700, 3,40GHz, 16 GB RAM, NVIDIA Quadro P620, Autodesk Civil 3D 2020 + 2022, ITWH-GIPS 8.3, GISx, Win 10 Enterprise, Office 2016 Professional, Plotter: HP DesignJet T1700ps
|
erstellt am: 25. Mai. 2004 13:33 <-- editieren / zitieren --> Unities abgeben:
Mahlzeit! Ich habe folgendes Problem: In einer Zeichnung befinden sich sehr, sehr viele Bestandshöhen. Diese liegen alle schon auf einem Layer und haben auch die Gleichen Eigenschaften. Nun möchte ich diese Texte alle in einem Rutsch in Klammern setzen. Z.B.: Vorher: 38.569 Nachher: (38.569) Leider komme ich mit der Acad-internen "Suchen und Ersetzen" - Funktion nicht weiter... :-( Wer weiß Rat? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 25. Mai. 2004 13:45 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
Hallo, solang es keine Werte in Attributen sind, sondern wirklich nur Textelemente, können dir die folgenden Zeilen helfen.
Code:
(defun c:tvn (/ aws gc1 Ed) (setq aws (ssget "_X" '( (0 . "*TEXT") (8 . "0");Hier den Layernamen einsetzen! ) ) ) (if aws (foreach E (bau_elemli aws) (entmod (subst (cons 1 (strcat "(" (cdr(setq gc1 (assoc 1 (setq Ed(entget E))))) ")" ) ) gc1 Ed ) ) ) (princ "\nKeine Texte gefunden!") ) ) (defun bau_elemli (asatz / n elemli) (setq n 0) (repeat (sslength asatz) (setq elemli(cons (ssname asatz n) elemli) n (1+ n)) ) elemli )
Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man's hat! Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich! [Diese Nachricht wurde von Brischke am 25. Mai. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 25. Mai. 2004 13:54 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
mal ein Lispansatz (defun c:EDIT-txt ( / AUSWAHL OBJEKTDATEN INDEX) (if(setq AUSWAHL(ssget '((0 . "TEXT")))) (progn (setq INDEX -1) (repeat (sslength AUSWAHL) (setq OBJEKTDATEN(entget(ssname AUSWAHL(setq INDEX(1+ INDEX))))) (entmod(subst (cons 1 (strcat "(" (cdr(assoc 1 OBJEKTDATEN)) ")")) (assoc 1 OBJEKTDATEN) OBJEKTDATEN ) ) ) ) ) ) Äh, zu laaaaangsammmmmmmmmmmm ------------------ - Thomas -
[Diese Nachricht wurde von CADmium am 25. Mai. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tmoehlenhoff Ehrenmitglied V.I.P. h.c. Gutzum, CAD-Therapeut und BIM-Priester ;-)
Beiträge: 2996 Registriert: 14.10.2002 AutoCAD 2017, AutoCAD Architecture 2017, Revit 2017 und was sonst noch so Spaß macht ...
|
erstellt am: 25. Mai. 2004 13:56 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
|
Sir Vival Mitglied Fachplaner Kanalsanierung
Beiträge: 134 Registriert: 12.09.2003
|
erstellt am: 25. Mai. 2004 14:24 <-- editieren / zitieren --> Unities abgeben:
Besten Dank für eure schnellen Antworten! @Brischke: Super-Sache! Funktioniert einwandfrei... Unities sind unterwegs... :-)) Gäbe es auch innerhalb des Progs. die Möglichkeit einer grafischen Elementauswahl? So daß man z.B. EINEN Texte anpickt und daß anschließend alle Texte mit den gleichen Eigenschaften abgearbeitet werden? @CADmium: Dir natürlich auch besten Dank für Deine Bemühungen. Werd's gleich mal testen... @Torsten: Auf srxtext bin ich im Vorfeld meiner Fragestellung schon durch die Such-Funktion gestoßen und das Prog. führte bei mir immer nur zu einem Abbruch der Funktion... Gruß Christian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 25. Mai. 2004 14:31 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
so? .. einen anklicken und alle auf gleichen Layer werden modifiziert? (defun c:EDIT-txt ( / AUSWAHL OBJEKTDATEN INDEX) (if(setq AUSWAHL(ssget "_:S" '((0 . "TEXT")))) (progn (cdr(assoc 8 (entget (ssname AUSWAHL 0)))) (if(setq AUSWAHL(ssget "_X" (list '(0 . "TEXT") (cons 8 (cdr(assoc 8 (entget (ssname AUSWAHL 0))))) ) ) ) (progn (setq INDEX -1) (repeat (sslength AUSWAHL) (setq OBJEKTDATEN(entget(ssname AUSWAHL(setq INDEX(1+ INDEX))))) (entmod(subst (cons 1 (strcat "(" (cdr(assoc 1 OBJEKTDATEN)) ")")) (assoc 1 OBJEKTDATEN) OBJEKTDATEN ) ) ) ) ) ) ) )
------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Sir Vival Mitglied Fachplaner Kanalsanierung
Beiträge: 134 Registriert: 12.09.2003
|
erstellt am: 25. Mai. 2004 14:33 <-- editieren / zitieren --> Unities abgeben:
@CADmium: Deine Zeilen hätte ich viell. vorher testen sollen... Genau so hab ich mir das vorgestellt... Einfach genial! Somit hat sich meine Frage an Holger aus dem vorherigen Beitrag erübrigt... Christian P.S.: Was mache ich eigentlich im umgekehrten Fall? Ich habe also eingeklammerte Texte, die ich gerne ausklammern möchte... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 25. Mai. 2004 15:29 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
zu deinem P.S. : die Funktion nutzen : (defun c:EDIT-TXT2 ( / AUSWAHL OBJEKTDATEN INDEX) (if(setq AUSWAHL(ssget "_:S" '((0 . "TEXT")))) (progn (cdr(assoc 8 (entget (ssname AUSWAHL 0)))) (if(setq AUSWAHL(ssget "_X" (list '(0 . "TEXT") (cons 8 (cdr(assoc 8 (entget (ssname AUSWAHL 0))))) (cons 1 "`(*)") ) ) ) (progn (setq INDEX -1) (repeat (sslength AUSWAHL) (setq OBJEKTDATEN(entget(ssname AUSWAHL(setq INDEX(1+ INDEX))))) (entmod(subst (cons 1 (substr(cdr(assoc 1 OBJEKTDATEN)) 2 (-(strlen (cdr(assoc 1 OBJEKTDATEN)))2) ) ) (assoc 1 OBJEKTDATEN) OBJEKTDATEN ) ) ) ) ) ) ) ) ------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 25. Mai. 2004 15:44 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
Hallo Christian, An folgendem Code-Bsp kannst du sehen, wie einfach es ist, wenn man auf eine Funktionsbiblithek zurück greifen kann. Ich habe für deine Aufgabenstellung mal die notwendigen Bausteine zusammengesucht und so zusammen geschachtelt, dass alle Aufgaben (Klammern drum und wieder weg, manuell und voreingestellte Eigenschaften) für bestimmte Objekte leicht gemacht werden können. Momentan werden nur Texte geändert, bei denen wirklich eine Zahl enthalten ist. Mit ein paar Handgriffen kannst du dir aus diese Funktionen auch weitere Neue Funktionen 'basteln'. Deiner Fantasie sind da keine Grenzen gesetzt. Mit den Befehlen: TVN - Klammern drum TVNweg - Klammern weg werden die Voreingestellten Eigenschaften der Texte genommen, mit WTVN - Klammern drum WTVNweg - Klammern weg wird durch eine Objektwahl zur Bestimmung der Objekteigenschaften aufgefordert. Aber du musst schauen, ob die Einstellungen in diesen beiden Routinen auch tatsächlich deinen Anforderungen entsprechen. @Torsten Möhlenhoff hier habe ich auch die Möglichkeit eingebaut, Funktionsausdrücke zu übergeben. Dies sowohl für die Filterung als auch für die Veränderung der Texte. Bei Fragen ... Grüße Holger und nun der Code:
Code:
;;;TextVorNach Suchen und Ersetzen ;;;Klammern weg, manuelle Objektwahl zur Eigenschaftenbestimmung (defun c:WTVNweg (/ aws gc1 Ed obj) (setq obj (ssget "_:S" '((0 . "*TEXT")))) (if obj (chg_TXT_Filter ;Textobjekteigenschaften (vl-remove-if-not '(lambda (E) (member (car E) '(8;Layer 7;Stil 62;Farbe 41;Breitenfaktor 72;horizontale Textausrichtung 73;vertikale Textausrichtung 72;Texterstellung (Seitenverkehrt..) 50;Drehung ;...usw ) ) ) (entget (ssname obj 0)) ) ;Textwerteigenschaft '(lambda (TXT) (str-isZahl TXT "(.,)");Einklammern nur, wenn Text eine Zahl darstellt! ) ;Neue Texteigenschaft '(lambda (AT) (str-Expr-str AT '(lambda (Z) (if (not(member (ascii Z) (list (ascii "(")(ascii ")")))) Z "") ) ) ) ) ) ) ;;; ;;;Klammern drum, manuelle Objektwahl zur Eigenschaftenbestimmung (defun c:WTVN (/ aws gc1 Ed obj) (setq obj (ssget "_:S" '((0 . "*TEXT")))) (if obj (chg_TXT_Filter ;Textobjekteigenschaften (vl-remove-if-not '(lambda (E) (member (car E) '(8;Layer 7;Stil 62;Farbe 41;Breitenfaktor 72;horizontale Textausrichtung 73;vertikale Textausrichtung 72;Texterstellung (Seitenverkehrt..) 50;Drehung ;...usw ) ) ) (entget (ssname obj 0)) ) ;Textwerteigenschaft '(lambda (TXT) (str-isZahl TXT ".,");Einklammern nur, wenn Text eine Zahl darstellt! ) ;Neue Texteigenschaft '(lambda (AT) (strcat "(" AT ")");Einklammern ) ) ) ) ;;;Klammern weg, Voreingestellte Eigenschaften (defun c:TVNweg (/ aws gc1 Ed) (chg_TXT_Filter ;Textobjekteigenschaften '( (8 . "Text*");auf Layer Text* (7 . "Standard");Textstil Standard ) ;Textwerteigenschaft '(lambda (TXT) (str-isZahl TXT "(.,)");Ausklammern nur, wenn Text eine (Zahl) darstellt! ) ;Neue Texteigenschaft '(lambda (AT) (str-Expr-str AT '(lambda (Z) (if (not(member (ascii Z) (list (ascii "(")(ascii ")")))) Z "") ) ) ) ) ) ;;;Klammern drum, Voreingestellte Eigenschaften (defun c:TVN (/ aws gc1 Ed) (chg_TXT_Filter ;Textobjekteigenschaften '( (8 . "Text*");auf Layer Text* (7 . "Standard");Textstil Standard ) ;Textwerteigenschaft '(lambda (TXT) (str-isZahl TXT ".,");Einklammern nur, wenn Text eine Zahl darstellt! ) ;Neue Texteigenschaft '(lambda (AT) (strcat "(" AT ")");Einklammern ) ) ) ;;; (defun chg_TXT_Filter (OFilter EXPR TEXPR / gc1 Ed) (setq aws (ssget "_X" (append '( (0 . "*TEXT")) OFilter ) ) ) (if aws (foreach E (bau_elemli aws) (if ((eval EXPR) (cdr(setq gc1 (assoc 1 (setq Ed(entget E)))))) (chgTxtObject_Function E TEXPR) ) ) (princ "\nKeine Texte gefunden!") ) ) ;;; (defun str-isZahl (STR STRTRENN / tmp) (setq STRTRENN(mapcar 'ascii(str->list STRTRENN)) tmp (str-Expr-str STR '(lambda (Z) (if (or (<= 48 (ascii Z) 57) (member (ascii Z) STRTRENN) ) Z "") ) ) ) (if(and tmp (= (strlen STR) (strlen tmp) ) ) tmp) ) ;;; (defun str-Expr-str (STR EXPR / erg) (setq erg(apply 'strcat (mapcar Expr (str->list STR) ) ) ) (if (/= erg "") erg ) ) ;;; (defun str->list (STR / i strli) (setq i 0) (if(= 'STR (type STR)) (reverse (repeat (strlen STR) (setq i (1+ i) strli(cons(substr STR i 1)strli) ) ) ) ) ) (defun chgTxtObject_Function (E nTXTEXP / gc1 Ed) (entmod (subst (cons 1 ((eval nTXTEXP)(cdr(setq gc1 (assoc 1 (setq Ed(entget E)))))) ) gc1 Ed ) ) ) (defun bau_elemli (asatz / n elemli) (setq n 0) (repeat (sslength asatz) (setq elemli(cons (ssname asatz n) elemli) n (1+ n)) ) elemli ) (princ "\n(defun - Lisp over night!") (princ "\nmailto:kontakt@defun.de") (princ "\n\"WTVN\" - Klammern drum, manuelle Objektwahl zur Eigenschaftenbestimmung") (princ "\n\"WTVNweg\" - Klammern weg, manuelle Objektwahl zur Eigenschaftenbestimmung") (princ "\n\"TVN\" - Klammern drum, Voreingestellte Eigenschaften") (princ "\n\"TVNweg\" - Klammern weg, Voreingestellte Eigenschaften")
------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man's hat! Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Stelli1 Ehrenmitglied Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2013, Rasterdesign MapGuide 6.5 - 2013 Oracle 9i,10g,11g Enterprise autodesk Topobase 2-2012 VS6, VS.net
|
erstellt am: 14. Sep. 2005 18:39 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 14. Sep. 2005 19:01 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
|
Stelli1 Ehrenmitglied Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2013, Rasterdesign MapGuide 6.5 - 2013 Oracle 9i,10g,11g Enterprise autodesk Topobase 2-2012 VS6, VS.net
|
erstellt am: 15. Sep. 2005 08:50 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
Hallo Marc, den Quellcode wohl nicht, kann man als Toolsammlung kaufen. Beinhaltet, - Blöcke tauschen (auch mit Attributen), Kreis + Punkt nach Block - Größe von Blöcken, Texten und Polylinien relativ und absolut im Stapel - Drehen von Blöcken, Texten Stapel - Textteile ersetzen, Runden von Zahlen (Prefix,Suffix) - Höhenbschriftung auf Fang oder Objekte - Linienbegleitende Symbole (Zaun, Hecke etc) - Böschungsschraffuren aus Umring oder Ober-/Unterkante - Excel Import/Export mit Attributen - Layer/Blöcke umbenennen - Werte wie Farbe, Linienstärke in Blockdefinition ändern (z.B.vonLayer nach vonBlock) - Längsschnitt aus Excel - Plottool zur erzeugung von Fahnenbeschriftung und Gitterkreuzen im Papierbereich. Wenn du im VBA Forum ein Thema aufmachst, können wir mit den Texten einen kleinen Workshop zum Eigenbau machen. Mit den Texten ist das sehr einfach und kann leicht auf andere Aufgaben übertragen werden. Gruß Stelli ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 15. Sep. 2005 09:40 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
Werbe-ALAAAAARM!!!!! Ich verleihe das "TB-O-Meter™" an Stelli1 Inhalt>------------------| |-<Werbung @Stelli1: Aber danke für das Angebot zum Eigenbau-Workshop... Das wiederum finde ich gut! ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Stelli1 Ehrenmitglied Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2013, Rasterdesign MapGuide 6.5 - 2013 Oracle 9i,10g,11g Enterprise autodesk Topobase 2-2012 VS6, VS.net
|
erstellt am: 15. Sep. 2005 10:43 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
Hallo Marc, müsste ich zurückgeben Schnorrer Alarm wo hast du die Werbung gelesen ? Bezugsquelle, Preis ??? Vielleicht interessiert es mich ja. Ich glaube das Forum ist keine Tauschbörse und auch kein DRK sondern für gegenseitige Hilfe! In diesem Sinne Stelli
------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 15. Sep. 2005 11:06 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
Hallo Stelli, es ist schon komisch, wenn man liest, dass die Lisp-Codes recht kompliziert aussehen, du ein Tool hast, was dann in 0,2sec macht. In diesem Beitrag war eigentlich nichts hilfreiches zu finden. Mit Bezug auf die Kompliziertheit des Lisp-Codes hat Marc nach dem Quellcode deines Tools gefragt ... darauf kam dein Hinweis auf ein käuflich zu erwerbendes Tool - Das ist schon recht merkwürdig. Einen Ansatz zur Hilfe kann ich nicht erkennen, nur Feststellungen, die dem Fragenden kein Stück weiter bringen. Da liegt, die Vermutung, dass der Beitrag nur der Werbung wegen nach oben geholt wurde schon recht nahe. SchnorrerAlarm? Worauf ist das bezogen? a) Darauf, dass Marc den Quellcode sehen wollte? oder b) dass jemand nach Rat fragt, für ein bestimmtes Problem? Richtig ist, dass das Forum zur gegenseitigen Hilfe gedacht ist. Wie diese Hilfe aussieht, welche Grenzen wo gezogen sind, das ist subjektiv. Deshalb, wenn es jemanden hilft, durch den Austausch von Informationen, Zeichnungen, freien Programmen, ... ein Problem zu lösen, dann ist der Tauschbörsencharakter vollkommen in Ordnung.
Das Forum kein DRK? Auch dass lässt sich nur subjektiv beantworten. Für viele ist es sicherlich so, dass sie sehr viel mehr Antworten geben als Fragen stellen. Genauso gibt es die Mitglieder, die mehr Fragen als selber antworten. Unter diesem Gesichtspunkt ist das Forum durchaus mit dem DRK zu vergleichen. Das ist gut so und bestimmt auch den Charakter des Forums, dass jeder mal in die Rolle des Retters und mal des zu Rettenden schlüpft. So ganz kann ich deine Aufregung, die ich glaube aus deiner Antwort herauszulesen, nicht verstehen und auch nicht teilen. Es sollte letztendlich doch unser aller Ziel sein, dass im Forum weiterhin vordergründig geholfen wird und nicht dass man sich auf jede Frage erst durch 10 Werbeblöcke zur Antwort durchkämpfen muss. Meine Meinung! Grüße Holger ------------------ Holger Brischke CAD on demand GmbH Autodesk User Group Central Europe Individuelle Lösungen von Heute auf Morgen. AUGCE Manager Deutschland Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 15. Sep. 2005 11:27 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
@Stelli1, ach' komm. Hab' 'n Späßle gemacht. Konnte nach Deinem ersten Posting einfach nicht wiederstehen Dir 'n Werbeposting aus 'm Kreuz zu leiern.. Ich WUSSTE einfach das im zweiten Posting kommen würde was kam. Und nur weil da kein Link oder 'n Preis angegeben war heißt das ja nicht, dass sich Interessierte nicht per PM an Dich wenden können, gelle? ABer Dein Angebot zu einem Workshop zur Eigenerstellung eines ähnlichen Tools in VBA fand' ich wiederum WIRKLICH gut, thx. Also, alles locker. @Brischke: Holger, ich glaube der Stelli hat das genauso schmunzelnd gemeint wie ich ;-) ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |