Tabellenblätter nach inhalt durchsuchen und lösche

Spenski · 2014-08-05T18:37:16+00:00

Hallo ich möchte im tabellenblatt "Control" IN Spalte B4 eine zahl eingeben. wenn ich jetzt ein makro über ein CB starte soll folgendes passieren: durchsuche sheets(1) Spalte A nach dem inhalt (Daten B4) und lösche bei dem treffer die komplette zeile. durchsuche sheets(2-11 und 16-17) Spalte D nach dem inhalt (Daten B4) und lösche bei übereinstimmung den zelleninhalt optional: ich kann nicht nur in B4 ein wert eintragen sondern in B4:B8 und danach soll dann gesucht werden danke fürs lesen und die ganze hilfe die ich bisher bekommen habe und bekommen werde. gruss christian

Hallo Christian,
auch hierzu ist das Archiv voll mit Vorschlägen!
ein Ansatz:

Option Explicit
Sub spenski()
Dim x As Long, y As Long, rowl As Long, rowl1 As Long
Dim wkscont As Worksheet, wksx As Worksheet
Set wkscont = ActiveWorkbook.Worksheets("Control")
With wkscont
rowl1 = ActiveWorkbook.Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
For y = 1 To rowl1
Set wksx = ActiveWorkbook.Worksheets("Tabelle1")
If IsNumeric(Application.Match(wksx.Cells(y, 1), .Range(.Cells(4, 2), .Cells(8, 2)), 0)) Then
wksx.Rows(y).ClearContents
End If
Next y
For x = 2 To 11
Set wksx = ActiveWorkbook.Worksheets("Tabelle" & x)
rowl = wksx.Cells(Rows.Count, 4).End(xlUp).Row
For y = 1 To rowl
If IsNumeric(Application.Match(wksx.Cells(y, 4), .Range(.Cells(4, 2), .Cells(8, 2)), 0))  _
Then
wksx.Rows(y).ClearContents
End If
Next y
Next x
For x = 16 To 17
Set wksx = ActiveWorkbook.Worksheets("Tabelle" & x)
rowl = wksx.Cells(Rows.Count, 4).End(xlUp).Row
For y = 1 To rowl
If IsNumeric(Application.Match(wksx.Cells(y, 4), .Range(.Cells(4, 2), .Cells(8, 2)), 0))  _
Then
wksx.Rows(y).ClearContents
End If
Next y
Next x
End With
End Sub

MfG Christian

so hab jetzt versucht den code zu verstehen, klappt denke ich auch . hab ihn auch ein wenig verändert da die blätter nicht Tabelle 2 usw heissen.
Option Explicit


Sub spenski()
Dim x As Long, y As Long, rowl As Long, rowl1 As Long
Dim wkscont As Worksheet, wksx As Worksheet
Set wkscont = ActiveWorkbook.Worksheets("Control")
With wkscont
rowl1 = ActiveWorkbook.Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
For y = 1 To rowl1
Set wksx = ActiveWorkbook.Worksheets("Tabelle1")
If IsNumeric(Application.Match(wksx.Cells(y, 1), .Range(.Cells(4, 2), .Cells(8, 2)), 0))  _
Then
wksx.Rows(y).ClearContents
End If
Next y
For x = 2 To 11
Set wksx = ActiveWorkbook.Worksheets(x)
rowl = wksx.Cells(Rows.Count, 4).End(xlUp).Row
For y = 1 To rowl
If IsNumeric(Application.Match(wksx.Cells(y, 4), .Range(.Cells(4, 2), .Cells(8, 2)), 0)) Then
wksx.Rows(y).ClearContents
End If
Next y
Next x
For x = 16 To 17
Set wksx = ActiveWorkbook.Worksheets(x)
rowl = wksx.Cells(Rows.Count, 4).End(xlUp).Row
For y = 1 To rowl
If IsNumeric(Application.Match(wksx.Cells(y, 4), .Range(.Cells(4, 2), .Cells(8, 2)), 0))  _
Then
wksx.Rows(y).ClearContents
End If
Next y
Next x
End With
End Sub

im blatt 2-11 und 16-17 soll aber nicht die ganze zeileninhalt gelöscht werden sondern nur die zelle in spalte d.
da muss wksx.Rows(y).ClearContents ersetzt werden oder?
gruss

Tabellenblätter nach inhalt durchsuchen und lösche

Forumthread: Tabellenblätter nach inhalt durchsuchen und lösche

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Tabellenblätter nach inhalt durchsuchen und lösche

Forumthread: Tabellenblätter nach inhalt durchsuchen und lösche

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread