Automatisch Zeilen löschen

Hallo zusammen!
Ich habe folgendes Problem:
ich habe ein relativ komplexes Berechnungsmodell in Excel entwicklet, das sich über mehrere Tabellenblätter erstreckt. In diesem Modell wird jeweils ein Datensatz pro Zeile verarbeitet und ich habe 200 Zeilen vorgesehen.
Ich möchte jetzt, dass abhängig von der Anzahl der zu verarbeitenden Datensätze die überzähligen Leerzeilen in allen Sheets gelöscht werden. Wenn also nur 10 Datensätze verarbeitet werden sollen, möchte ich gerne die 190 Zeilen nach dem letzten Datensatz in allen Sheets per Knopfdruck löschen (die 190 leeren Zeilen mit tausenden #Div/0! 's stören mein ästhetisches Empfinden :-))!
Da ich mich mit VBA nur extrem rudimentär auskenne hab ich keine Ahnung, wie ich den Code hierfür aufbauen soll!
Wäre super, wenn mir jemand hier helfen könnte!
Grüße,
Nico

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Nico
Versuch mal


Sub sbErrDel()
Dim liZeile As Integer
For liZeile = Cells(Rows.Count, DeineSpalteMitDIV/0AlsZahl).End(xlUp).Row To 1 Step -1
If IsError(Range("DeineSpalteMitDIV/0AlsBuchstabe" & liZeile)) Then
Rows(liZeile).Delete
End If
Next
End Sub

Hinweise:
DeineSpalteMitDIV/0AlsZahl = hier musst du die Spaltennummer eintragen, in der die Fehler auftreten - für Spalte A trägst du 1 ein, Spalte B = 2, usw
DeineSpalteMitDIV/0AlsBuchstabe = hier musst du die Spaltennummer eintragen, in der die Fehler auftreten - für Spalte A trägst du A ein, Spalte B = B, usw
Diese Code löscht alle Zeilen, in denen in der von dir angegebenen Spalte ein Fehler auftritt - also auch die Zeilen mit Fehler, in denen Daten vorhanden sind.
Am besten testest du mit einer Kopie deiner Datei.
Hilfts?
Ciao
Thorsten

Sub sbErrDel() Dim liZeile As Integer, liSheet As Integer With ThisWorkbook For liSheet = 1 to .Sheets.Count For liZeile = .Sheets(liSheet).Cells(Rows.Count, DeineSpalteMitDIV/0AlsZahl).End(xlUp).Row _ To 1 Step -1 If IsError(.Sheets(liSheet).Range("DeineSpalteMitDIV/0AlsBuchstabe" & liZeile)) Then .Sheets(liSheet).Rows(liZeile).Delete End If Next Next End With End Sub

Sub sbErrDel() Dim liZeile As Integer, liSheet As Integer With ThisWorkbook For liSheet = 1 to .Sheets.Count On error Resume Next .Sheets(liSheet).Cells.Specialcells(xlcelltypeFormulas, 16).EntireRow.Delete on Error Goto 0 Next End With End Sub

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread