Zeile löschen von bis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim rngLast As Range Dim rngFirst As Range Set rngLast = Range("A:A").Find(what:="Ende", after:=Range("A1"), searchdirection:=xlPrevious) _ Set rngFirst = Range("A:A").Find(what:="Start", after:=rngLast, searchdirection:=xlNext) Range(rngFirst.Offset(2, 0), rngLast.Offset(-2, 0)).EntireRow.Delete

Dim rngLast As Range Dim rngFirst As Range with Worksheets("Tabelle1")'---Name anpassen Set rngLast = .Range("A:A").Find(what:="Ende", after:=.Range("A1"), searchdirection:= _ xlPrevious) _ Set rngFirst = .Range("A:A").Find(what:="Start", after:=rngLast, searchdirection:=xlNext) .Range(rngFirst.Offset(2, 0), rngLast.Offset(-2, 0)).EntireRow.Delete End with

Moin
Teststart:

Tabelle1

	A
1	x
2	x
3	x
4	start
5	hugo
6	q
7	q
8	q
9	peter
10	ende
11	x
12	x

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

nach Makrolauf:

Tabelle1

	A
1	start
2	hugo
3	q
4	q
5	q
6	peter
7	ende

Dim rngLast As Long Dim rngFirst As Long Dim letzte As Long With Worksheets("Tabelle1") '---Name anpassen letzte = .Cells(Rows.Count, 1).End(xlUp).Row rngLast = .Range("A1:A" & letzte).Find(what:="Ende", after:=.Range("A1"), searchdirection:= _ xlPrevious).Row rngFirst = .Range("A1:A" & letzte).Find(what:="Start", after:=.Cells(rngLast, 1), _ searchdirection:=xlNext).Row .Rows(rngLast + 1 & ":" & letzte).Delete .Rows("1:" & rngFirst - 1).Delete End With

Sub StartEndeWeg() Dim rngLast As Long Dim rngFirst As Long Dim letzte As Long With Worksheets("Tabelle1") For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row .Cells(i, 1) = Trim(.Cells(i, 1)) Next i letzte = .Cells(Rows.Count, 1).End(xlUp).Row Set s = .Columns(1).Find(What:="Start", LookIn:=xlValues, LookAt:=xlWhole) If Not s Is Nothing Then zs = s.Row Set P = .Columns(1).Find(What:="Ende", LookIn:=xlValues, LookAt:=xlWhole) If Not P Is Nothing Then zp = P.Row .Rows(letzte & ":" & zp + 1).Delete .Rows("1:" & zs - 1).Delete End With End Sub

Hallo Albin,
du solltest dir angewöhnen mit Option Explicit zu arbeiten.
Dies gehört über den Code in die erste Zeile.
Gut deine Erweiterung ist nix anderes wie harys Zeilen, ausser das du Trim Funktion dazu geholt hast.
Auch dein Code sollte nicht mehrfach ausgeführt werden, teste es mal selbst, spätesten der 3te Versuch gibt dir Ernüchterung.
Hab eine Prüfung der ersten Zelle auf "Start" mit eingebaut:

Option Explicit

Sub StartEnde()
Dim rngLast As Long
Dim rngFirst As Long
Dim letzte As Long
Dim i As Variant

Application.ScreenUpdating = False
'Wenn Start in der ersten Zelle steht dann Makro verlassen 
If Range("a1").Value = "Start" Then Exit Sub

With ActiveSheet

For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(i, 1) = Trim(.Cells(i, 1))
Next i


letzte = .Cells(Rows.Count, 1).End(xlUp).Row
 rngLast = .Range("A1:A" & letzte).Find(What:="Ende", after:=.Range("A1"), searchdirection:= _
xlPrevious).Row
 rngFirst = .Range("A1:A" & letzte).Find(What:="Start", after:=.Cells(rngLast, 1), _
searchdirection:=xlNext).Row
 .Rows(rngLast + 1 & ":" & letzte).Delete
 If .Range("a1").Value = "Start" Then Exit Sub
 .Rows("1:" & rngFirst - 1).Delete
End With

Application.ScreenUpdating = True
End Sub

[size=8]Code eingefügt mit [url=http://vbahtml.origo.ethz.ch] VBA in HTML 2.3[/url][/size]
Gruß Matze

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread