Posts

Es werden Posts vom 2014 angezeigt.

Word öffnen, Range formatiert kopieren, nicht als Tabelle...

Einen Range (z. B. A1:A10) nach Word kopieren. Schriftformate unverändert übernehmen. Es darf aber nicht als Tabelle eingefügt werden bzw. muss als Text umgewandelt werden.

A range (eg A1:A10) copy to Word. Font formats take over unchanged. But it must not be inserted as a table or must be converted as text.

Hier noch eine Beispieldatei / Here's a sample file:
Word öffnen, Range formatiert kopieren, nicht als Tabelle...[ZIP 20 KB]

OptionExplicit' Konstante für Parameter Umwandlung der Tabelle in Word als Text' Es gibt:' Const wdSeparateByDefaultListSeparator = 3' Const wdSeparateByCommas = 2' Const wdSeparateByTabs = 1ConstwdSeparateByParagraphs=0'--------------------------------------------------------------------------' Module : Module1' Procedure : Main' Author : Case (Ralf Stolzenburg)' Date : 14.07.2014' Purpose : Word öffnen, Range formatiert kopieren, nicht als Tabelle...'--------------------------------------------…

Geschlossene Dateien - Range in Masterdatei in Zeilen auslesen...

Frage: Bestimmte Daten (B2:C2, B3:C3, B4:C4) aus über 200 Exceldateien in eine Masterdatei in A2 abwärts. Der Dateiname in Spalte A, der Rest in die Spalten B:G. Wie geht das?

Certain data (B2:C2, B3:C3, B4:C4) from over 200 Excel files into a master file in A2 down. The file name in column A and the rest in columns B:G. How does it work?

Hier noch eine Beispieldatei / Here's a sample file:
Geschlossene Dateien - Range in Masterdatei in Zeilen auslesen...[ZIP 300 KB]

' Variablendeklaration erforderlichOptionExplicit' Der Tabellenblattname in den auszulesenden DateienConststrSheetQAsString="Tabelle1"' Der Tabellenblattname in DIESER Datei (die mit dem Code)ConststrSheetZAsString="Total"' Dieser Bereich wird ausgelesenConststrRange1AsString="B2:C2"ConststrRange2AsString="B3:C3"ConststrRange3AsString="B4:C4"'--------------------------------------------------------------------------' Module : Modul1' Proced…

Outlook - neueste Mail mit bestimmtem Betreff - Informationen ausgeben...

Frage: Im Ordner Posteingang sind mehrere Mails mit dem gleichen Betreff. Von diesen Mails benötige ich die Neueste. Im folgenden Beispiel wird die Mailadresse und der Name des Absenders angezeigt. Zusätzlich noch die Empfangszeit der Mail.

In the Inbox folder are several emails with the same subject. Of these mails I need the latest. In the following example, the email address and the name of the sender is displayed. In addition the time of receipt of mail.

Hier noch eine Beispieldatei / Here's a sample file:
Outlook - neueste Mail mit bestimmtem Betreff - Informationen ausgeben...[XLS 50 KB]

OptionExplicit' Variable um bei schon geöffnetem Outlook dieses nicht zu schliessenDimblnTMPAsBoolean'--------------------------------------------------------------------------' Module : Module1' Procedure : Main' Author : Case (Ralf Stolzenburg)' Date : 09.04.2014' Purpose : Outlook Subject mehrere gleiche neueste Infos ausgeben...'----------------…

Daten Spalte C nach Monat in neue Tabellenblätter aufteilen - Spezialfilter...

Frage: Alle Buchungen aus dem Jahre 2013 befinden sich auf einem Tabellenblatt. Das Datum steht in Spalte C. Die Daten müssen in neue Tabellenblätter aufgeteilt werden. Die Daten müssen nach Monat kopiert werden. Wie geht das?

All bookings from the year 2013 are on a worksheet. The date is in column C. The data must be divided into new worksheets. The data must be copied by month. How does it work?

Hier noch eine Beispieldatei / Here's a sample file:
Daten Spalte C nach Monat in neue Tabellenblätter aufteilen - Spezialfilter...[XLS 250 KB]

OptionExplicit'--------------------------------------------------------------------------' Module : Module1' Procedure : Main' Author : Case (Ralf Stolzenburg)' Date : 21.01.2014' Purpose : Daten Spalte C Datum - Monat in Tabellenblätter aufteilen...'--------------------------------------------------------------------------PublicSubMain()' VariablendeklarationDimCriteriaSheetAsWorksheetDimSourceSheetAsW…