Zelleninhalt bedingt löschen
16.04.2021 09:36:57
Andreas
bin neu in diesem Forum und finde zu meinem Problem hier keinen Lösungsansatz.
Ich habe eine Preisliste mit Ersatzteilen, welche eine einzigartige, alphanumerische Teilenummer in Spalte 3 haben.
Wenn ich Teile neu einlagere, trage ich die Teilenummern in eine der 8 Lagerplatztabellen an entsprechender Stelle ein.
Die Teile werden dann in die Preisliste eingepflegt, via Macro finde ich die Teilenummer (Spalte 3) in der Lagertabelle und das Macro trägt mir die Lagerplatznummer aus einer Hilfsspalte am Ende der Lagerplatztabelle in die Spalte 10 (J) meiner Preistabelle ein.
Wenn ein Teil verkauft ist, ändere ich den Status in Spalte 11 auf "V" und das Macro (über Button am Spaltenkopf) löscht den Lagerplatz in Spalte 10.
Nun komme ich aber nicht dahinter, wie ich die Teilenummer des verkauften Artikels aus der Lagertabelle gelöscht bekomme.
Bin für jeden Hinweis dankbar!
Mein Macro sieht momentan so aus:
Sub Suchen()
Dim rng As Range
Dim mySheet As Variant
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 3).End(xlUp).Row _
' wo steht die gesuchte Artikelnummer in der Artikeltabelle (3 = in Spalte C)
For iRow = 1 To iRowL
For Each mySheet In Array("RegalR1", "RegalR2", "RegalR3", "Regal S", "Regal T", "Regal U", " _
Regal V", "Vitrinen") ' Artikelnummer in diesen Lager-Tabellen suchen
If Not IsEmpty(Cells(iRow, 3)) Then _
' wenn die Zelle in der Spalte nicht leer ist (3 = in Spalte C)
With Sheets(mySheet) _
' dann suche in dieser Matrix
Set rng = .Cells.Find(Cells(iRow, 3), lookat:=xlWhole, LookIn:=xlValues) _
' welche Artikelnummer soll ich suchen (3 = die in Spalte C)
If Not rng Is Nothing Then
Cells(iRow, 10) = .Cells(rng.Row, 7) _
'wenn Artikelnummer existiert, kopiere Inhalt aus Spalte 7 der Fund-Zeile
End If _
'in Spalte 10 der Artikelnummer in Artikeltabelle
If Cells(iRow, 11).Value = "v" Then _
' wenn in Status ein "v" steht, lösche den Lagerplatz in Spalte 10
Cells(iRow, 10).Value = " " _
' hier möchte ich, dass die Artikelnummer auch aus der Lagertabelle gelöscht wird
End If
End With
End If
Next mySheet
Next iRow
End Sub
https://www.herber.de/bbs/user/145569.xlsm