12.10.2021, 14:03
Hey @all,
kurze Frage, kann eine formatierte Tabelle neu hinzugefügte Einträge automatich nach Größe einsortieren?
kurze Frage, kann eine formatierte Tabelle neu hinzugefügte Einträge automatich nach Größe einsortieren?
12.10.2021, 14:09
12.10.2021, 14:11
12.10.2021, 14:22
Moin Ralf,
siehe Anhang. wenn Du jetzt eine 4 einträgst bleibt die unten in der Zeile stehen. Erst nach erneutem Sortieren nach Größe (aufsteigen), reiht sich die 4 entsprechend ein.
Hi Elex,
hatte gehofft, dass das ohne VBA funktioniert.
siehe Anhang. wenn Du jetzt eine 4 einträgst bleibt die unten in der Zeile stehen. Erst nach erneutem Sortieren nach Größe (aufsteigen), reiht sich die 4 entsprechend ein.
Hi Elex,
hatte gehofft, dass das ohne VBA funktioniert.
12.10.2021, 14:28
Ach was! 
Es gibt ja auch (noch) keinen Automatismus …
Nochmal die Frage:
Da eine Tabelle idR durchaus mehr als eine Spalte hat: Was soll der Trigger sein?
Es gibt ja auch (noch) keinen Automatismus …
Nochmal die Frage:
Da eine Tabelle idR durchaus mehr als eine Spalte hat: Was soll der Trigger sein?
12.10.2021, 14:48
13.10.2021, 05:19
Moin,
keiner ne Idee?
keiner ne Idee?
13.10.2021, 06:17
Hallo,
du hast die Frage von Ralf noch nicht beantwortet. Wann soll das ausgeführt werden? Über einen Button, Tastenkombination, oder wenn du den Wert einer bestimmten Spalte eingibst?
"Automatisch" ist so ein dehnbarer Begriff.
Sortieren kannst du so:
Wenn das passieren soll, wenn du das Datum eingibst (die anderen Werte hast du schon eingegeben - also Datum als letztes):
Jetzt mach was draus.
du hast die Frage von Ralf noch nicht beantwortet. Wann soll das ausgeführt werden? Über einen Button, Tastenkombination, oder wenn du den Wert einer bestimmten Spalte eingibst?
"Automatisch" ist so ein dehnbarer Begriff.
Sortieren kannst du so:
Code:
Option Explicit
Public Sub Main()
With Tabelle1.ListObjects("Tabelle1").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("Tabelle1[StefanB]"), Order:=xlAscending
.Apply
End With
End SubWenn das passieren soll, wenn du das Datum eingibst (die anderen Werte hast du schon eingegeben - also Datum als letztes):
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Me.ListObjects("Tabelle1")
If Not Intersect(Target, .ListColumns(6).DataBodyRange) Is Nothing Then
With .Sort
.SortFields.Clear
.SortFields.Add Key:=Range("Tabelle1[StefanB]"), Order:=xlAscending
.Apply
End With
End If
End With
End SubJetzt mach was draus.
13.10.2021, 09:30