Zelle suchen und mehrere Zeilen löschen

Moderator: ModerationP

Zelle suchen und mehrere Zeilen löschen

Beitragvon Thomasc.87 » 13. Okt 2017, 09:41

Hallo zusammen,

folgendes Problem habe ich:

Ich habe eine Datei in der einige Zeilen gelöscht werden müssen.

In Spalte A kommt mehrfach der Wert "KKz" vor. Diese Zeile + die nächsten 30 oder 31 Zeilen (je nachdem wie viele Tage der jeweilige Monat hat) müssen gelöscht werden. In Zelle A1 steht dann zb. der 31.10.2017 oder 30.11.2017 drin.

Ich hoffe mir kann jemand weiterhelfen...
Thomasc.87
 

Re: Zelle suchen und mehrere Zeilen löschen

Beitragvon thomasc.87 » 13. Okt 2017, 09:58

Ah bei einer Sache habe ich michg laube ich nicht ganz klar ausgedrückt.

In der jeweiligen DAtei sind nur Daten für einen Monat. Es muss somit nur einmal oben der Monat ausgelesen werden und in der kompletten Datei müssen dann die Zeile "KKz" und die 30 oder 31 Zeilen danach gelöscht werden.
thomasc.87
 

Re: Zelle suchen und mehrere Zeilen löschen

Beitragvon Willie017 » 13. Okt 2017, 10:20

Hallo

probier mal
Code: Alles auswählen
Option Explicit

Sub Tst()
   Dim ws As Worksheet, r As Range, NumDays
   
   Set ws = ThisWorkbook.Worksheets("Tabelle1")
   NumDays = Day(ws.Range("A1")) + 1
   
   Do
      Set r = ws.Columns("A").Find(What:="Kkz", LookIn:=xlValues, LookAt:=xlWhole)
      If Not r Is Nothing Then
         r.Resize(NumDays).EntireRow.Delete
      End If
   Loop Until r Is Nothing

End Sub
Willie
Willie017
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 50
Registriert: 28. Aug 2017, 22:42


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: steve1da und 16 Gäste