Formel suche :-(

[Jürschen175]

Hallo Jürschen,

wenn Du die Daten überall mit SVERWEIS aus dem Blatt Einfügen holst - wie bei Dir in KW34 und KW35, bräuchte man an dem betreffenden Tag nur die Formel durch die Werte zu ersetzen.
Allerdings wäre ein Makro zum Übertragen die elegantere Lösung.

Bei der Variante mit den Formeln könnte man die Stundenänderung so berechnen. Sobald Du eine Formel durch ihren Wert ersetzt, erscheint das Ergebnis in der entsprechenden Spalte rechts neben der Tabelle und die Stndenänderung wird damit neu berechnet.

Arbeitsblatt mit dem Namen 'KW34'

B

C

D

E

F

G

H

I

J

K

L

M

N

3

Name1

Stapler

101,36

100,36

99,60

99,60

99,60

-1

100,36

Zelle	Format	Wert
G3	0,00	99,6
H3	0,00	99,6
I3	0,00	99,6

Name	Bezug
Formel	=ZELLE.ZUORDNEN(6;'KW34'!XFA3)

Zelle	Formel
B3	=WENN(Mitarbeiter!B2>0;Mitarbeiter!B2;"")
C3	=WENN(Mitarbeiter!C2>0;Mitarbeiter!C2;"")
D3	=WENN(Mitarbeiter!D2>0;Mitarbeiter!D2;"")
G3	=SVERWEIS(A3;Einfügen!$B:$D;3;FALSCH)
H3	=SVERWEIS(A3;Einfügen!$B:$D;3;FALSCH)
I3	=SVERWEIS(A3;Einfügen!$B:$D;3;FALSCH)
J3	=-E3+SUMME(K3:N3)
K3	=WENNFEHLER(Formel*1;"")
L3	=WENNFEHLER(Formel*1;"")
M3	=WENNFEHLER(Formel*1;"")
N3	=WENNFEHLER(Formel*1;"")

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

Hallo,
Danke für deine schnelle Antwort.
Die Daten die täglich bekomme schaut genauso aus wie in meiner beispiel Datei beim Tabellenblatt  Einfügen.
 Ich bräuchte irgendwie  einem Sverweis  die das Datum mit berücksichtigt. 
Ich Möchte gerne das überall die Formel schon richtig drin ist. 

[schauan]

Hallöchen,

wenn Du jeden Tag neue Daten bekommst, dann steht in Deinem Blatt Eingaben jeden Tag ein anderes Datum und die Daten der anderen Tage sind weg. Entsprechend hättest Du auf einem KW-Blatt mit der Formel mit einem SVERWEIS, wenn Du dort das Datum berücksichtigst, immer nur die Daten des einen Tages. Du musst also vor einer neuen Eingabe die Formel durch die Werte ersetzen - oder eben gleich ohne Formel arbeiten und die Daten, wie in Deinem ersten Beitrag angefragt, per Makro übertragen.

[Jürschen175]

Hallo Schauen, 
Ja des würde ich dann so machen, das ich einfach dann auf die Spalte gehe z.b. KW 35 Spalte Datum  und die kopiere und einfach über nur Werte einfüge. Somit wäre die Formel weg.
Hauptsache er legt die Daten erstmal in den richtige Mappe ab. Deswegen die Frage Sverweis mit Datum oder so.

[Rabe]

Hi Jürgen,

Ja des würde ich dann so machen, das ich einfach dann auf die Spalte gehe z.b. KW 35 Spalte Datum  und die kopiere und einfach über nur Werte einfüge. Somit wäre die Formel weg.
Hauptsache er legt die Daten erstmal in den richtige Mappe ab. Deswegen die Frage Sverweis mit Datum oder so.

also mir wäre das zu viel und vor allem unnötige Arbeit, das sind jeden Tag mindestens 5 unnötige Klicks und vergeudete Lebenszeit (fast hätte ich geschrieben, diese Vorgehensweise ist "Mist", will Dich aber nicht vor den Kopf stoßen.)
Da würde ich das doch lieber gleich richtig machen, also ein Mal etwas mehr Arbeit und mit Hilfe aus dem Forum ein Makro erzeugen, daß mir dann bei jedem Makro-Start automatisch die aktuellen Daten in die richtige Spalte auf das richtige KW-Blatt kopiert.
Anstatt jeden Tag auf das Blatt zu gehen und manuell die Formeln mit den Werten zu überschreiben.

Bei der Programmerstellung kann noch etwas gelernt werden, was später bestimmt wieder in anderem Zusammenhaang angewendet werden kann.

[Jürschen175]

Hallo Ralf, 
Du hast natürlich  Recht.
Leider habe ich zzuwenig vba Erfahrung um dieses Projekt zu machen

[schauan]

Hallöchen,
Sag ich doch - siehe meine erste Antwort (#10). Kann mich aber wahrscheinlich erst morgen Abend drum kümmern.
Das Datum auf dem Blatt Eingabe kommt 100% immer in dieser Form?

[Jürschen175]

Hallöchen,
Sag ich doch - siehe meine erste Antwort (#10). Kann mich aber wahrscheinlich erst morgen Abend drum kümmern.
Das Datum auf dem Blatt Eingabe kommt 100% immer in dieser Form?

Hallo Schauan, 
Das wäre echt klasse von dir.
Ja das Format ist immer gleich.
Danke im voraus

[Jürschen175]

Hallo Schauan,
Ich hoffe du vergisst mich nicht

[schauan]

Hallöchen

hier erst mal der erste Ansatz zum Übertragen der Daten vom Blatt Einfügen auf ein KW-Blatt. Übertragen werden nur die Stunden, die Namen müssen auf dem Ziel schon vorhanden sein - siehe Kommentare im code. Wo der hinkommt, weist Du? Bin für weitere Fragen heute Abend wieder online.

Code:

Sub zuordnen()
'Variablendeklaration
'Integer
Dim iRow%, iWo%, iDay%
'String
Dim strWo
'Startzeile zuweisen
iRow = 2
'Kalenderwoche ermittteln
'Hinweise:
'Daten vom 31.12. müssen auch am 31.12. verarbeitet werden.
'Am 01.Januar uerde das Jahr nicht mehr stimmen und entsprechend die KW
iWo = DIN_KW(CDate(Right(Cells(iRow, 1), 6) & Year(Date)))
'Wochentag ermitteln
iDay = Weekday(CDate(Right(Cells(iRow, 1), 6) & Year(Date)), vbMonday)
'Kalenderwoche mit KW ergaenzen
strWo = "KW" & iWo
'Schleife bis zur ersten leere Zelle
Do While Cells(iRow, 1) <> ""
  'Mit dem KW-Blatt
  With Sheets(strWo)
    'Daten uebertragen
    'Hinweise:
    'Reihenfolge und Anzahl der Namen wie auf Blatt Einfuegen
    .Cells(iRow + 1, iDay + 3) = Cells(iRow, 4)
  'Ende Mit dem KW-Blatt
  End With
  'Zeilenzaehler hochsetzen
  iRow = iRow + 1
'EndeSchleife bis zur ersten leere Zelle
Loop
'Fertigmeldung
MsgBox "Fertig!"
End Sub

Der code funktioniert in Deinem Beispiel. Es gibt ein paar Voraussetzungen - siehe Kommentare im code sowie die, dass das Zielblatt auch vorhanden sein muss.