Wer Daten von einer Quelle in eine Zieltabelle überträgt, kann mit den und ein gewünschtes Resultat erzielen. Ist man jedoch häufig dazu gezwungen, zwischen Tabellenblättern oder Excel-Dateien hin und her zu wechseln, hat das Implikationen auf die Laufzeit des Makros. Eine performante Variante, um mehrere Datensätze zu übertragen, bietet der Einsatz von Collections. MakroSammlung. Beim einleitend beschriebenen Fall werden zuerst alle Datensätze der Collection hinzugefügt und daraufhin auf der Zieltabelle eingetragen. In diesem Blog wird dieses Beispiel illustriert und abschliessend eine weitere Möglichkeit aufgezeigt, wie Collections zusätzlich genutzt werden können. Die nachfolgenden Tagesumsätze sollen auf eine zweite Tabelle übertragen werden: Natürlich könnte man alle Daten selektieren und mittels und fortschreiben, wir verwenden aber zur Übung und Illustration eine Collection dazu. Wir definieren demnach die Variable "UmsatzColl". Zudem ist die Collection zu initiieren. Verwende hierzu diese beiden Codezeilen: Dim UmsatzColl As Collection Set UmsatzColl = New Collection Um beispielsweise den Wert in Zelle "C4" Deiner Collection hinzuzufügen, verwende: Range("C4") Man führt hinter der Collection-Variable also die Methode "Add" hinzu, gefolgt vom Bezug auf den Wert, den man zwischenspeichern möchte.
Standardmäßig ist die Funktion "getuserdir" als public markiert, diese gibt den Pfad des Ordners "Eigene Dateien" des angemeldeten Benutzers zurück. Die Private Funktion "GetPath" kann den Pfad jedes Spezial-Verzeichnisses ausgeben – genauere Informationen sind dem Quell-Code zu entnehmen Dieses ZIP-Archiv enthält VBA-Funktionen um die Mausrad-Steuerung von List-Boxen, innerhalb eines UserForms, zu aktiveren. Die ZIP-Datei enthält ein Excel-Sheet mit Beispiel wie die entsprechenden Funktionen eingesetzt werden. Diese Modul stellt eine Funktion zur verfügung, welche es ermöglicht eine geschlossene Excel-Arbeitsmappe als Datenbank zu behandeln (MS Jet-Datenbank) und dessen Tabellen mittels SQL-Befehle abzufragen. Wikibooks:Buchkatalog/ Strukturwissenschaften/ VBA in Excel – Wikibooks, Sammlung freier Lehr-, Sach- und Fachbücher. Damit die Funktion auch funktioniert muss im VBA Editor der Verweis auf DAO 3. 6 gesetzt werden. Folgende Parameter erwartet die Funktion: file = Abzufragende Arbeitsmappe als String query = der SQL-Befehl für die Abfrage als String target = Zielzelle als Range noheader (Optional) = übergibt man diesen Parameter "1", so werden in der Ergebnisstabelle keine Spaltenbezeichnungen ausgegeben Die Funktion liefert als Rückgabe TRUE oder FALSE zurück, TRUE wenn die Abfrage korrekt durchgeführt werden konnte.
Gruess Hansueli _________________ Forenhelfer danken fr eine Rckmeldung! Der Kluge lernt, der Dummkopf erteilt gern Belehrungen. - Anton Tschechow Verfasst am: 30. Aug 2011, 09:00 Rufname: vielen dank hansueli! !
Im SQL-Befehl müssen Spalten-Bezeichungen (Felder) und Tabellen-Namen unter eckige Klammern "[]" gesetzt werden. Tabellen-Namen sollten mit dem Doller-Zeichen abgeschlossen sein (zB. : [Tabelle1$]). Unterstützt werden die geläufigen SQL-Anweisungen wie zB SELECT, WHERE, ORDER BY, GROUP BY, FROM, JOIN, SUM, etc Download: VBA Beitrags Übersicht
Beitrags Übersicht Da ich in meiner beruflichen Tätigkeit relativ viel mit der Makro-Programmierung in MS Excel (VBA) zu tun habe, hat sich mittlerweile eine kleine Sammlung an allgemein verwendbaren VBA Module abgehäuft. Diese Module möchte ich natürlich niemanden vorenthalten, daher biete ich sie hier zum Download an. Bei den Funktionen bzw. Modulen handelt es sich um frei Module, welche ich in den weiten des WWWs gefunden oder selbst geschrieben habe. Alle Funktion laufen unter MS Excel 2003 einwandfrei und sollten auch unter Excel 2007 & 2010 verwendbar sein. Die Sammlung wird laufend erweitert werden. Der Link zum Download befindet sich am Ende des Artikels. Die Workbooks-Sammlung in VBA. Hier eine kleine Beschreibung der enthaltenen Module bzw. Funktionen: Dieses Modul ermöglicht es eine beliebige Datei von einem Webserver (per) herunterzuladen und sie lokal zu speichern. Die Routine wird mit "CopyURLToFile" aufgerufen und benötigt 2 Parameter: url (String) = URL der Quelldatei filename = Name der Zieldatei (inkl. kompletten Pfad) Diese Funktion kann den Windows Index-Dienst deaktivieren oder aktiveren.
MakroSammlung von Maya vom 18. 11. 2020 18:41:19 AW: MakroSammlung - von ralf_b am 18. 2020 18:54:47 AW: MakroSammlung - von Hajo_Zi am 18. 2020 18:55:15 Die ist vor allem dann angesagt, … - von Luc:? am 18. 2020 19:24:42 Betrifft: MakroSammlung von: Maya Geschrieben am: 18. 2020 18:41:19 Hallo in welcher Excel-Datei (Name, Endung), bzw. in welchem Verzeichnis muss ich eine Makrosammlung anlegen. z. Excel vba sammlung pdf. B. ich habe für CTRL+q ein bestimmtes Zahlenformat angelegt, dass ich in verschiedenen Arbeitsmappen starten will. Dazu kommen noch andere Makro's. Maya Danke für Hilfe. Betrifft: AW: MakroSammlung von: ralf_b Geschrieben am: 18. 2020 18:54:47 in der persönlichen Arbeitsmappe am einfachsten kommst du dahin indem du ein Makro aufzeichnest und die Option speichern in persönliche Arbeitsmappe auswählst. von: Hajo_Zi Geschrieben am: 18. 2020 18:55:15 Hallo Maya, um Ordner XlStart. Betrifft: Die ist vor allem dann angesagt, … von: Luc:? Geschrieben am: 18. 2020 19:24:42 …Maya, wenn diese Makros stets nur dir zV stehen sollen.