Hallo, ich suche nochmal Unterstützung in folgendem VBA Code:
Wenn ich mit F8 durchklicke, kommt folgender Fehler.
Fehler bei: Index außerhalb des gültigen Bereichs, Laufzeitfehler 9.
Ich habe im Worddokument einen Textmarker "Anrede" gesetzt. Ist damit vielleicht etwas nicht korrekt?
Visual Basic:
Public Sub cmdZuzah_Click()
' Pfad zur Word-Vorlage
pfadZurVorlage = "C:\Users\Besitzer\Desktop\Word Vorlagen\Zuza für Excel.dotx"
' Word-Anwendung erstellen und Dokument öffnen
Set obj_Wd = CreateObject("WORD.Application")
Set obj_Doc = obj_Wd.Documents.Add(Template:=pfadZurVorlage)
obj_Doc.Windows(1).Visible = True
' ArbTab Tabelle entsperren
Worksheets("ArbTab").Unprotect
' Arbeitsblatt und Tabelle festlegen
Set wsh_Q = ThisWorkbook.Worksheets("ArbTab")
Set liO = wsh_Q.ListObjects(1)
' Autofilter zurücksetzen und alle Daten anzeigen
liO.AutoFilter.ShowAllData
' Nutzereingabe für die betroffene Gymnastikgruppe
Gruppe = Application.InputBox(Title:="Auswahl der betroffenen Gymnastikgruppe", Prompt:="Geben Sie die Nummer der Sportgruppe ein:", _
Default:="Hier eingeben", Type:=1)
' Autofilter anwenden
liO.Range.AutoFilter Field:=14, Criteria1:=Gruppe
' Spaltenformatierung anpassen
With liO.Range
.Columns.Hidden = True
.Columns(2).ColumnWidth = 12
.Columns(4).ColumnWidth = 14
.Columns(5).ColumnWidth = 11
.Columns(22).ColumnWidth = 15
.Columns(23).ColumnWidth = 25
End With
' Inhalte kopieren und in Word einfügen
liO.Range.Cells(1).CurrentRegion.Copy
obj_Doc.bookmarks("Anrede").Range.Paste
' Alle ausgeblendeten Spalten wieder anzeigen
liO.Range.Columns.Hidden = False
' Autofilter zurücksetzen und alle Daten anzeigen
liO.AutoFilter.ShowAllData
' Meldung zur Fertigstellung
MsgBox "Fertig"
' ArbTab Tabelle wieder sperren
Worksheets("ArbTab").Protect
' Word und Objekte freigeben
Set obj_Wd = Nothing
Set obj_Doc = Nothing
Set wsh_Q = Nothing
Set liO = Nothing
End Sub
Wenn ich mit F8 durchklicke, kommt folgender Fehler.
Fehler bei: Index außerhalb des gültigen Bereichs, Laufzeitfehler 9.
Ich habe im Worddokument einen Textmarker "Anrede" gesetzt. Ist damit vielleicht etwas nicht korrekt?