Microsoft Excel

Herbers Excel/VBA-Archiv

VBA Excel - Zählen von offenen Serienbriefen


Betrifft: VBA Excel - Zählen von offenen Serienbriefen von: Lars Ullrich
Geschrieben am: 09.01.2018 11:20:30

Hallo,
ich möchte per VBA in einem Excel-Modul alle offenen Dokumente zählen, die als Dokumentnamen "Serienbriefe" haben.
Dabei soll es keine Rolle spielen, wieviele Serienbriefe offen sind.
Anschließend soll der letzte Serienbrief als aktiv gesetzt werden.

Wie kann ich es erreichen, dass nur die Serienbriefe gezählt werden und das Dokument mit dem Dateinamen z.B. Serienbrief10 (Zahl ist variabel) aktiviert wird?

Bis jetzt kann ich nur alle Dokumente zählen und einen bestimmten Serienbrief aktivieren.

Sub Dokumente_zählen()
Dim wdApp As Object
Dim i As Integer
Dim docAnzahl As Integer
Dim newSBdocx As String

Set wdApp = GetObject(, "Word.Application")

newSBdocx = "Stromabrechnungen_" & Year(Date) & ".docx"

i = 1

docAnzahl = wdApp.documents.Count


For i = 1 To docAnzahl
    If wdApp.documents(i).Name = "Serienbriefe1" Then '<--  Das ist mein Problem!!!!!
    wdApp.documents(i).Activate
    ChangeFileOpenDirectory "C:\test"
    ActiveDocument.SaveAs Filename:=newSBdocx, _
    FileFormat:=wdFormatXMLDocument, _
    LockComments:=False, Password:="", AddToRecentFiles:=True, _
    WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
    SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
    Exit For
    Else
    Debug.Print wdApp.documents(i).Name
    i = i + 1
End If
Next i

Set wdApp = Nothing

End Sub
Vielen Dank im voraus.

LG Lars

  

Betrifft: AW: VBA Excel - Zählen von offenen Serienbriefen von: ChrisL
Geschrieben am: 09.01.2018 11:25:57

Hi Lars

If wdApp.documents(i).Name Like "Serienbriefe*" Then

cu
Chris


  

Betrifft: AW: VBA Excel - Zählen von offenen Serienbriefen von: Lars Ullrich
Geschrieben am: 09.01.2018 11:52:47

Hallo Chris,
perfekt. Vielen Dank für die Hilfe.

:)
Gruß Lars


Beiträge aus dem Excel-Forum zum Thema "VBA Excel - Zählen von offenen Serienbriefen"