Ich habe hier eine Exceltabelle, aus der ich für die weitere Bearbeitung bestimmte Zeilen löschen muss.
Die Tabelle sieht gekürzt wie folgt aus:
Tabelle1
A | B | |
1 | 892 | 79 |
2 | 892 | 156 |
3 | 892 | 58 |
4 | 892 | 79 |
5 | 975 | 156 |
6 | 975 | 102 |
7 | 975 | 156 |
8 | 975 | 359 |
9 | 1036 | 347 |
10 | 1036 | 156 |
11 | 1036 | 47 |
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Das Makro soll nun prüfen, welche Zellen in Spalte B keine doppelten Werte besitzen. Allerdings dürfen nur die Zeilen einbezogen werden, die in Spalte A den Wert 892 haben. Am obigen Beispiel wären das also B2 und B3. B1 ist doppelt, da gleich wie B4; B2 ist nicht doppelt, zwar in Spalte B vorhanden, aber in Zelle der Spalte A nicht den Wert 892.
Zu guter letzt soll das Makro alle ausgelesen Werte aus den Zellen der Spalte B, welche nicht mehrfach vorkommen, in den Zellen der kompletten Spalte B suchen und wenn gefunden, die gesamte Zeile löschen.
Meine ersten Versuche:
Sub TabelleKuerzen() m = 1 'bei Zeile 1 beginnen For Each ZelleSpalteB In Tabelle1.Range("B1:B4000") If ZelleSpalteB.Value <> "" Then If Cells(m, 1).Value = "892" Then 'Zeile zum Auswerten gefunden MsgBox "Kontrolle Variable, m=" & m End If End If m = m + 1 Next ZelleSpalteB End Sub
Weiter bin ich leider nicht gekommen ;)
Für weitere Hilfe schon einmal vielen Dank im Voraus.
MfG