Thema Datum  Von Nutzer Rating
Antwort
07.01.2015 18:07:13 maschbau0407
NotSolved
09.01.2015 06:28:19 maschbau0407
NotSolved
Rot zum Bleistift so ?
 09.01.2015 09:16:39 Gast68147
Solved
09.01.2015 22:24:03 maschbau
NotSolved

Ansicht des Beitrags:
Von:
Gast68147		 Datum:
09.01.2015 09:16:39		 Views:
502		 Rating:
     
Antwort:
 Nein
Thema:
zum Bleistift so ?		 
Option Explicit

Sub Demo()
Dim c As Range, rngFilter As Range
Dim strCriteria As String

'Demo Daten
ThisWorkbook.Sheets.Add
For Each c In Range("A2:A4")
   c.Value = "A" & Format(c.Row, "000")
Next c
ActiveSheet.UsedRange.Copy Destination:=Range("A6")
ActiveSheet.UsedRange.Copy Destination:=Range("A11")
Range("A1").Value = "Filter": Range("B1").Value = "Wert"

'autofilter demo
strCriteria = Cells(WorksheetFunction.RandBetween(2, 4), 1).Text
ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter Field:=1, Criteria1:=strCriteria

'gefiltert
Set c = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
Set rngFilter = c.SpecialCells(xlCellTypeVisible)

'action
For Each c In rngFilter
   c.EntireRow.Interior.Color = RGB(230, 230, 230)
   c.Offset(, 1).Value = strCriteria   'oder woswasi
Next c

ActiveSheet.UsedRange.AutoFilter
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.01.2015 18:07:13 maschbau0407
NotSolved
09.01.2015 06:28:19 maschbau0407
NotSolved
Rot zum Bleistift so ?
 09.01.2015 09:16:39 Gast68147
Solved
09.01.2015 22:24:03 maschbau
NotSolved