Guten Morgen.
Ich habe ein VBA Kode (EXCEL 2007) wo ich mittels Vorgabe die Filterung für ausdrucke festlege. Bisher kann ich nur einen Filter (Zahl) vorgeben womit dann der Ausdruck aktiviert wird. Ich möchte aber gleichzeitig die Möglichkeit haben eine Auswahl von bis in den Filterkriterien in der Inputbox vor zu geben. Z. B. 1 und 3 und 7 oder auch 2 bis 5. Hat hier vielleicht jemand eine Idee wie man dies verwirklichen kann? Danke schon jetzt für eure Unterstützung, Gruß Josef
Ich habe ein VBA Kode (EXCEL 2007) wo ich mittels Vorgabe die Filterung für ausdrucke festlege. Bisher kann ich nur einen Filter (Zahl) vorgeben womit dann der Ausdruck aktiviert wird. Ich möchte aber gleichzeitig die Möglichkeit haben eine Auswahl von bis in den Filterkriterien in der Inputbox vor zu geben. Z. B. 1 und 3 und 7 oder auch 2 bis 5. Hat hier vielleicht jemand eine Idee wie man dies verwirklichen kann? Danke schon jetzt für eure Unterstützung, Gruß Josef
Code:
Private Sub CommandButton7_Click()
Dim appword As Object, wordDoku As Object, wordbereich As Object, gruppe As String
Dim pfad As String
Dim bereich As Range
Set bereich = ThisWorkbook.Worksheets("Telefon").Cells(1, 1).CurrentRegion
Set appword = CreateObject("Word.Application")
appword.Visible = True
Set wordDoku = appword.Documents.Add
Set wordbereich = wordDoku.Paragraphs.last.Range
gruppe = Application.InputBox(Title:="Auswahl der betroffenen Gymnastikgruppe", _
Prompt:="Geben Sie die Nummer der Sportgruppe ein:", _
Default:="Hier eingeben", Type:=1)
bereich.AutoFilter Field:=5, Criteria1:=gruppe
bereich.Copy
With wordDoku