Schleifen Inspiration
10.03.2020 13:26:42
Christian
ich könnte Hilfe gebrauchen.
im Ersten Tabellenblatt stehen Daten
https://www.herber.de/bbs/user/135741.xlsx
ich möchte immer wenn Bezeichnung und los das letzte mal vorkommen die Zeile kopieren. (Höchste Rechnungsnummer und wenn Teilrechnung steht auch die mit nehmen )
Dachte an einen find und von unten lesen nach dem ich nach der Bezeichnung Sortiert habe.
Sub schleifes()
i = 2 'startzeile
Bezeichnung = Range("a" & i).Value
Los = Range("B" & i).Value
Set Rng = ActiveSheet.Range("A10000:a2").Find(what:=Bezeichnung, searchdirectioN:=xlPrevious)
x = Rng.Row
Set Rn = ActiveSheet.Range("B10000:B2").Find(what:=Los, searchdirectioN:=xlPrevious)
For x = x To i Step -1
a = Range("A" & x).Value
c = x - 1
Los = Range("B" & (x)).Value
LosÜ = Range("B" & (x - 1)).Value
Next x
End Sub
Hatte für Teilrechnung auch nen Split gebaut aber bräuchte etwas Inspiration.
Sub StringZerlegen()
Dim strText As String
Dim vArray As Variant
Dim i As Integer
strText = Range("c4").Value
vArray = Split(strText, " ")
For i = 0 To UBound(vArray)
Debug.Print vArray(i)
Next i
vArray = Join(vArray, ";")
Debug.Print vArray
End Sub
Lieben Gruß
Christian
Anzeige