Zelle wird nicht korrekt ausgelesen.

[Darth Sidious]

Also,

es sieht wie folgt aus:

Ich habe Spalte A, in der sich eine eindeutige Identifikationsnummer befindet.

In Spalte B, C ... befinden sich weitere Datensätze (z.B. Name, Vorname, Starße ...) die sich auf den Wert in Spalte A beziehen.

Alles ist Zeilenweise gegliedert.

Problem:

Ich habe ein Makro geschrieben um doppelte Einträge zu löschen (Zeilenweise). Suchkriterium ist immer die Identifkationsnummer.

Bei meinem Makro liest er mir den Vergleichswert nicht korrekt aus, er nimmt immer den zu vergleichenden Wert aus Spalte B, C ...

Makro ist wie folgt aufgebaut:

Option Explicit

Dim i, a, b, z As Integer

Dim Zelle, Zelle2 As String


Public Sub Filtern_Click()


For i = 1 To 10

    Zelle = Sheets("Tabelle1").Cells(1, i)

    b = i + 1

        For a = b To 10

            Zelle2 = Sheets("Tabelle1").Cells(1, a)

                If Zelle = Zelle2 Then

                    Rows(a).Delete

                End If

        Next a

Next i


End Sub

Könnt ihr mir sagen, warum der zweite Vergleichswert nicht korrekt ausgelesen wird?

[Der Kleine]

Zelle = Sheets("Tabelle1").Cells(i, 1)

Zelle2 = Sheets("Tabelle1").Cells(a ,1)

[Darth Sidious]

Danke.

Könntest du mir vielleicht noch verraten,

wie ich alle Zellen Markiere in Spalte A die einen Inhalt haben, sodass mir am Ende deren Anzahl angegeben wird?

Bis jetzt hab ich es mit Formel gemacht in einer Zelle ("=Anzahl2(A2:A999999)"), und dann habe ich diesen wert ausgelesen.

[Der Kleine]

Die formel ist doch schon (fast= ok:

("=Anzahl2(A:A)")

die 999999 ist sicherlich fehlerhaft, da du je nach Excel-Version 32000 buzw 64000 Zeilen (plus nen paar zerquetschte, damit es eine Zweierpotenz wird).

Mit A:A hast du aber die ganze Spalte erwischt. Dort, wo du irgendwelche Überschriften etc hast, aknnst du vom Ergebnis dann noch ein paar Zahelen abziehen, damit du nur die Werte ermittelst.

("=Anzahl2(A:A)-1")