Archiv der Kategorie: VBA

Problem Es sollen alle Tabellen einer Excelmappe durchlaufen und in eine Textdatei geschrieben werden Lösung Sub Schaltfläche1_Klicken() ‚ Erzeugt eine Textdatei On Error Resume Next Dim i, j As Integer Dim letzteZeile As Integer Dim workbookName As String Dim artikelname … Weiterlesen →

Problem Ein Sheet soll aus einer anderen Datei rauskopiert und hier eingelesen werden Ansatz Über manuelles einlesen Lösung Benutzter Funktion: ‚ Prüfen ob workbook bereits offen Function IsWorkbookOpen(strWB As String) As Boolean On Error Resume Next IsWorkbookOpen = Not Workbooks(strWB) … Weiterlesen →

Problem Ohne alle Sheets zu durchlaufen wird eine performante Lösung gesucht zu überprüfen, ob ein Sheet oder Workbook bereits geöffnet wurde. Ansatz Eine einfache Methode ist unter Benutzung der „On Error Resume Next“ Anweisung eine Prüfen nach der Referenz Lösung … Weiterlesen →

Problem In VBA sollen alle Dateien eines Verzeichnisses eingelesen und ausgegeben werden. Ansatz Über das OLE Object scripting.FileSystemObject bekommt Excel die Möglichkeit für diese Operation Lösung Mit dem folgenden Code lassen sich alle Dateien eines Verzeichnisses einlesen. Sub Schaltfläche1_KlickenSieAuf() ‚ … Weiterlesen →

Problem In einem Dokument sollen alle Bilder auf eine fixe Breite von 400 Bildpunkten im Seitenverhältnis verkleinert oder vergrößert werden. Ansatz Über das Seitenverhältnis der alten Größe der Seite A (a) zur neuen Größe der Seite A (ax) lässt sich … Weiterlesen →

Aufgabenstellung In Hochsprachen wie C#.NET und JAVA hilft der Einsatz vom trinären Operator oftmals, den Code leserlicher zu machen. Ein Beispiel dafür ist das Zuweisen von Werten für ein Datenbankmodell bei einer Cursor-Iteration. Wenn eine Materialnummer nicht vorhanden/leer ist, soll … Weiterlesen →