Hallo, ich habe ein Problem mit den Makros (ist mein erster Versuch) vielleicht kann mir jemand von Euch dabei helfen:
Wir haben für jedes Jahr eine Excel Datei. Auf dem Tabellenblatt 'Jahresübersicht' steht ab Zeile A4 die Namen der Mitarbeiter. In Spalte B die Kostenstelle C,D,E,F weiter Infos.
Ich habe es inzwischen geschafft, dass sich bei 'Jahresübersicht' automatisch die Namen nach Alphabet sortiert.
Auf dem Tabellenblatt 'Jan.' passt es sich mit dem Drücken von Alt+F8 an.
Aber auf Feb. März. etc. ändert es sich nicht.
Auf dem Tabellenblättern für die Monate stehen die Namen der Mitarbeiter ab Zeile A6. Jeder Monatstag hat eine eigene Spalte, dort werden Urlaubs und Krankentage Manuell eingetragen.
Das ist der Code den ich bisher habeSub KopiereBereich()
With Sheets(1)
zEnd = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
Dim Quelltab As Worksheet
Dim Zieltab As Worksheet
Dim Zelle As Range
Dim Zaehler As Long
Zaehler = 6
'Bereich = "A4:A10000" 'hab ich mal ausge-xt. Wofür brauchst du die Zeile??
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)
'Hab mal die unnötigen .Select-Befehle gestrichen.
If Not Application.Intersect(Target, Range("A1:A100")) Is Nothing Then
Range("A4:AL10000").Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
Es wäre nett wenn mir jemand helfen könnte und mir sagt, was an dem Code verändert werden muss, dass die Änderung bei dem Einfügen von neuen Namen auch auf den Blättern Feb. März. April etc auch aktualisiert. Am besten auch noch ohne Alt-F8 drücken zu müssen.
Was auch noch ein Problem ist, ist dass sich die Manuell eingetragenen Daten nicht mitsortieren. So kann es sein dass die U, oder die K plötzlich nicht bei Karl stehen sondern bei Kevin, wenn ein Neuer Mitarbeiter mit dem Namen Anton dazu kommt. Die Manuell eingetragenen bleiben in der Zeile stehen wo ich sie eingetragen habe.
Ach ja ich bin absoluter Neuling in dem Bereich, es wäre also nett wenn ihr bei einer Antwort nicht mit Fachbegriffen um euch werft. Wenn mir jemand helfen kann wäre es nett den Kompletten Code hier zu Antworten und die Erklärungen (muss nicht sein) danach.
Wäre wirklich nett wenn ihr mir helft.
Menü
An- und Abmelden
Partner / Links
