Einen schönen Tag wünsche ich. Sitze mal wieder an einem VBA Problem und komme nicht weiter. Habe meine Code- Versuch mal angehängt. Folgendes Problem hätte ich bitte gerne gelöst: Ich wähle mittels Inputbox die Zahl Spalte "N" aus, (das so bleiben). Dann sollen aus der Spalte "X" und der Spalte "Y" jeweils die Datensätze mit Textinhalten ebenfalls hinzugefügt werden. Also eine Variable in Spalte "N" und die Textfelder betreffend sind es dann feste Werte (Text). Anschließend wird das Ergebnis an Word übergeben.
Danke fürs Interesse und ggf. Lösungsvorschläge!
Gruß Josef
Danke fürs Interesse und ggf. Lösungsvorschläge!
Gruß Josef
Code:
Private Sub CommandButton8_Click()
Dim appword As Object, wordDoku As Object, wordbereich As Object, gruppe As String
Dim pfad As String
Dim bereich As Range
' Dim rngFilterRange As Range
' Dim lngCriteriaCount As Long
' Dim arrCriteria() As String
Set bereich = ThisWorkbook.Worksheets("Probfall").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 Tage gültig", Prompt:="Geben Sie die Anzahl Tage ein:", _
Default:="Hier eingeben", Type:=2)
bereich.AutoFilter Field:=8, Criteria1:=gruppe
bereich.Copy
With wordDoku