Makro Zellen filtern

HI @ all,
DAU benötigt mal dringend Eure Hilfe.
habe ein Makro welches mir in diversen Tabellen Filter setzt und die oberste Zeile löscht.
Sheets("Gesamtübersicht").Select
ActiveSheet.ListObjects("Gesamtübersicht").Range.AutoFilter Field:=1, _
Criteria1:=Sheets("Mitarbeiter").Range("C16")
Range("A3:V3").Select
Selection.EntireRow.Delete
ActiveSheet.ListObjects("Gesamtübersicht").Range.AutoFilter Field:=1
Range("A2").Select
Nun zu meinem Problem:
Ist der zu Filternde Wert z.B 10 werden alle Werte angezeigt die 10 enthalten (10;100;110;102;510 usw)
Die oberste Zeile muß nun natürlich nicht dem gesuchtem Wert entsprechen und wird fälschlicher weise gelöscht.
hoffe ihr könnt mir helfen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ttt() With Worksheets("Gesamtübersicht") If WorksheetFunction.CountIf(.Columns(1), Worksheets("Mitarbeiter").Range("C16")) = 0 Then MsgBox "Suchkriterium nicht vorhanden" Else .Rows(Application.Match(Worksheets("Mitarbeiter").Range("C16"), .Columns(1), 0)). _ EntireRow.Delete End If End With End Sub

Sub ttt() Dim mySheets, oSH As Object Dim WS As Worksheet Set mySheets = Sheets(Array("Mitarbeiter", "Januar")) Set WS = Worksheets("Gesamtübersicht") For Each oSH In mySheets If WorksheetFunction.CountIf(WS.Columns(1), oSH.Range("C16")) = 0 Then MsgBox "Suchkriterium nicht vorhanden" Else WS.Rows(Application.Match(oSH.Range("C16"), WS.Columns(1), 0)).EntireRow.Delete End If Next oSH End Sub

Hi Chri,
sorry das ich mich erst so spät melde, habe aber etwas gebraucht um das ding zum laufen zu bringen.
das suchkriterium befindet sich auf mitarbeiter c16 und die Listen auf den einzelnen blättern.
sieht jetzt so aus:

Sub Löschen()
With Worksheets("Mitarbeiter")
If WorksheetFunction.CountIf(.Columns(1), Worksheets("Mitarbeiter").Range("C16")) = 0 Then
MsgBox "Mitarbeiter nicht vorhanden"
Else
Dim i As Integer
i = MsgBox("Mitarbeiter löschen?", 1 + vbQuestion, "Löschabfrage")
If i = 2 Then
Exit Sub
Else
Call Einblenden
Dim mySheets, oSH As Object
Dim WS As Worksheet
Set mySheets = Sheets(Array("Mitarbeiter", "Gesamtübersicht", "Januar", "Februar", "März", " _
April", "Mai", "Juni", "Juli", "August", _
"September", "Oktober", "November", "Dezember"))
Set WS = Worksheets("Mitarbeiter")
For Each oSH In mySheets
oSH.Rows(Application.Match(WS.Range("C16"), oSH.Columns(1), 0)).EntireRow.Delete
Next oSH
End If
End If
End With
Call Ausblenden
End Sub

scheint zu funktionieren.
Vielen Dank nochmal für deine Hilfe.
Das nächste Bier geht auf mich :-)
Gunhter

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread