Stücklisten auf mehreren Ebenen

Hallo liebe Excelgemeinde,
ich hab da mal ein kniffliges Problem, das ich nicht auf die reihe bekomme.
Ich habe eine Mehrstufige Stückliste, die ich mir aus einem System in excel einlade.
(Stufe 1: alle direkt verbauten Bauteile,Stufe 2: Bauteile die in einer der Bauteile der Stufe 1 verbaut werden usw....)
In der Spalte K steht die Stufe (1,2,3,4)
Ich möchte 2 Abfragen generieren, die von K2 bis K500 von oben nach unten durchlaufen soll.
a) Abfrage 1: wechselt die Stufe 1 auf Stufe 2 ist die Materialnummer (Spalte C)
abzufragen, ob die Unterstückliste gelöscht werden soll.
Bei ja dann lösche den Bereich ab der Erhöhung zur Stufe 2 bis zur nächsten Stufe 1
Weiter suchen, ob es noch Erhöhungen von Stufe 1 auf 2 gibt
b) Abfrage 2: wechsel der Stufe 2 auf 3
hier soll ebenfalls die Materialnnummer (Spalte C) abgefragt werden, ob deren Stückliste gelöscht werden soll. bei ja löschen bis Stufe von 3 auf 2 oder von 3 auf 1 zurück springt.
leider kannm man aktuell keine xls hochladen, sonst hätte ich mal es euch anhand eines Beispieles mal zeigen können.
Vieleicht gibt es ja jemanden, der das trotzdem verstanden hat wo mein Problem ist
Wäre für jede art von kreativer Rückmeldung dankbar, die mich hier einen Schritt weiter bringt...
:-)
liebe Grüße
Stef26

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefan,
hier mal ein erster Ansatz für ein Makro zur Löschung von Zeilen.
Je nachdem für welche "Do Until" - Zeile entscheidest ist das Löschverhalten etwas anders.
Bitte Makro in einer Kopie des Tabellenblattes testen, da die Löschungen nicht rückgängig gemacht werden können außer durch Schliessen der Datei ohne zu speichern.
Gruß
Franz

'Code in einem allgemeinen Modul
Sub Loeschen_Stufe_2()
Call Loeschen_Stufe(StufeNr:=2)
End Sub
Sub Loeschen_Stufe_3()
Call Loeschen_Stufe(StufeNr:=3)
End Sub
Sub Loeschen_Stufe(StufeNr As Integer)
Dim wks As Worksheet
Dim Zeile As Long, Zeile_Letzte As Long, Auswahl As Long
Dim bolGeloescht As Boolean
Set wks = ActiveSheet
With wks
Zeile_Letzte = .Cells(.Rows.Count, 11).End(xlUp).Row
For Zeile = 2 To .Cells(.Rows.Count, 11).End(xlUp).Row
If .Cells(Zeile + 1, 11).Value > .Cells(Zeile, 11).Value And .Cells(Zeile, 11).Value =  _
StufeNr - 1 Then
.Cells(Zeile, 3).Select
Auswahl = MsgBox(StufeNr & ". Ebene löschen?" & vbLf _
& "Komponenten-Nr. " & .Cells(Zeile, 3).Value & vbLf _
& "Objektkurztext: " & .Cells(Zeile, 4).Value & vbLf, _
vbYesNoCancel + vbDefaultButton2, "Löschen von Teilen der Stufe " & StufeNr)
Select Case Auswahl
Case vbYes
'            Do Until .Cells(Zeile + 1, 11).Value   _
StufeNr 'Löscht Zeilen _
der Stufe bis Stufe mit Unterstufen beginnt
Do Until .Cells(Zeile + 1, 11).Value

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread