Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
716to720
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
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bereich überprüfen & Zeile löschen

Bereich überprüfen & Zeile löschen
08.01.2006 19:10:19
Peter
Hallo,
wenn in Spalte J der Tabelle „Quelle ein Wert eingetragen wird,
füge ich diese Zeile per Ereignis in der Tabelle „Gesamt“ unterhalb
der letzten Zeile ein.
Jetzt soll die letzte Zeile (Bereich Spalte A-I) der Tabelle „Gesamt“
mit den anderen Zeilen der Tabelle „Gesamt“ (auch Bereich A-I) verglichen werden.
Wird ein entsprechender Bereich gefunden soll diese Zeile gelöscht werden.
https://www.herber.de/bbs/user/29836.xls
Wer kann helfen?
Danke im voraus
Peter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich überprüfen & Zeile löschen
08.01.2006 20:17:23
et999
Hi Peter,
ist vielleicht nicht das eleganteste, aber müsste so klappen:
&ltpre&gt
Sub doppelteLöschen()
Dim str1 As String
Dim str2 As String
Dim Zähler1 As Integer
Dim Zähler2 As Integer
Dim Reihe As Integer
Reihe = Sheets("Gesamt").Range("A65536").End(xlUp).Row
For Zähler1 = 1 To 9
str1 = str1 + Sheets("Gesamt").Cells(Reihe, Zähler1).Value
Next
For Zähler2 = 2 To Reihe - 2
str2 = ""
For Zähler1 = 1 To 9
str2 = str2 + Sheets("Gesamt").Cells(Zähler2, Zähler1).Value
Next Zähler1
If str1 = str2 Then _
Sheets("Gesamt").Cells(Zähler2, Zähler1).EntireRow.Delete
Next Zähler2
End Sub&lt/pre&gt
Gruß
Uwe
(:o)
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige