VBA für Zeilen löschen

Hallo zusammen,
ich habe mal ein Frage für ein Makro. Leider habe ich so gar keine Ahnung von VBA und hoffe, dass ihr mir helfen könnt.
Es geht um folgende Tabelle:
https://www.herber.de/bbs/user/125965.xlsx
Hier importiere ich Daten aus einem anderen Programm. In diesem ist es einfacher, alle Daten auszulesen. Daher entstehen immer sehr große Datenmengen, welche ich gar nicht benötige. Die nicht benötigten Datenmengen (Zeilen) habe ich immer von Hand gelöscht. Möchte das ganze jetzt gerne etwas einfacher machen.
Ich habe Konten in Spalte A, welche gebraucht werden - ca. 80 verschiedene Konten, z.B.: 3511, 3518, 5411, 5461, 5731... Alle anderen Konten bzw. deren gesamte Zeile soll gelöscht werden. Wie könnte ich das machen?
Die Tabelle hat immer diese 12 Monatsblätter und immer einen identischen Aufbau. Leider sind die Anzahl der Zeilen(Konten) von Monat zu Monat unterschiedlich. Auch füllen sich die anderen Monatblätter immer erst im Laufe des Jahres.
Wie kann ich das Makro dann am besten auf dem Tabellenblatt ausführen? Geht das über einen Button?
Vielen Dank
Ralf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ralf,
in ein allgemeines Modul:
Modul Modul1

Option Explicit 
 
Sub cleanData() 
  Dim rng As Range, rngDelete As Range 
  Dim varKeep As Variant, lngRow As Long 
 
  varKeep = Array(3511, 3518, 5411, 5461, 5731) 'zu behaltende Kontonummern 
 
  For Each rng In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) 
    If IsNumeric(rng) Then 
      If IsError(Application.Match(CLng(rng), varKeep, 0)) Then 
        If rngDelete Is Nothing Then 
          Set rngDelete = rng 
        Else 
          Set rngDelete = Union(rng, rngDelete) 
        End If 
      End If 
    End If 
  Next 
 
  If Not rngDelete Is Nothing Then 
    If MsgBox("Es wurden " & rngDelete.Rows.Count & " unbenötigten Kontonummern gefunden!" & _
      vbLf & vbLf & "Sollen die gefundenen Kontonummern gelöscht werden?", _
      vbQuestion + vbYesNo, "Konten löschen") = vbYes Then 
      rngDelete.EntireRow.Delete 
    End If 
  Else 
    MsgBox "Keinen unbenötigten Kontonummern gefunden!", vbInformation, "Konten löschen" 
  End If 
   
  Set rng = Nothing 
  Set rngDelete = Nothing 
End Sub 
 
 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Der Code bearbeitet immer das aktive Tabellenblatt.
Das Makro mit Alt&F8 aufrufen und ausführen. Du kannst auch einen Tastenkombination erstellen (im Dialog unter 'Optionen'), oder eine Schaltfläche einfügen und das Makro zuweisen. Oder du erstellst einen Button im Menüband für das Makro.

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Option Explicit Sub cleanData() Dim rng As Range, rngDelete As Range Dim varKeep As Variant, lngRow As Long With Sheets("Master") varKeep = .Range("C10:C" & Application.Max(10, .Cells(.Rows.Count, 3).End(xlUp).Row)) End With For Each rng In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) If IsNumeric(rng) Then If IsError(Application.Match(CLng(rng), varKeep, 0)) Then If rngDelete Is Nothing Then Set rngDelete = rng Else Set rngDelete = Union(rng, rngDelete) End If End If End If Next If Not rngDelete Is Nothing Then If MsgBox("Es wurden " & rngDelete.Rows.Count & " unbenötigten Kontonummern gefunden!" & _ vbLf & vbLf & "Sollen die gefundenen Kontonummern gelöscht werden?", _ vbQuestion + vbYesNo, "Konten löschen") = vbYes Then rngDelete.EntireRow.Delete End If Else MsgBox "Keine unbenötigten Kontonummern gefunden!", vbInformation, "Konten löschen" End If Set rng = Nothing Set rngDelete = Nothing End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Sub cleanData() Dim rng As Range, rngDelete As Range Dim varKeep As Variant, lngRow As Long With Sheets("Master") varKeep = .Range("C10:C" & Application.Max(10, .Cells(.Rows.Count, 3).End(xlUp).Row)) End With For Each rng In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) If IsNumeric(rng) Then If IsError(Application.Match(rng, varKeep, 0)) Then If rngDelete Is Nothing Then Set rngDelete = rng Else Set rngDelete = Union(rng, rngDelete) End If End If End If Next If Not rngDelete Is Nothing Then If MsgBox("Es wurden " & rngDelete.Rows.Count & " unbenötigten Kontonummern gefunden!" & _ vbLf & vbLf & "Sollen die gefundenen Kontonummern gelöscht werden?", _ vbQuestion + vbYesNo, "Konten löschen") = vbYes Then rngDelete.EntireRow.Delete End If Else MsgBox "Keine unbenötigten Kontonummern gefunden!", vbInformation, "Konten löschen" End If Set rng = Nothing Set rngDelete = Nothing End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

330 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA für Zeilen löschen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

330 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread