Datensätze suchen und löschen / Kopieren

Hi,
ich möchte gerne folgendes per Makro erledigen:
Ich habe eine Exceltabelle "IMPORT", in der gibt es ziemlich viele Datensätze (geht von A bis M und runter ab Zeile10 bis je nachdem bis 500 oder 1000)
In der Tabelle gibt es Datensätze, die würde ich gerne automatisch (oder besser gesagt mit Button) löschen, wenn folgende Bedingungen erfüllt sind:
- wenn Spalte C ist " " UND Spalte K ist "0"
ODER
- wenn Eintrag in Spalte A mit "VERRECHNUNG" beginnt (der String kann auch mal länger sein)
Die Datensätze sollen richtig gelöscht werden ( nicht nur Inhalt rauslöschen)
Ist es dann möglich , die gelöschten Datensätze zu erfassen, Neues Tabellenblatt einzufügen und dort diese zuvor gelöschten DS reinzuschreiben.
(oder vielleicht zuerst reinschreiben und dann löschen) weiss nicht wie man da vorgeht.
Hilfe wäre nett, Danke
Gruss
Holger

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() Dim Bereich As Range Dim NeuesBlatt As Worksheet With Application .ScreenUpdating = False .EnableEvents = False With Sheets("Tabelle1") 'Tabellennamen anpassen Set Bereich = .Range("A10", .Cells(.UsedRange.Cells(.UsedRange.Cells.Count).Row, 1)) If Intersect(Bereich, Rows("1:9")) Is Nothing Then Set Bereich = Bereich.Offset(0, Columns.Count - 1) Bereich.FormulaR1C1 = _ "=IF(OR(AND(RC3="" "",RC11=0),IF(ISERROR(FIND(""VERRECHNUNG"",RC1)),1,0)=0),0,"""")" If Application.WorksheetFunction.CountIf(Bereich, 0) > 0 Then 'kopiere den Bereich nach Tabelle2 Set NeuesBlatt = Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) .Activate Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Copy NeuesBlatt.Range("A1") 'Lösche die Zeilen Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete End If 'Lösche die Formelspalte am ende der Tabelle .Columns(.Columns.Count).Delete End If End With .ScreenUpdating = True .EnableEvents = True End With End Sub

Hallo,
Du hattest ja dies alles so angegeben.
'hier hast Du ein Leerzeichen angegeben
- wenn Spalte C ist " " UND Spalte K ist "0"
hier hast Du VERRECHNUNG angegeben nichts von groß oder klein
- wenn Eintrag in Spalte A mit "VERRECHNUNG" beginnt (der String kann auch mal länger sein)
Hier die geänderte Version:

Sub Makro1()
Dim Bereich As Range
Dim NeuesBlatt As Worksheet
With Application
 .ScreenUpdating = False
 .EnableEvents = False
    
    With Sheets("Tabelle1") 'Tabellennamen anpassen 
     
      Set Bereich = .Range("A10", .Cells(.UsedRange.Cells(.UsedRange.Cells.Count).Row, 1))

      If Intersect(Bereich, Rows("1:9")) Is Nothing Then
         
         Set Bereich = Bereich.Offset(0, Columns.Count - 1)
         Bereich.FormulaR1C1 = _
         "=IF(OR(AND(RC3="""",RC11=0),IF(ISERROR(FIND(""VERRECHNUNG"",UPPER(RC1))),1,0)=0),0,"""")"
         
         If Application.WorksheetFunction.CountIf(Bereich, 0) > 0 Then
            'kopiere den Bereich nach Tabelle2 
            Set NeuesBlatt = Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
            .Activate
            Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Copy NeuesBlatt.Range("A1")
            'Lösche die Zeilen 
            Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
         End If
            'Lösche die Formelspalte am ende der Tabelle 
         .Columns(.Columns.Count).Delete
      
      End If
    
    End With
 
 .ScreenUpdating = True
 .EnableEvents = True
End With
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

Datensätze suchen und löschen / Kopieren

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datensätze suchen und löschen / Kopieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread