Suchergebnisse

Guten Morgen, wenn ich Deinen Ansatz richtig verstehe, wäre das eine Maßnahme für eine Person, da die Funktion im Ribbon angelegt wird und falls mehrere Personen die Datei(en) benutzen, müsste alle diese Auslagerung vornehmen, richtig? Sollte dem so sein, würde ich gerne weiter nach einer anderen Lösung suchen. Danke jedoch für den Tipp. Der hilft mir tatsächlich in einem anderen Projekt weiter.

Der Code liegt in der Datei. Bei der Datei handelt es sich um eine Vorlage für ein technische Datenblatt (TDB). Diese wird genommen um TDBs für Produkte zu erstellen. Die Datei wird also vervielfältigt. Solange man nur ein TDB bearbeitet, läuft alles wie am Schnürchen. Hat man nun aber zwei TDBs offen, kommt es zur o.g. Fehlermeldung bzw. zum anschließenden Absturz. Deine Vorschlag hab ich grade umgesetzt, der Ausgang ist jedoch der selbe Würde es helfen, wenn ich die Datei hochlade?

Hallo INOPIAE, Zitat von INOPIAE: „Versuche doch die Variable tbl As ListObject beim Laden des Formulars zu setzen und nicht erst beim Klicken auf einen Button. Und später machst Du dies: Visual Basic-Quellcode (1 Zeile)“ Das geschieht bereits beim Event Userform_Initialize() (Versteckter Text) Das funktioniert auch alles. Mit dem .Rowsource-Befehl in CommandButton2_Click wird der nun geänderte Inhalt in die ListBox übertragen. Auch das funktioniert ... wenn nur eine Datei offen ist. Sind zwei g…

Hallo zusammen, nachdem meine eigenen Recherchen und Versuche alle im Sande verlaufen sind, wenn ich mich nun ans Forum, in der Hoffnung hier Hinweise, neue Impulse oder gar eine Lösung zu erhalten. Folgendes Problem bereitet mir Schwierigkeiten: Ich habe ein Datenblatt, in dem untereinander insg. sechs definierte Tabellen eingefügt sind. Da mehrere Personen mit dem Blatt arbeiten, wurde es gegen unbeabsichtigte Veränderungen geschützt. Um bei aktivem Blattschutz dennoch Zeilen hinzufügen oder e…

Hallo zusammen, Ich hab zur einheitlichen Dokumentenbereitstellung eine Datei erstellt, welche automatisch vorab definierte Eigenschaften sämtlicher Dateien in einem Verzeichnis ausliest und diese für weitere Schritte bereitstellt. Den Basis-Code hab ich vor einiger Zeit bei Recherchen im Netz gefunden. Nachdem das ganze Konstrukt auf meinem Rechner fehlerfrei läuft und ich damit nun auch schon eine Weile arbeite, hab ich die ersten Testläufe bei ein paar Kollegen vorgenommen. Alles läuft einwan…

Zitat von petaod: „ Am Rest habe ich erst mal nichts auszusetzen. “ Du meinst also die erste und letzte Zeile war ok Ich geb zu, damit hab ich nicht gerechnet. Da muss ich dann wohl noch so einiges aufräumen (auch in anderen Projekten). Besten Dank für Deine Hilfe und für den Code Momentan bin ich noch in anderen Themen verhaftet, daher hab ich ihn noch nicht testen können. Ich versuchs morgen irgendwie dazuwischen zu schieben. Feedback folgt

Moin, Zitat von petaod: „ Auf den ersten Blick fällt mir auf, dass diese Zeile WB.Worksheets("Tabelle1").Range("E12:G12" & Sheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row).Copy vermutlich nicht das ist, was du willst. Ich glaube nicht, dass du von E12 bis G1212 kopieren willst. “ Mit dem Part möchte ich eigentlich den Bereich E12:G12 bis zur letzten gefüllten Zeile auswählen. Was verursacht denn die Auswahl bis G1212? Zitat von petaod: „ Zitat von Marco123: „Konntest Du den im Code irgendw…

Hi Petaod, Danke für die schnelle Reaktion. Eine doppelte Ablage war auch meine erste Vermutung. Mehrfache Überprüfungen ergaben jedoch, dass das nicht der Fall ist. Alle Daten sind nur einmal vorhanden. Ich hab momentan die Dopplungen per Formel und Filter ausgeblendet, daher brennen sie mir nicht mehr ganz so unter den Nägeln. Da ich den o.g. Code aber höchstwahrscheinlich noch für andere Anwendungen heranziehen werde, würd ich die Ursache des ganzen gerne herausfinden. Konntest Du den im Code…

Moin Forum, folgende Sitation bereitet mir grade etwas Kopfschmerzen: Per FSO-Schleife importiere ich sämtliche Daten aller in einem Ordner abgelegten Excel-Dateien in eine Mastertabelle. Aus mit bisher unbekannten Gründen werden einige Daten jedoch doppelt übernommen. Hier mein aktueller Code: Visual Basic-Quellcode (74 Zeilen) Habt Ihr evtl. eine Ahnung (oder Lösung) wo die Ursache für die teils doppelte Datenübernahme liegt? Vielen Dank im Voraus für Eure Unterstützung

Moin Forum, kleines Update. Ich hab einen Lösungsweg gefunden, auch wenn dieser mal wieder eher dem Vorgehen "von hinten durch dir Brust ins Auge" zuzurechnen ist. Hier stichpunktartig mein Vorgehen: - Word-Datei per Excel-Makro öffnen - in Word-Datei nach Absätzen suchen und durch unübliche Zeichenfolge ersetzen - Texte in Excel übernehmen - Ersatzzeichen gegen Absätze austauschen (eigenes Makro) Der aktuelle Code sieht dann wie folgt aus: Visual Basic-Quellcode (105 Zeilen) Das Austauschen in …

Ursache des ganzen scheint die Code-Zeile 40 zu sein: Visual Basic-Quellcode (1 Zeile) Die Kombi Left + Len bewirkt ja, das von links an die Anzahl der Zeichen aufgenommen wird, welche übernommen werden sollen Da Absätze aber keine Zeichen sind, werden diese nicht erfasst. Im Gegensatz zur Zelle wird der Inhalt in der Bearbeitungsleiste aber korrekt angezeigt. Ich bin weiterhin aktiv auf der Suche nach einer passenden Lösung / Alternative, bin bisher aber nicht fündig geworden. Falls jemand etwa…

Hi Padre, die Zellformatierung wird bereits in den Zeilen 57 bis 60 des Codes angepasst. Zeile 58 schaltet den Textumbruch. Der Inhalt wird daher schon an die Zellgröße angepasst (Textumbruch, Ausrichtung), was das Problem aber nicht löst. Die Umbrüche / Absätze erscheinen weiterhin erst wenn die Zellen manuell per Doppelklick / F2 angewählt werden. Auch die manuelle Anpassung der Zellformatierung schafft keine Abhilfe.

Hallo Forum, aktuell bin ich damit zugange anhand der in diversen Betriebsanweisungen vorhandenen Daten (eine Word-Datei pro Thema, Daten in vorgegebener Tabellenform) eine sich selbstständig aktualisierende Excel-Tabelle zu erstellen. Das Ganze soll durch die Zusammenfassung aller Daten viel übersichtlicher werden. Das Auslesen der Word-Tabellen als auch das Einfügen in die Excel-Datei funktioniert mit folgendem Code schonmal ganz gut: Visual Basic-Quellcode (68 Zeilen) Soweit klappt alles.Einz…

Hallo Forum, Hat sich erledigt. Hab eine für mich passende Lösung gefunden. Hier für alle Interessierten: Visual Basic-Quellcode (53 Zeilen)

Hi Forum, ich bin aktuell damit dran, ein Prozess-Management-Projekt umzusetzen. Dafür gibt es ja professionelle Software, aber sowas ist Luxus Daher hab ich was in Excel realisiert.Ein Prozessdiagramm / lässt sich ja relativ schnell und einfach mit den dafür vorgesehenen Shapes erstellen. Die Shapes hab ich mit Elbow-Connectoren verbunden. Per Makro kann ich schonmal die Inhalte sämtlicher im Prozessdiagramm / Flowchart verwendeten Shapes auslesen und tabellarisch auflisten. Durch die hier drin…

@EaranMaleasi Vielen Dank für den Hinweis. Ich hab die Korrekturen und die "Einfärbungen" gesehen und mich schon gefragt wie das geht. Hab nun auch die Verlinkung erkannt, mir die nötigen Infos besorgt und anhand eines Beispiels getestet => funktioniert. Ab nun muss man hoffentlich nicht mehr hinter mir aufräumen

Sorry für meine verspätete Rückmeldung. Habe Deinen Vorschlag umgesetzt und musste leider erkennen, musste aber leider erkennen, dass das Ergebnis anscheinend das gleiche ist. Dennoch habe ich die Aufgabe auf andere Art lösen können, wenn diese auch etwas mehr der Vorgehensweise "von hinten durch die Brust in Auge" gleicht. Hier mein Lösungsweg: 1. Entfernung der Code-Zeile 100 (Erstellung Hyperlink) 2. Datenübernahme in ListBox (Dateiname, Pfad) 3. Übertrag Auswahl ListBox in fixe Zellen (Datei…

Ich verstehe Deinen Vorschlag, muss jedoch zugeben das ich anscheinend nicht in der Lage bin, diesen umzusetzen. Hab jetzt mit meinem Anfängerwissen einige Male probiert umzusetzen, scheitere jedoch jedes Mal. Um mein Unwissen irgendwie mit Laub zu bedecken hab ich parallel noch nach einem Plan B gesucht … und hab zumindest einen Ansatz gefunden: Mit dem Code lässt sich das Ziel einen Verknüpfung auslesen: Visual Basic-Quellcode (27 Zeilen) Mein Gedanke war halt: Wenn ich was auslesen kann, kann…

Hi cry.baby, Sämtliche innerhalb des auszulesenden Ordners abgelegte Dateien werden eingelesen, aufgelistet und erhalten einen Hyperlink. Der o.g. Code setzt eigenständig die jeweiligen Hyperlinks, halt automatisch ohne manuellen Aufwand. Was mit einzelnen Dateien (xlsx., docx, .ppt, etc.) wunderbar funktioniert soll nach Möglichkeit auch mit Verknüpfungen (.lnk) geschehen, welche in dem ausgelesenen Ordner vorhanden sind. Es sollen also auch Verlinkungen verlinkt werden.

Hallo cry.baby, der Code im Sub Ordner_auslesen (Zeile 45) hat eigentlich keine Auswirkungen. Auch wenn ich den Part rausnehme, läuft alles wie gewohnt. Ist wohl ein Überbleibsel vor Originalcode. Der Code im Sub ListOrdner (Zeile 100) beeinflusst, worauf verlinkt wird - Ws.Hyperlinks.Add Ws.Cells(Zeile, Spalte), Datei bewirkt eine Verlinkung auf direkt auf die Datei im Unterordner - Ws.Hyperlinks.Add Ws.Cells(Zeile, Spalte), Ordner bewirkt eine Verlinkung auf den Ordner in dem sich der Unterord…

Hallo Forum, ich versuche mich schon längerem an folgender Aufgabe: - Alle SubOrdner und Dateien aus einem Verzeichnis in eine Excel-Tabelle einlesen und automatisch verlinken Bei meiner Suche in den unendlichen Weiten des Internets bin ich auch auf einen sehr guten VBA-Code gestoßen, wobei ich zugeben muss, dass ich nicht mehr genau weiß wo ich ihn gefunden habe. Diesen Code hab ich entsprechend am meine Bedürfnisse angepasst und er macht auch genau das was er soll. Sämtliche Subordner werden a…

Hab grade nochmal etwas gebastelt Ziel des ganzen: => Adresse des Ordners aus eine Zelle entnehmen und nicht im Code festlegen Damit ist das ganze deutlich flexibler. Quellcode (39 Zeilen)

Das ist der Hammer. Funktioniert genauso, wie es mir erträumt habe Vielen Dank für Deine grandiose Hilfe. Und hier für alle Interessierten: Quellcode (37 Zeilen)

Wurde soeben erledigt. Ich will nicht zur Last fallen, aber ein Anliegen hab ich noch. Der Code liest ja jeweils zwei Zeilen aus den TXTs aus: Zeile 1 = Kundennummer (Auflistung in Spalte A) Zeile 2 = AS-Nummer (Auflistung in Spalte B) Leider ist es jetzt so, dass die Kundennummer in jeder TXT nur einmal, die AS-Nummern aber auch mehrfach in unterschiedliche Anzahl vorkommen können. Meine bisherige manuelle Zusammenstellung sah z.B. bisher so aus: 1. Kundennummer AS-Nr. 2. Kundennummer AS-Nr. . …

Das war ja mal eine schnelle Antwort. Jetzt läuft alles sauber und perfekt durch. Ein Traum. Viele, vielen Dank für Deine Hilfe. Und hier, falls jemand den vollständigen Code benötigt: Quellcode (40 Zeilen)

Hallo petaod, vielen Dank für die schnelle Bearbeitung. Hab es grade ausprobiert und es funktioniert … fast. Es scheinen noch 2 Steine im Weg zu liegen, wobei ich einen tatsächlich selbst wegräumen konnte. Folgende hab ich bisher angepasst: => Vorher : Dim Line as Object Hiermit brach der Code in Zeile 29 mit der Meldung "Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt" ab. => Meine Anpassung: Dim Line as String (Zeile 17) Damit läuft der Code ohne Fehlermeldung durc…

Guten Morgen, hier zur Verdeutlichung mein aktueller Code: Quellcode (34 Zeilen) Hiermit kann aber nur eine Datei bearbeitet werden. Um nicht ständig die Adresse im Code selbst ändern zu müssen, hab ich es schonmal so umgestrickt, dass die Adresse aus Zelle A1 entnommen wird. Es ist jedoch sehr müßig, das für jede einzelne meiner TXT durchzuführen, die daten dann per Copy&Paste in die Auswerte-Tabelle zu schieben, und dann wieder von vorne anzufangen. Daher der Wunsch, dass der Code alles in ein…

Hallo petaod, vielen Dank, dass Du meine Anfrage aufgenommen hast. Den Code hab ich hier im Forum gefunden. Mein Beitrag wurde vom ursprünglichen Thema abgeschnitten. Ein entsprechender Link wurde dabei aber oberhalb meines Beitrags eingefügt. Dort ist der Code einzusehen. Alternativ: Mehrere Textdateien aus einem Ordner automatisch einlesen Ich hab den hier zur Verfügung gestellten Code "Sub Text_Dateien_einlesen()" in ein Modul eingefügt und in an meine Datei angepasst (welche TXT soll wonach …

abgetrennt von Mehrere Textdateien aus einem Ordner automatisch einlesen ~VaporiZed Hallo Forum, Ich bin durch meine Internet-Recherche auf das Forum gestoßen und hab mich natürlich sofort angemeldet Das o.g. Thema scheint genau die Lösung meiner aktuellen Herausforderung zu sein, weshalb ich es trotz des Alters nochmal aufgreifen möchte. Ebenso wie dirkst19, dessen Code übrigens hervorragend funktioniert, würde ich gerne alle txt.Dateien innerhalb eines Ordners durchsuchen lassen. Mono hat ja b…