mit #VBA in #PowerPoint den aktuellen #Abschnitt feststellen

Wollen Sie in Ihrer Präsentation mit #VBA feststellen, in welchem #Abschnitt eine bestimmte #Folie liegt?

Das geben Sie folgendermaßen an:

ActivePresentation.Slides(meineFoliennummer).sectionIndex

oder, ganz allgemein: mit

Folienobjekt.sectionIndex

erhalten Sie den Index des Abschnitts, in dem sich das Folienobjekt befindet.

Ende der VBA-Schnipsel-Woche🙂

Veröffentlicht unter PowerPoint, VBA | Verschlagwortet mit , , , , | Kommentar hinterlassen

#Ordner in #Outlook mit #VBA ansprechen

Sie wollen einen bestimmten #Outlook-#Ordner mit #VBA auswählen?

Ist das ein Standardordner? Dann sprechen Sie ihn mit Hilfe einer Outlook-Konstanten an – mit olFolderInbox z.B. finden Sie den Posteingang; eine Liste aller Folder-Konstanten finden Sie hier:

Dim olNamespace As Outlook.NameSpace
Dim olFolder As Outlook.Folder
Dim olItems As Outlook.Items

Set olNamespace = GetNamespace(„MAPI“)
Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)

Ach so, ein selbstgemachter! Dann machen Sie es so:

Dim olNamespace As Outlook.NameSpace
Dim olFolder As Outlook.Folder
Dim olItems As Outlook.Items
Set olNamespace = GetNamespace(„MAPI“)
Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox).Folders(„meinUnterordner“)

Wobei meinUnterordner der Name des Ordners ist, durch den sich das Makro durcharbeiten soll.

Veröffentlicht unter Outlook, VBA | Verschlagwortet mit , , , , , , | Kommentar hinterlassen

#Gründen mit #Experten #Support

Sie wollen demnächst ein #Unternehmen #gründen, stehen gerade mitten im #Gründungsprozess oder sind bereits #JungunternehmerIn?

Sie merken, dass da plötzlich so viel Neues auf Sie einstürmt, dass Sie langsam den Überblick verlieren, und kennen das Gefühl der Überforderung?

Sie haben vor, die typischen Anfängerfehler möglichst schnell auszumerzen – oder sogar von Anfang an zu vermeiden?

Sie sind ein Solo-Unternehmen und suchen nach neuen Impulsen?

Da gibt’s nun ein Experten-Camp: einen Monat lang bekommen Sie per Mail wertvollen Input. Inspiration, Fragen zur Selbstreflexion, nützliche Anleitungen, hilfreiche Checklisten, Tipps & Tricks, die Sie als erfolgreiche/n Unternehmer/in voranbringen sollen. Zusätzlich haben Sie die Möglichkeit, in einer geschlossenen Facebook-Gruppe Ihre Überlegungen und Erfahrungen mit den anderen im Camp zu teilen.

Warum ich das schreibe? Na, raten Sie, wer die Microsoft Office Expertin dabei sein wird!🙂

Die Teilnahme ist kostenlos🙂 Tragen Sie sich hier ein. Wir benachrichtigen Sie, wenn das Herbst-Camp startet (voraussichtlich Mitte Oktober).

Veröffentlicht unter Uncategorized | Verschlagwortet mit , , , , | Kommentar hinterlassen

mit #VBA #Folie hinzufügen

Wie können Sie mit #VBA einer #Präsentation eine #Folie #hinzufügen?

Mit folgender Zeile fügen Sie an die gerade aktive Präsentation (ActivePresentation) eine Folie am Ende (.Slides.Count + 1) an, und verwenden dabei das benutzerdefinierte Layout mein Layout:

Set mySlide = ActivePresentation.Slides.AddSlide(ActivePresentation.Slides.Count _
+ 1, GetLayout("mein Layout"))

Die Funktion GetLayout ist dabei ebenfalls selbstgemacht und muss zur Verfügung gestellt werden – sie fischt aufgrund des Layoutnamens das richtige Layout aus den im Master vorhandenen Layouts heraus:

Public Function GetLayout( _
    LayoutName As String, _
    Optional ParentPresentation As Presentation = Nothing) As CustomLayout

    If ParentPresentation Is Nothing Then
        Set ParentPresentation = ActivePresentation
    End If

    Dim myLayout As CustomLayout
    For Each myLayout In ParentPresentation.SlideMaster.CustomLayouts
        If myLayout.Name = LayoutName Then
            Set GetLayout = myLayout
            Exit For
        End If
    Next
End Function
Veröffentlicht unter PowerPoint, VBA | Verschlagwortet mit , , , , | Kommentar hinterlassen

in #VBA #leere #Zellen identifizieren

Wie können Sie mit #VBA prüfen, ob eine #Zelle in Ihrer Arbeitsmappe #leer ist?

In VBA gibt es dafür die Funktion IsEmpty(Zelle).

Besonders beliebt ist die Verwendung in einer Schleife, z.B.

Zeile = 1Do Until IsEmpty(Range("A" & Zeile))    'irgendeine Tätigkeit    Zeile = Zeile + 1Loop

Damit wird von Zeile 1 ausgehend irgendetwas so lange Zeile für Zeile gemacht, bis in der Spalte A eine leere Zelle auftaucht.

 

Veröffentlicht unter Excel, VBA | Verschlagwortet mit , , , , , , , | Kommentar hinterlassen

in #VBA alle #ausgewählten #Arbeitsblätter #abarbeiten

Sie wollen mit #VBA alle ausgewählten (=markierten) #Excel #Arbeitsblätter nacheinander bearbeiten? Das machen Sie so:

Public Sub AuswahlBlattSchleife()
Dim mySh As Worksheet
For Each mySh In ThisWorkbook.Windows(1).SelectedSheets
    MsgBox mySh.Name ' was auch immer Sie nun machen wollen
Next mySh
Set mySh = Nothing
End Sub

Die SelectedSheets sind eine Aufzählung, die je Fenster existiert. Ich gehe bei dieser Schleife davon aus, dass Sie die Arbeitsmappe in nur einem Fenster geöffnet haben🙂 Und dass Sie mit der Arbeitsmappe, in der der Code steht (ThisWorkbook) arbeiten wollen – sonst müssen Sie ThisWorkbook durch ein anderes Workbook-Objekt ersetzen.

Veröffentlicht unter Excel, VBA | Verschlagwortet mit , , , , , | Kommentar hinterlassen

#nicht alle #Kommentare

Sie wollen in Ihrem #Word-Dokument nicht alle #Kommentare sehen? Oder gar überhaupt keine?

Alle blenden Sie mit ÜBERPRÜFEN > Nachverfolgung > Markup anzeigen > Kommentare ein bzw. aus – das Hakerl zeigt den Status.

wtipp-kommentar6

Sie können allerdings die Kommentaranzeige auch auf ÜBERPRÜFEN > Nachverfolgung > Markup anzeigen > Bestimmte Personen einschränken. Wenn Sie nicht lesen wollen, was ich angemerkt habe, dann blenden Sie meinen Benutzer einfach aus🙂

wtipp-kommentar7

 

Veröffentlicht unter Word | Verschlagwortet mit , , , , | Kommentar hinterlassen