Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Filterauswahl bearbeiten

Filterauswahl bearbeiten
04.03.2009 13:28:34
Leitz
Hallo!
Habe ein Problem mit einer Filterauswahl!
Ich filter in einer Liste mit :
Selection.AutoFilter Field:=11, Criteria1:=""
Ich möchte nun bei allen gefundenen Zeilen den Wert von Zelle D in Zelle P schreiben.
In Zelle Q möcht ich "Auftr. erledigt" schreiben.
Wie spreche ich jede einzelne Zeile der Filterauswahl an?
Bitte um Hilfe
Gruß
Leitz G.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filterauswahl bearbeiten
04.03.2009 16:52:49
fcs
Hallo leitz G.,
z.B. so:

Sub Filter()
Dim rngZelle As Range, wks As Worksheet
Set wks = ActiveSheet
Selection.AutoFilter Field:=11, Criteria1:=""
With wks
For Each rngZelle In .Range(.Cells(2, 11), _
.Cells(.Rows.Count, 11).End(xlUp)).Cells.SpecialCells(xlCellTypeVisible)
.Cells(rngZelle.Row, 16).Value = .Cells(rngZelle.Row, 4).Value
.Cells(rngZelle.Row, 17).Value = "Auftr. erledigt"
Next
End With
End Sub


Gruß
Franz

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige