Wenn ich Neue Namen eintrage bei "Jahresübersicht" sortiert es sich automatisch nach Alphabet.
Dass es um auf der Januar Tabelle zu aktualisieren Alt-F8 zu drücken ist zwar nervig aber schon mal besser als vorher.
Jetzt aber noch das Problem. Es wird nur auf der "Jan." Liste übernommen die Neuen Namen.
Es soll aber in allen 12 Monaten
Das ist der bisherige Code:
Sub KopiereBereich()
Dim Quelltab As Worksheet
Dim Zieltab As Worksheet
Dim Zelle As Range
Dim Zaehler As Long
Zaehler = 6
Bereich = "A4:A10000"
Set Quelltab = ActiveWorkbook.Worksheets("Jahresübersicht")
Set Zieltab = ActiveWorkbook.Worksheets("Jan.")
For Each Zelle In Quelltab.Range("A4:A10000")
Zieltab.Cells(Zaehler, 1) = Zelle
Zaehler = Zaehler + 1
Next Zelle
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A100")) Is Nothing Then
Range("A4:AL10000").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A1").Select
End If
End Sub
Was muss ich machen, damit der neue Neue Name in allen 12 Monaten erscheint und auch Sortiert ist.
Und wenn mir jetzt noch jemand sagen kann was man machen muss damit sich die Manuell eingetragnen Urlaubs Tage "U" ebenfalls mtisortieren.
Habt ihr mir das "Leben gerettet"
