Windows API

Inhalt Mit Windows API arbeiten Bild in UserForm anzeigen Handle des Fensters zurückbekommen Bild in Titelleiste der UserForm hinzufügen Code als Unterprozedur aufbereiten um bestehende UserFormen aufzuwerten Code #If VBA7 Then Public Declare PtrSafe Function FindWindowA Lib “user32” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare PtrSafe Function SendMessageA Lib “user32” […]

Titelleiste ausblenden

Inhalt Mit Windows API arbeiten Titel des Fensters übergeben Handle des Fensters zurückbekommen Fensterstil verändern Titelleiste entfernen / Header in UserForm entfernen Code #If VBA7 Then Public Declare PtrSafe Function FindWindowA Lib “user32” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare PtrSafe Function SetWindowLongA Lib “user32” (ByVal hWnd As Long, ByVal […]

Anhänge speichern

Inhalt Mit offener Outlook Instanz arbeiten Mit ausgewählter Mail arbeiten Pfad einlesen Stringverknüpfungen Ordner erstellen Mail speichern For Each Schleife Anhänge speichern Messagebox Makro Schnellzugriffleiste in Outlook zuweisen   Code Sub MailAnhängeSpeichern() ‘Variablen dimensionieren Dim Mail As MailItem Dim Pfad As String Dim Att As Attachment ‘Mail auslesen Set Mail = ActiveExplorer.Selection.item(1) ‘Pfad definieren Pfad […]

ListBox sortieren

Inhalt UserForm erstellen ListBox befüllen ListBox alphabetisch sortieren mit dem BubbleSort Verfahren ListBox mit mehreren Spalten sortieren ListBox aufsteigend und absteigend sortieren ListBox Sortierspalte festlegen Makro in einer UserForm über Button ausführen   Code Private Sub ListBoxSortieren(lb As MSForms.ListBox, Optional Aufsteigend As Boolean = True, Optional Sortierspalte As Long = 0) ‘Variablen dimensionieren Dim ZeileAußen […]

Scrolling Event

  Code #If VBA7 Then Private Declare PtrSafe Function SetTimer Lib “user32” ( _ ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, _ ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr Private Declare PtrSafe Function KillTimer Lib “user32” ( _ ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr) As Long #Else Private Declare […]

Tabellenblätter sortieren

  Inhalt Variablen dimensionieren For-Next Schleife über alle Tabellenblätter Strings (Zeichenketten) vergleichen Tabellenblatt verschieben Das Überwachungsfenster Tabellenblatt aktivieren / markieren Bildschirmupdates deaktivieren personal.xlsb (Persönliche Arbeitsmappe) aktivieren Makro in Symbolleiste einfügen   Code Sub TabellenblaetterSortieren() ‘Bildschirmupdates deaktivieren Application.ScreenUpdating = False ‘Variablen dimensionieren Dim Außen As Long Dim Innen As Long Dim ws As Worksheet ‘Tabellenblatt merken […]

Outlook-Makro-Code

  Inhalt Makros freigeben in Outlook Übersicht über die Standard Events in Outlook Event “Mail Eingang” initalisieren Makro, das beim Mail-Eingang ausgeführt wird Test der Prozeduren inkl. Schritt für Schritt Durchlauf Bedingungen, dass Makro ausgeführt wird Automatisches Speichern von Daten aus Anhängen Prozedur DatenZusammenfuehren in Outlook Letzte Zeile einer Tabelle auslesen Prozedur aus anderem Modul […]

QR-Code

  Inhalt QR-Code über eine selbstgeschrieben Funktion als Bild in Excel einfügen URL zur Generierung des QR-Codes definieren GET-Request an die Google-API senden Alte QR-Codes löschen Fehlermeldung vermeiden, wenn kein Bild vorhanden ist Test der generierten QR-Codes mit dem Smartphone   Code Function QRCode(QRCode_Wert As String) As String ‘Variablen deklarieren Dim sURL As String Dim […]

Outlook-Termin

  Inhalt Outlook-Termin erstellen und Zugriff auf alle Termin-Eigenschaften haben Outlook-Bibliothek aktivieren/Verweis setzen (Extras –> Verweise –> Haken bei “Microsoft Outlook 16.0 Outlook Library” setzen –> OK) Variablen der Outlook Bibliothek dimensionieren Terminerstellung mit AppointmentItem Betreff über .subject einfügen Teilnehmer über .requiredattendees einfügen Datums über .start einfügen Dauer des Termins über .duration einfügen Beschreibungstext des […]

PDF erstellen

  Inhalt PDF erstellen: Ansprechen des Tabellenblatts und ExportAsFixedFormat Erstellung Dateipfad & Direktbereich Dateipfad und Name aus Zelle Öffnen der Datei nach der Erstellung Erster Test mit festen Werten für Pfad und Name Anpassung des Ausgabeformats: Quer- und Hochformat Ersetzen des Pfads und des Dateinamen durch Zellbezug Testlauf mit Pfad und Name aus Zelle Definition […]