Daten per Klick nummerieren/per Formel sortieren
17.07.2017 07:25:58
CarVogt
vor ein paar Tagen habe ich mir bereits zweimal Hilfe geholt. Dabei ging es zum einen darum, per Doppelklick ein X in eine Spalte einzutragen, zum anderen darum, die Datensätze, die ein X in Spalte H erhalten haben, ohne Leerzeilen in einem anderen Blatt aufzulisten.
Ersteres übernimmt folgender Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim RaBereich As Range
Set RaBereich = Range("H2:H250")
If Intersect(Target, RaBereich) Is Nothing Then Exit Sub
Application.EnableEvents = False
Cancel = True
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
End If
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub
{=WENN(ZEILEN($1:1)>ZÄHLENWENN(Artikel!$H$2:$H$250;"x");"";INDEX(Artikel!$A$2:$A$250; KKLEINSTE(WENN(Artikel!$H$2:$H$250="x";ZEILE($2:$250)-1);ZEILE(A1)))) }
Nun zu meiner Frage:
Ich würde gerne die Reihenfolge der Daten beeinflussen können, d.h. statt des "X" per Doppelklick sollte aufwärts gezählt werden (oder auch neben dem "X", ob dieses sichtbar ist, ist nicht wichtig). Die Daten im anderen Blatt sollten dann, darauf basierend, aufsteigend sortiert werden. Und um das noch ein wenig komplizierter zu machen, müsste die Möglichkeit bestehen, falls ich beim Klicken eine Zeile vergessen habe, hier die laufende Nummer händisch zu korrigieren. dann müssten natürlich alle weiteren, bereits erstellten Nummern um eins nach oben korrigiert werden.
Das übersteigt leider meine Excel-Kenntnisse bei weitem. Kann mir da jemand von euch helfen?
Danke
Carsten