Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: BlinkyBill am November 16, 2018, 18:11:11 Nachmittag
-
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.
-
Crossposting (http://www.excel-ist-sexy.de/forenhilfe/crossposting/) ohne gegenseitige Verweise ist einfach nur egoistisch und Mist!
11. Gebot: Du sollst kein Crossposting ohne gegenseitigen Verweis betreiben.
Und die ersten 23 Antworten in dieser Sache findet ihr Helfer-Kollegen hier (http://www.office-loesung.de/p/viewtopic.php?f=166&t=785260&start=15).
-
Crossposting ([url]http://www.excel-ist-sexy.de/forenhilfe/crossposting/[/url]) ohne gegenseitige Verweise ist einfach nur egoistisch und Mist!
11. Gebot: Du sollst kein Crossposting ohne gegenseitigen Verweis betreiben.
Und die ersten 23 Antworten in dieser Sache findet ihr Helfer-Kollegen hier ([url]http://www.office-loesung.de/p/viewtopic.php?f=166&t=785260&start=15[/url]).
Leider wurde mir auf der Seite noch nicht geholfe. Was ist daran schlimm es in mehren Foren zu versuchen? Ist das Verboten?
-
Verbot(e) gibt es hier nicht, zumindest in dieser Sache.
Aber lies erst einmal die Links, dann weißt du, warum dir jetzt noch weniger geholfen wird.
-
Verbot(e) gibt es hier nicht, zumindest in dieser Sache.
Aber lies erst einmal die Links, dann weißt du, warum dir jetzt noch weniger geholfen wird.
Ich weiß wo der Link hinführt. Ich habe genau diese Frage in einem Anderen Forum gestellt. Nur leider wurde mir dort noch nicht wirklich geholfen. Und auch die Seite wenn ich auf 'Crossposting' klicke hilft mir nicht.
Daher habe ich mich noch in einem anderen Forum angemeldet.
-
Ignore++ :-[ :-X
-
Ignore++ :-[ :-X
Dann ignorier es jetzt aber auch wirklich und gibt nicht deinen Senf dazu. Wenn du mir nicht helfen kannst/willst dann lass es-
-
Hallo,
BlinkyBill: Du hast jetzt in diversen Foren verschiedenste Vorschläge erhalten. Und Hinweise zu den Crossposts
und entsprechende Empfehlungen erhalten. Rumgepupe als Reaktion (z.B. hier und bei Office-Hilfe) ist nicht
angemessen. Deshalb mache ich den Beitrag jetzt hier einfach dicht.
Gruß