Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Suchen , makieren , löschen leider ohne schleife !!!
zurück: Pfad lässt sich nicht schließen weiter: UserForm größe = Multipage größe Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
leider vergessen
Gast


Verfasst am:
20. Aug 2008, 17:17
Rufname:

Suchen , makieren , löschen leider ohne schleife !!! - Suchen , makieren , löschen leider ohne schleife !!!

Nach oben
       Version: Office 2007

Hi
Ich möchte gerne in einer Tabelle in der Spalte G nach einträgen mit Null suchen diese Zeile dann löschen und weitersuchen bis kein Eintrag mehr kommt und dann ende. Leider bekomme ich die Schleife nicht hin , nur wenn ich sie von Hand starte geht es weiter . Kann mir jemand helfen ??
So weit bin ich bis jetzt :
Sub EintragSuchen()

If SucheName = "0" Then

Exit Sub

Else

Sheets("SAPfile").Select

For Each TempName In Range("G:G")

If TempName = SucheName Then

GefundeneZeile = TempName.Row ' Zeile der Tabelle Test speichern

Cells(GefundeneZeile, 1).Select ' Zelle markieren

'.Rows(TempName.Row).EntireRow.Delete

Adresse_Anfang = ActiveCell.Address

ActiveCell.End(xlToRight).Select

Adresse_Ende = ActiveCell.Address

Range(Adresse_Anfang, Adresse_Ende).Select

Selection.Delete Shift:=xlUp

Exit Sub

End If

Next

' [a1].Select

End If

End Sub


P.S. Ich habe tatsächlich mein Login vergessen !!!
pefeu
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Aug 2008, 18:11
Rufname: Peter
Wohnort: Hamburg


AW: Suchen , makieren , löschen leider ohne schleife !!! - AW: Suchen , makieren , löschen leider ohne schleife !!!

Nach oben
       Version: Office 2007

Hallo namenloser - du wirst aber doch einen Namen haben ???

so könnte es funktionieren:

Public Sub SuchenLoeschen()

Dim lZeile As Long

For lZeile = Cells(Rows.Count, 7).End(xlUp).Row To 1 Step -1
If Cells(lZeile, 7).Value <> "" And _
Cells(lZeile, 7).Value = 0 Then
Rows(lZeile).Delete Shift:=xlUp
End If
Next lZeile

End Sub

Gruß Peter
leider vergessen
Gast


Verfasst am:
20. Aug 2008, 18:33
Rufname:

AW: Suchen , makieren , löschen leider ohne schleife !!! - AW: Suchen , makieren , löschen leider ohne schleife !!!

Nach oben
       Version: Office 2007

Hi
Klar habe ich einen Namen sorry das ich ihn vergessen habe hinzuschrieben , gehört sich nicht .
Das sieht schon gut aus .

Sorry wenn ich frage aber könntest du einen kleine Kommentare hinter die Zeilen schreiben???


Danke Aggi
Gast



Verfasst am:
20. Aug 2008, 21:11
Rufname:

AW: Suchen , makieren , löschen leider ohne schleife !!! - AW: Suchen , makieren , löschen leider ohne schleife !!!

Nach oben
       Version: Office 2007

Hallo Aggi,

hier noch einmal mit Dokumentation:

Public Sub SuchenLoeschen()

Dim lZeile As Long ' der For/Next Schleifen-Index

'
' von der letzen belegten Zeile/Zelle in Spalte G rückwärts bis zur Zeile/Zelle 1
' denn löschen geht immer nur von unten nach oben, weil sonst dem For/Next die
' Zeilen durch das Löschen abhanden kommen.
'
For lZeile = Cells(Rows.Count, 7).End(xlUp).Row To 1 Step -1
'
' wenn die jeweilige Zelle in Spalte G ungleich leer ("") ist, also einen
' Inhalt hat und dann eine Null enthält, dann soll die ganze Zeile gelöscht werden
'
If Cells(lZeile, 7).Value <> "" And _
Cells(lZeile, 7).Value = 0 Then
Rows(lZeile).Delete Shift:=xlUp ' die ganze Zeile löschen und aufrücken
End If
Next lZeile ' die nächste Zeile auswählen

End Sub

Gruß Peter
leider vergessen
Gast


Verfasst am:
21. Aug 2008, 20:44
Rufname:


AW: Suchen , makieren , löschen leider ohne schleife !!! - AW: Suchen , makieren , löschen leider ohne schleife !!!

Nach oben
       Version: Office 2007

Hi

Super danke für alles , vor allem für deine Kommentare!!




Aggi
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Namen suchen 1 Wilfried 606 29. Aug 2005, 12:42
fl618 Namen suchen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Automatisches Löschen von Zeileninhalt 1 Automatix 785 29. Jul 2005, 16:10
fl618 Automatisches Löschen von Zeileninhalt
Keine neuen Beiträge Excel Formeln: Endlich kapiere ich Matrixformeln->Ich leider noch nicht. 2 kmna 893 25. Jul 2005, 14:38
kmna Endlich kapiere ich Matrixformeln->Ich leider noch nicht.
Keine neuen Beiträge Excel Formeln: Löschen von Wörtern in einem Satz 3 MartinJungwirth 795 13. Jul 2005, 15:51
MartinJungwirth Löschen von Wörtern in einem Satz
Keine neuen Beiträge Excel Formeln: Selbständiges Suchen einer Zelle und kopieren i andere Datei 2 Gerson 2322 19. Mai 2005, 04:48
Gerson Selbständiges Suchen einer Zelle und kopieren i andere Datei
Keine neuen Beiträge Excel Formeln: Wieso funktioniert "suchen und ersetzten" nur bedi 1 landau666 490 08. Apr 2005, 01:05
landau666 Wieso funktioniert "suchen und ersetzten" nur bedi
Keine neuen Beiträge Excel Formeln: Spaltenweise suchen und ersetzen 2 MaxKunst 3840 15. März 2005, 21:17
MaxKunsttt Spaltenweise suchen und ersetzen
Keine neuen Beiträge Excel Formeln: SVERWEIS - NACH 2 KRITERIEN GLEICHZEITIG SUCHEN 6 janine071108 3121 21. Feb 2005, 17:55
Arnim SVERWEIS - NACH 2 KRITERIEN GLEICHZEITIG SUCHEN
Keine neuen Beiträge Excel Formeln: Wert suchen 2 Foxy 583 29. Jan 2005, 18:04
Gast Wert suchen
Keine neuen Beiträge Excel Formeln: Zeilen mit doppelten Werten löschen 6 Sebowsky 1208 06. Jan 2005, 22:26
Sebowsky Zeilen mit doppelten Werten löschen
Keine neuen Beiträge Excel Formeln: daten suchen 18 excelfinki 2799 17. Dez 2004, 11:34
excelfinki daten suchen
Keine neuen Beiträge Excel Formeln: Doppelte Einträge aus Excel Tabellen löschen 3 Richkid 2831 09. Dez 2004, 15:45
Reinhard Doppelte Einträge aus Excel Tabellen löschen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA