ich bin neu hier im Excel-Forum und bedanke mich schon mal im Voraus für die Unterstützung, egal ob ihr mir helfen könnt oder nicht. Ich möchte einen Arbeitsprozess beschleunigen bzw. automatisieren um evtl. Zeit sparen zu können. Es geht um die Verknüpfung einer Hauptdatei (Testmappe_Test) mit anderen Dateien (Stundennachweis - Alex & Richard). In der Hauptdatei werden bei Personen (z.B. bei Maik oder Jason) Zeiten hinterlegt, wann diese bei z.B. bei Alex oder bei Richard (Reiter Menschen) gewesen sind. Diese Zeiten müssen am Ende des Monats stets umständlich von allerlei Menschen (je nachdem wer dort war) in andere Dateien (die Stundennachweise) eingetragen werden. Das kostet viel Zeit und Nerven. Nun meine Frage. Gibt es eine Möglichkeit, und wenn ja wie, dass Excel anhand des Namens der Personen (z.B. Maik oder Jason) erkennt, in welchen Stundennachweis die Zeiten eingetragen werden müssen und diese Zeiten (samt Datum) dann auch noch in die korrekten Zellen eingetragen werden? Das sind ziemlich viele Parameter die da zusammen spielen. Ich habe mich rudimentär damit auseinandergesetzt und bin über den XVERWEIS gestolpert, doch ich glaube, dass hier zu viele Parameter für den XVERWEIS zusammenspielen. Daher wende ich mich hier an euch, weil ich glaube bzw. hoffe hier Rat zu finden. Damit ihr nachvollziehen könnt was ich genau meine, habe ich euch die Dateien angehangen. Für detailiertere Informationen (ich habe mit Sicherheit paar Infos vergessen) einfach fragen. Ich versuche euch alles genau zu beschreiben. Vielen Dank schon mal.
(29.01.2024, 11:55)Dschissl schrieb: ...Diese Zeiten müssen am Ende des Monats stets umständlich von allerlei Menschen (je nachdem wer dort war) in andere Dateien (die Stundennachweise) eingetragen werden. ...
Da ich gleich weg muss, hab ich jetzt nicht die Zeit, mir das anzusehen, würde aber sagen, der umgekehrte Weg führt zum Erfolg. Die "anderen" Dateien holen sich die entsprechenden Daten aus den Alex und Richard-Dateien. Relativ einfach und auch auch mit beliebig vielen Parametern ginge das mit Power Query (Menü Daten....)
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben. Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.
...die Struktur der Tabelle1 in der Testmappe ist suboptimal. Besser wäre sowas:
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben. Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.
28.03.2024, 11:51 (Dieser Beitrag wurde zuletzt bearbeitet: 28.03.2024, 11:51 von Dschissl.)
(29.01.2024, 13:20)Ralf A schrieb: Da ich gleich weg muss, hab ich jetzt nicht die Zeit, mir das anzusehen, würde aber sagen, der umgekehrte Weg führt zum Erfolg. Die "anderen" Dateien holen sich die entsprechenden Daten aus den Alex und Richard-Dateien. Relativ einfach und auch auch mit beliebig vielen Parametern ginge das mit Power Query (Menü Daten....)
Hallo Ralf,
vielen Dank für deine rasche Antwort. Ich war eine lange Zeit ausgeknocked und hatte dabei vergessen zu antworten. Tut mir Leid. Es handelt sich bei der Testmappe_Test um eine Einsatzliste für Mitarbeiter. Es ist daher nicht gewünscht, dass sich diese Liste die Zeiten aus den anderen Listen (z.B. Stundennachweis Alex und Richard) holt. Alle Mitarbeiter tragen ihre Zeiten, in denen sie bei den Klienten waren, in die Testmappe_Test ein. Und danach eben noch umständlicherweise in die Alex- und Richard-Listen, welche als Abrechnungsdateien genutzt werden. Da nun aber oft unterschiedliche Mitarbeiter bei den Klienten sind, rennt der Verantwortliche für die Abrechnung am Ende eines jeden Monats den Leuten hinterher, welche ihre Zeiten nicht in die entsprechende Abrechnung eingetragen haben. Das ist nervig, zeitaufwändig und ineffizient. Daher suche ich in Excel nach einem Weg, ob und wie es möglich ist, automatisiert, sowohl die Zeiten als auch den entsprechenden Mitarbeiter aus der Testmappe_Test in die Abrechnungen (z.B. Stundennachweis Alex und Richard) übernehmen zu lassen. Und weil mir das mit meinem erweitertem Basis-Excelwissen dann aber doch zu komplex ist, hoffe ich hier einen Weg zu finden, ob und wie das genau möglich ist.
Nachtrag: Ich glaube das bzw. ein Problem, welches sich hier ergibt, wird sein, dass eine Anforderung darin besteht, dass die Sundennachweis-Dateien von Alex und Richard den exakten Bereich in der Testmappe_Test finden müssen, um die Infos (Zeiten, Mitarbeiternamen) überhaupt übertragen zu können, denn es kann durchaus passieren, dass die Infos für den entsprechenden Tag immer an einer anderen Stelle in der Testmappe_Test stehen, je nachdem wer eben gerade an dem Tag bei Alex oder Richard gewesen ist. Für mich ist es gerade nur schwer vorstellbar, wie Excel wissen soll, dass es (um am Bsp. der Testmappe_Test zu bleiben) für den 29.10.19 die Zeiten aus den Zellen C18 + D18 und den Namen aus Zelle A18 in die entsprechenden Zellen B6 + C6 (Zeiten) und in die Zelle H6 (Mitarbeitername) der Datei Stundennachweis - Richard eintragen soll.
Zitat:Für mich ist es gerade nur schwer vorstellbar, wie Excel wissen soll ???
Excel weiss das ganz sicher nicht, aber ein Programmierer könnte die Aufgabe verstehen, und Excel es mit dem passenden Makro Code erklären. Den versteht Excel dein Anliegen in Windeseile.
Mal schauen wie gut ich die Aufgabe verstanden habe. Und Excel mit einem "Zauberspruch" dazu bewegen konnte das richtige zu tun? Würde mich freuen wenn es klappt. Wir werden sehen ob "Alladins Wunderlampe" aus Izmir wirkte??
Die Daten konnte ich kopieren, aber was ist mit dem Text "Angabe der Inhaltlichen Arbeit"? Den konnte ich nirgends finden.
vielen Dank für deine rasche Hilfe. Ich bin kein Programmierer und kenne mich daher nicht so gut bzw. gar nicht mit Visual Basic aus. Ich habe deine Mappe mal getestet. Das sieht schon sehr gut aus, die Daten werden alle übertragen und in die korrekten Zellen kopiert, ich danke dir. Es wäre aber toll, wenn die Daten der Personen, welche bei "Richard" gewesen sind, auch nur in den Stundennachweis - Richard kopiert würden und andersherum bei "Alex" genauso nur in den Stundennachweis - Alex. Des Weiteren wäre es super wenn die Sortierung nicht nach Namen, sondern nach Datum erfolgen könnte. Vielen Dank schon mal im Voraus.
20.04.2024, 15:14 (Dieser Beitrag wurde zuletzt bearbeitet: 20.04.2024, 15:14 von Ralf A.)
(28.03.2024, 11:51)Dschissl schrieb: Es handelt sich bei der Testmappe_Test um eine Einsatzliste für Mitarbeiter. ... Alle Mitarbeiter tragen ihre Zeiten, in denen sie bei den Klienten waren, in die Testmappe_Test ein.
Und danach eben noch umständlicherweise in die Alex- und Richard-Listen, welche als Abrechnungsdateien genutzt werden.
Die MA dürfen ja weiterhin ihre Daten in die Testmappe eintragen, aber dennoch ist die Gesamtstruktur komplett unpraktisch.
(28.03.2024, 11:51)Dschissl schrieb: Nachtrag: Ich glaube das bzw. ein Problem, welches sich hier ergibt, wird sein, dass eine Anforderung darin besteht, dass die Sundennachweis-Dateien von Alex und Richard den exakten Bereich in der Testmappe_Test finden müssen, um die Infos (Zeiten, Mitarbeiternamen) überhaupt übertragen zu können, denn es kann durchaus passieren, dass die Infos für den entsprechenden Tag immer an einer anderen Stelle in der Testmappe_Test stehen, je nachdem wer eben gerade an dem Tag bei Alex oder Richard gewesen ist. Für mich ist es gerade nur schwer vorstellbar, wie Excel wissen soll, dass es (um am Bsp. der Testmappe_Test zu bleiben) für den 29.10.19 die Zeiten aus den Zellen C18 + D18 und den Namen aus Zelle A18 in die entsprechenden Zellen B6 + C6 (Zeiten) und in die Zelle H6 (Mitarbeitername) der Datei Stundennachweis - Richard eintragen soll.
Das ist, bei ordentlicher Strukturierung absolut kein Problem. Im Anhang mal ein Beispiel, wie man es ohne großen Aufwand und ohne VBA schnell machen könnte.
Sieh Dir mal das Blatt Vorschlag an und spiel mal ein wenig damit rum....
Hab da zwar alles auf ein Blatt geschmissen, soll ja auch nur das Prinzip veranschaulicht werden.
Und bestimmte Daten rauszufiltern ist auch kein Problem... da geht schon ordentlich was...
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben. Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.
ich sehe es gibt einen Lösungsvorschlag des Kollegen Ralf A. Wenn der besser ist, dann bitte übernehmen.
Einen Fehler im Makro habe ich korrigiert, das sortieren war bei verbundenen Zellen aber problematisch!
Hier nur der geänderte Code, ohne Beispieldatei.
mfg Gast 123
Code:
Option Explicit 'überarbeitet 20.4.24 Gast 123 für Clever Forum
Dim AC As Range, lz1 As Long
Const MyPfad = "H:\Forum Clever Jan 2024\Anfrage Offen\"
Const Alex = "Stundennachweis - Alex.xls"
Const Rich = "Stundennachweis - Richard.xls"
Sub Stundenabrechnung_übertragen()
Dim Klient As String, j, z As Long
Dim WbEx As Workbook, lsp As Integer
Dim ShtX As Worksheet, s As Integer
'Application.ScreenUpdating = False
Workbooks.Open Filename:=MyPfad & Alex
Set WbEx = ActiveWorkbook
Set ShtX = WbEx.Sheets(1)
Klient = "Alex": GoSub Liste
Workbooks.Open Filename:=MyPfad & Rich
Set WbEx = ActiveWorkbook
Set ShtX = WbEx.Sheets(1)
Klient = "Richard": GoSub Liste
MsgBox "Stundennachweise kopiert", vbInformation
Exit Sub
Liste: ThisWorkbook.Activate
With ThisWorkbook.Worksheets("Tabelle1")
z = 6 ' 1.Zeile in Stundenabrechnung
lz1 = Cells(Rows.Count, 1).End(xlUp).Row
lsp = Cells(1, Columns.Count).End(xlToLeft).Column
'Alle Namen (Fett) in Testmappe auswerten
For Each AC In .Range("A2:A" & lz1)
If AC.Font.Bold = True And AC.Value <> "" Then
'Alle Spalten mit Klientnamen übertragen
For s = 2 To lsp Step 4
If .Cells(AC.Row, s) = Klient Then
ShtX.Cells(z, 8) = AC.Value
ShtX.Cells(z, 1) = .Cells(1, s)
ShtX.Cells(z, 2) = .Cells(AC.Row, s + 1)
ShtX.Cells(z, 3) = .Cells(AC.Row, s + 2)
z = z + 1
End If
Next s
End If
Next AC: z = z - 1
'** Verbundene Zellen können NICHT sortiert werden!
'Verbundene Zellen zum sortieren aufheben
ShtX.Range("E6:G" & z).MergeCells = False
'Nach Datum und Uhrzeit sortieren
ShtX.Range("A6:I" & z).Sort Key1:=ShtX.Range("A6"), Order1:=xlAscending, _
Key2:=ShtX.Range("B6"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
'Verbundene Zellen wiederherstellen
For j = 6 To z
ShtX.Cells(j, 5).Resize(1, 3).MergeCells = True
Next j
WbEx.Save 'Stundennachweis Save
'WbEx.Close False
Return
End With
End Sub
