Zeilen löschen

14/02/2008 - 11:03 von Harald | Report spam
Guten Morgen,

ich möchte aus einer Tabelle alle Zeilen löschen, in deren Spalte K
der Wert >300 und <200 ist. Die Anzahl der Zeilen ist unbekannt. Die
Zellen sind allerdings als Textfeld formatiert.

Kann mir jemand einen VBA-Code nennen?

Danke und Gruß

Harald
 

Lesen sie die antworten

#1 Dimo Tabken
14/02/2008 - 11:45 | Warnen spam
Am Thu, 14 Feb 2008 02:03:46 -0800 (PST) schrieb Harald:

Guten Morgen,

ich möchte aus einer Tabelle alle Zeilen löschen, in deren Spalte K
der Wert >300 und <200 ist. Die Anzahl der Zeilen ist unbekannt. Die
Zellen sind allerdings als Textfeld formatiert.

Kann mir jemand einen VBA-Code nennen?

Danke und Gruß

Harald



Hallo Harald,

ungetestet, sollte aber funktionieren:
Bitte achte darauf, dass in zwei Zeilen Umbrüche drin sind, die dort
eigentlich nicht hingehören ...

Sub ZeilenLoeschen()

Dim intLetzteZeile As Integer
Dim n As Integer

'die folgenden beiden Zeilen gehören in *eine* Zeile
intLetzteZeile = ActiveSheet.Cells(Application.Rows.Count,
11).End(xlUp).Row

For n = intLetzteZeile To 1 Step -1
'die folgenden beiden Zeilen gehören in *eine* Zeile
If CLng(ActiveSheet.Range("K" & n).Text) > 200 And
CLng(ActiveSheet.Range("K" & n).Text) < 300 Then
ActiveSheet.Rows(n).Delete
End If
Next
End Sub

Meinst Du in Etwa sowas?

Ähnliche fragen