VBA-Auswahl und löschen

Forumthread: VBA-Auswahl und löschen
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: VBA-Auswahl und löschen

11.09.2006 19:03:21

Ibn-Sina

Hallo,
ich habe eine Tabelle mit vielen vers. Daten. In einer Spalte sind "Nullen".
Ich möchte nun, dass excel das erste Feld der Spalte anwählt und die Zeilen in der Spalte nach "nullen" durchsucht und diese dann löscht oder etwas anderes eingibt (einen Text z.B, ist hier Geschmackssache).
Ich weiß das man das mit einer Do-loop schleife machen kann, ich aber fange erst mit VBA an und habe meine liebe Mühe und Not.
Vielleicht kann mir jmd. einen Tipp geben.
Danke schonmal.
Grüsse

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA-Auswahl und löschen

11.09.2006 19:08:18

Josef

AW: VBA-Auswahl und löschen

11.09.2006 19:08:18

Josef

Hallo Ibn-Sina!
Hier ein Beispiel für die Spalte "C".

Sub NullenLoeschen()
Dim rng As Range, rngU As Range

For Each rng In Range("C:C")
  If rng = 0 Then
    If rngU Is Nothing Then
      Set rngU = rng.EntireRow
    Else
      Set rngU = Union(rngU, rng.EntireRow)
    End If
  End If
Next

'löschen
If Not rngU = Nothing Then rngU.Delete
'oder
'If Not rngU Is Nothing Then rngU.Value = "Nicht mehr leer;-)"

End Sub

Gruß Sepp

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!