von Wolfgang Amadeus » Mo, 13.11.2017 17:45
Versuche bisher vergeblich hier ein Ergebnis über die 3 Spalten gefiltert zu erhalten. Für mich müsste es so etwas wie ein "oder"- Begriff sein??? Der Filter auf eine Spalte bezogen geht, leider nicht wenn ich alle drei auswähle.
Hätte hier jemand vielleicht einen konkreten Vorschlag für mich. Ich bin mit meinem Latein am Ende. Gruß WA
Code: Alles auswählen
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 objRange As Range
Dim objsheet As Worksheet
Dim objworkbook As Workbook
ThisWorkbook.Worksheets("Probfall").Activate
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
ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter 6, ">=* "
ActiveSheet.UsedRange.AutoFilter 7, ">=*"
ActiveSheet.UsedRange.AutoFilter 8, "<=150"
_________________
Moderation: Thema nach Makros und allgemeine Programmierung verschoben, wo alle Themen zur individuellen Programmierung hingehören.
lorbass, Moderator
Versuche bisher vergeblich hier ein Ergebnis über die 3 Spalten gefiltert zu erhalten. Für mich müsste es so etwas wie ein "oder"- Begriff sein??? Der Filter auf eine Spalte bezogen geht, leider nicht wenn ich alle drei auswähle.
Hätte hier jemand vielleicht einen konkreten Vorschlag für mich. Ich bin mit meinem Latein am Ende. Gruß WA
[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 objRange As Range
Dim objsheet As Worksheet
Dim objworkbook As Workbook
ThisWorkbook.Worksheets("Probfall").Activate
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
ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter 6, ">=* "
ActiveSheet.UsedRange.AutoFilter 7, ">=*"
ActiveSheet.UsedRange.AutoFilter 8, "<=150"[/code]
[color=#00AA00]_________________
[b]Moderation:[/b] Thema nach [url=http://de.openoffice.info/viewforum.php?f=18]Makros und allgemeine Programmierung[/url] verschoben, wo alle Themen zur individuellen Programmierung hingehören.
lorbass, Moderator
[/color]