02.06.2019, 12:14
ich möchte in meiner Liste nachvollziehen welche Buchnummer die Wäschenummer hatte, also zumindest wer sie davor hatte. ist das überhaupt machbar??? :20:
02.06.2019, 12:14
02.06.2019, 12:44
Erstmal ein freundliches Hallo,
was möchtest Du finden?
Ein Beispiel aus deiner Liste bitte.
was möchtest Du finden?
Ein Beispiel aus deiner Liste bitte.
02.06.2019, 12:51
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
02.06.2019, 13:50
So zB?
02.06.2019, 14:01
fast nur sollte die Wäschenummer 213 und dann dahinter Buchnummer 22/19 z.B. von bis
02.06.2019, 14:15
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.
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.
02.06.2019, 14:19
genau das würde mir schon langen :100:
04.06.2019, 14:40
eine Frage hätte ich noch geht das, das die Einträge dann nach den neuesten oben automatisch sortiert werden?? LG
04.06.2019, 20:29
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.
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:
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:
Dazu fügst Du dort nur eine weitere Codezeile ein.
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 SubDamit 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 SubDas 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 SubDazu 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 Sub06.06.2019, 10:56
Danke für die Hilfe aber irgendwie blicke ich es nicht :16: