AW: Suche nach Wert in einer bestimmten Spalte
21.02.2018 10:11:00
Werner
Hallo Peter,
das Makro setzt in der Spalte der aktiven Zelle den Autofilter, filtert die Spalte nach x und kopiert das Filterergebnis aus Spalte A nach Blatt 2.
Sub Makro1()
Dim loLetzte As Long, loSpalte As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, ActiveCell.Column).End(xlUp).Row
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column
.Range(.Cells(1, 1), .Cells(loLetzte, loSpalte)).AutoFilter Field:=ActiveCell.Column, _
Criteria1:="x"
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
If loLetzte > 1 Then
.Range(.Cells(2, 1), .Cells(loLetzte, 1)).SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Tabelle2").Cells(1, 1) 'Blattname Adresse Ziel anpassen
Else
MsgBox "Keine Filterdaten vorhanden."
End If
.AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub
Gruß Werner