Supportnet / Forum / Tabellenkalkulation
Zusammengehörige Zeilen nach Kriterium prüfen, ggf. löschen
Frage
hallihallo :)
ich möchte aus einer mehrere tausend Zeilen umfassenden Tabelle (mit Fertigungsaufträgen) zusammengehörende Zeilen (gekennzeichnet durch gleiche Vorgangsnummer) auf ein Kriterium prüfen (ob eine Kostenstelle in diesen Vorgängen vorhanden ist).
Diese Vorgänge können jedoch von Auftrag zu Auftrag eine unterschiedliche Anzahl an Zeilen besitzen.. welches mir die Prüfung erheblich erschwert.
Dieser Code hebt schonmal unterschiedlíche Vorgänge farblich hevor:
[code]Private Sub CommandButton1_Click()
Call Farbformatierung(Cells())
End
SubPrivate Sub Worksheet_Change(ByVal Target As Range)
Call Farbformatierung(Target)
End Sub
Sub Farbformatierung(Zellen As Range)
Dim Status As Boolean, n As Long
Farbe = Array(3, 34)
Status = True
SpalteWert = 3
Startzeile = 2
SpalteErste = 1
SpalteLetzte = 6
n = Startzeile While Cells(n, SpalteWert)
If Cells(n, SpalteWert) <> Cells(n - 1, SpalteWert) Then Status = Not Status Range(Cells(n, SpalteErste), Cells(n, SpalteLetzte)).Interior.ColorIndex = Farbe(Status * -1)
n = n + 1
Wend
End Sub[/code]
Jetzt weiß ich allerdings nicht mehr weiter..
Kann mir bitte jemand die Bedingung/Abfrage in VBA nennen mit der ich ganze zusammengehörende Zeilen (gleiche Vorgangsnummer) auf ein Kriterium abtasten und bei Eintreten des Ereignisses löschen kann?
Danke im Voraus :)
Antwort 1 von Saarbauer
Hallo,
ein paar Fragen:
1. wo steht dein Löschkriterium? Vermute Spalte 3
2. ist es ein fester Wert, dein Löschkriterium? Feste Kostenstelle oder unterschiedliche Kostenstellen?
3. soll grundsätzlich gelöscht werden bei dem angegebenen Löschkriterium?
Gruß
Helmut
ein paar Fragen:
1. wo steht dein Löschkriterium? Vermute Spalte 3
2. ist es ein fester Wert, dein Löschkriterium? Feste Kostenstelle oder unterschiedliche Kostenstellen?
3. soll grundsätzlich gelöscht werden bei dem angegebenen Löschkriterium?
Gruß
Helmut