Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelle suchen, Zeile löschen

Zelle suchen, Zeile löschen
georg
Hallo,
ich möchte daß in einer Excel-Mappe nach einem Wert gesucht wird, falls der Wert in einer Zelle gefunden wird, soll die Zeile, in der sich die Zelle befindet gelöscht werden
Am besten mittels VBA
Bin für alle Hinweise dankbar
Gruß
Georg

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zelle suchen, Zeile löschen
04.11.2010 08:58:35
Hajo_Zi
Hallo Georg,
Sub Find_Einmal()
'   erstellt von HajoZiplies@web.de 02.06.03
Dim RaFound As Range
With Worksheets("Tabelle1")
' xlByRows  Suche zuerst in Zeilen
' xlByColumns Suche zuerst in Spalten
Set RaFound = .Cells.Find("schulz", , , xlWhole, xlByRows, xlNext)
If Not RaFound Is Nothing Then
' MsgBox RaFound.Row
Rows(RaFound.Row).Delete
End If
End With
Set RaFound = Nothing
End Sub

AW: Zelle suchen, Zeile löschen
04.11.2010 09:41:02
georg
Hallo Hajo,
Leider löscht das Programm immer nur eine Zeile.
wie kann man das Programm anpassen, daß es über alle Zeilen der Mappe läuft?
Gruß
Georg
Anzeige
AW: Zelle suchen, Zeile löschen
04.11.2010 09:58:22
Hajo_Zi
Hallo Georg,
das Stand nicht im Beitrag.
Option Explicit
Sub Find_mehrmals()
'* H. Ziplies                                    *
'* 04.11.10                                      *
'* erstellt von HajoZiplies@WEB.de               *
'* http://Hajo-Excel.de
Dim RaFound As Range
With Worksheets("Tabelle1")
Set RaFound = .Cells.Find("Schulz", , , xlWhole, , xlNext)
If Not RaFound Is Nothing Then
Rows(RaFound.Row).Delete
Do
Set RaFound = .Cells.Find("Schulz", , , xlWhole, , xlNext)
If RaFound Is Nothing Then Exit Do
Rows(RaFound.Row).Delete
Loop
End If
End With
Set RaFound = Nothing
End Sub
Gruß Hajo
Anzeige
AW: Zelle suchen, Zeile löschen
04.11.2010 10:04:54
georg
Hallo Hajo,
vielen dank, Spitze!
Dein Programm funktioniert wie gewünscht, toll!
Gruß
Georg

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige