Microsoft Excel

Herbers Excel/VBA-Archiv

Autofilter



Excel-Version: 9.0 (Office 2000)

Betrifft: Autofilter
von: Norbert
Geschrieben am: 06.06.2002 - 06:20:26

Hallo zusammen,

ich lasse mir mit folgendem Programm einen Datenbereich in eine Textdatei umwandeln. Klappt auch ;-))
Mit dem Autofilter reduziere ich die Tabelle durch verschiedene gesetzte Filter auf eine, zwei Zeilen.
Wie erreiche ich es jetzt, dass nur diese Zeilen in die Textdatei umgewandelt weren und nicht der ganze Datenbereich??


Set Daten = Range(Cells(2, 1), Cells(100, 7))
Open "C:\Test" & i & ".txt" For Output As #1

Print #1, "0128;"
n = 2

For Each Zeile In Daten.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & CStr(Zelle.Text) & ","
Next

strTemp = Left(strTemp, Len(strTemp) - 1)
txt = Cells(n, 8).Value

Print #1, strTemp & ";// " & txt
strTemp = ""
n = n + 1
Next

Close #1


Danke Norbert

  

Re: Autofilter
von: Hans W. Herber
Geschrieben am: 06.06.2002 - 06:45:32

Hallo Norbert,

setze hinter die Zeile:
For Each Zeile ...
eine Bedingung:
If Zeile.Hidden = False Then

Je nach Variablendeklaration muß es heißen:
If Zeile.EntireRow.Hidden = False Then

hans

  

Re: Danke
von: Norbert
Geschrieben am: 06.06.2002 - 07:46:38

Danke

Norbert


 

Beiträge aus den Excel-Beispielen zum Thema "Autofilter"