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
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
Ich verstehe nicht was wir hier mit VBA zu tun haben.
VBA gehört zu Excel, aber nicht zu OpenOffice. Und ich würde empfehlen VBA zu meiden, da es in OpenOffice keine Garantie dafür gibt das man VBA gefahrlos einsetzen kann.
Wenn Du LibreOffice oder ApacheOpenOffice hast, dann sag das auch, und das mit der genauen Versionsnummer.
Gruß
balu
Sei öfter mal ein Faultier, sag öfter mal "Ach was!" Dann kriegst du keinen Herzinfarkt, und hast ne menge Spass.
Was für ein Office hast Du denn jetzt, Microft-Office oder OpenOffice? Im ersteren Fall empfehle ich dir ein dementsprechendes Forum aufzusuchen, gibt es ja wie Sand am Meer.
Gruß
balu
Sei öfter mal ein Faultier, sag öfter mal "Ach was!" Dann kriegst du keinen Herzinfarkt, und hast ne menge Spass.