Statistik

[duddits30]

ich möchte in meiner Liste nachvollziehen welche Buchnummer die Wäschenummer hatte, also zumindest wer sie davor hatte. ist das überhaupt machbar??? :20:

[Mase]

Erstmal ein freundliches Hallo,

was möchtest Du finden?
Ein Beispiel aus deiner Liste bitte.

[duddits30]

z. B. ist Wäschenummer 207 jetzt vergeben mit 143/17 irgendwann kommt dann 267/19 (zum Beispiel) und ich möchte dann noch nachvollziehen das 143/17 die Wäschenummer hatte

[Mase]

So zB?

[duddits30]

fast nur sollte die Wäschenummer 213  und dann dahinter Buchnummer 22/19 z.B. von bis

[Mase]

Hi,

eine perfekte Software werde ich nicht liefern, aber soweit kann ich noch mitgehen.
Ich nehme an, dass die zugehörige Nummer stets oben drüber steht.
Schau dir mal diese Beispieldatei an.

[duddits30]

genau das würde mir schon langen  :100:

[duddits30]

eine Frage hätte ich noch geht das, das die Einträge dann nach den neuesten oben automatisch sortiert werden?? LG

[schauan]

Hallöchen,

da hilft der Makrorekorder schon ein Stück weit …
https://www.clever-excel-forum.de/Thread...rorekorder

ich habe damit diesen Code aufgezeichnet.

Code:

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("A2:C3").Select
    ActiveWorkbook.Worksheets("Journal").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Journal").Sort.SortFields.Add2 Key:=Range("A2:A3") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Journal").Sort
        .SetRange Range("A2:C3")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Damit alles sortiert wird, kannst Du z.B. die Zahlen bei den Range-Angaben wegnehmen und die Zeile mit ...Select ist auch nicht nötig.
Würde dann so aussehen:

Code:

Sub Makro1()
    ActiveWorkbook.Worksheets("Journal").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Journal").Sort.SortFields.Add2 Key:=Range("A:A") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Journal").Sort
        .SetRange Range("A:C")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Das Makro kannst DU mit in das Codemodul der Tabelle Buchnummer einfügen.


Damit es automatisch läuft, startest Du es aus diesem Makro heraus:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    lngRow = getRow + 1
     Set wks = Worksheets("Journal")
    wks.Cells(lngRow, 1).Value = Now()
    wks.Cells(lngRow, 2).Value = Target.Value
    wks.Cells(lngRow, 3).Value = Target.Offset(-1, 0).Value
End Sub

Dazu fügst Du dort nur eine weitere Codezeile ein.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    lngRow = getRow + 1
     Set wks = Worksheets("Journal")
    wks.Cells(lngRow, 1).Value = Now()
    wks.Cells(lngRow, 2).Value = Target.Value
    wks.Cells(lngRow, 3).Value = Target.Offset(-1, 0).Value
    Call Makro1
End Sub

[duddits30]

Danke für die Hilfe aber irgendwie blicke ich es nicht  :16: