Teil löschen, wenn Nullbestand + Suche

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub teilesuchen() With Sheets("Inventarübersicht") Dim arrFarben, rgDaten As Range Dim hilfsspalte As Range, cnt As Double, x As Long, str As String Dim TeileNR TeileNR = Sheets("Bestandsverwaltung").Range("D11").Value Set hilfsspalte = .Cells(1, .Cells(1, Columns.Count).End(xlToLeft).Column + 2) Set rgDaten = .Range("A1:D9") 'datenbereich definieren 'datenbereich filtern nach teileNr rgDaten.Cells(1).AutoFilter Field:=2, Criteria1:="=" & TeileNR, Operator:=xlAnd .UsedRange.Columns(4).SpecialCells(xlCellTypeVisible).Copy hilfsspalte 'liste mit den _ farben kopieren hilfsspalte.CurrentRegion.RemoveDuplicates Columns:=Array(1), Header:=xlYes 'liste _ dublikate entfernen With WorksheetFunction 'liste in Array schreiben arrFarben = .Transpose(hilfsspalte.CurrentRegion.Resize(hilfsspalte.CurrentRegion.Rows. _ Count - 1).Offset(1)) End With For x = LBound(arrFarben) To UBound(arrFarben) 'schleife über die farbliste und _ Summenbildung cnt = WorksheetFunction.SumIfs(rgDaten.Columns(3), rgDaten.Columns(2), TeileNR, rgDaten. _ Columns(4), arrFarben(x)) str = str & IIf(str = "", "", vbCr) & cnt & " mal " & arrFarben(x) 'summenzeile in _ Stringvariable schreiben Next x MsgBox str 'Ergebnisausgabe .ShowAllData 'filter zurücksetzen hilfsspalte.EntireColumn.Delete 'hilfsspalte löschen End With End Sub

Sub teilesuchen() Dim arrFarben, rgDaten As Range Dim hilfsspalte As Range, cnt As Double, x As Long, str As String Dim TeileNR With Sheets("Inventarübersicht") TeileNR = Sheets("Bestandsverwaltung").Range("D11").Value Set hilfsspalte = .Cells(1, .Cells(1, Columns.Count).End(xlToLeft).Column + 2) Set rgDaten = .Range("A1:D9") If WorksheetFunction.CountIf(rgDaten, TeileNR) > 0 Then rgDaten.Cells(1).AutoFilter Field:=2, Criteria1:="=" & TeileNR, Operator:=xlAnd .UsedRange.Columns(4).SpecialCells(xlCellTypeVisible).Copy hilfsspalte hilfsspalte.CurrentRegion.RemoveDuplicates Columns:=Array(1), Header:=xlYes With WorksheetFunction arrFarben = .Transpose(hilfsspalte.CurrentRegion.Resize(hilfsspalte _ .CurrentRegion.Rows.Count - 1).Offset(1)) End With For x = LBound(arrFarben) To UBound(arrFarben) cnt = WorksheetFunction.SumIfs(rgDaten.Columns(3), rgDaten.Columns(2), _ TeileNR, rgDaten.Columns(4), arrFarben(x)) str = str & IIf(str = "", "", vbCr) & cnt & " mal " & arrFarben(x) Next x MsgBox str .ShowAllData hilfsspalte.EntireColumn.Delete Else MsgBox "Die Teilenummer " & TeileNR & " ist nicht vorhanden." End If End With End Sub

Sub Nummerierung() Dim Spalte As Integer Dim StartWert As Integer Dim Startzeile As Integer Dim LetzteZeile As Long Dim I As Integer Spalte = 1 StartWert = 1 Startzeile = 2 For I = Startzeile To .Range("B" & Rows.Count).End(xlUp).Row Cells(I, Spalte).Value = StartWert StartWert = StartWert + 1 Next I End Sub

tchja, und das ist auch das Problem. Anstatt sich dem Thema per Grundlagenaneignung zu nähern, läßt man sich Codes schreiben und kommt dann mit dem Ergebnis nicht klar. Das zeugt von reichlich Selbstüberschätzung. Du verkabelst doch auch einen halbfertigen Schaltschrank nicht fertig wenn du keine Ahnung davon hast.
Was würdest du denn tun wenn es diese Foren nicht gäbe? Ich rate mal. Du würdest Jemanden fragen der sich auskennt. Das fällt offensichtlich weg. Du würdest einen Auftrag an Jemanden geben. Das fällt wohl auch weg. Oder du beschäftigst dich mit der Programmiersprache und bildest dich weiter bist du zu dem Ergebnis kommst was du wolltest. Einhergehend mit Erlangung von Wissen was dich befähigt auch andere Problemstellungen zu lösen. Das fällt wohl auch weg. Denn du hast ja dafür keine Zeit!!!
Klar fängt Jeder mal bei 0 an. Nur du möchtest bei 2 anfangen. Was glaubst du wie lange es dauert bis man diese Codes locker aus dem Handgelenk schreiben kann? Ich weis es nicht, weil ich ständig selbst noch nachlesen muß. Und auch das kostet Zeit!! Aber meine und nicht deine. Schön für dich, nicht wahr?
Für den Referenzfehler in deiner Ausgangsfrage versuche den Punkt vor Range wegzulassen. Denn ich sehe kein with statement


with objektname
.objekteigenschaft irgend ein code
end with

Beliebteste Forumthreads (12 Monate)

Teil löschen, wenn Nullbestand + Suche

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread