Drehfeld Programmierung bzw. Datenübertrag

[Thomas78]

Hab gerade gesehen, dass da noch verbundene Zellen drin waren. Die habe ich gelöscht weil die ja immer zusätzliche Probleme verursachen.

Hier die neue Version:

[schauan]

Hallo Thomas,

hier mal nur als kurzes Codeschnipsel ein Ansatz. Ich würde für jeden Tage einen Bereich mit 14 Zeilen vorsehen, egal, ob so viele benötigt werden oder nicht. Daher auch der "Starttag". Du würdest die Daten zuerst übertragen, hier hab ich mal nur die ersten 3 Einträge, und anschließend entsprechend diesem Prinzip die Daten vom nächsten Tag holen. Im Archiv entstehen dann allerdings bei den "freien" Tagen Lücken.

Code:

Private Sub SpinButton1_SpinDown()
Const lFirstDS = 42736 '1. Januar 2017 als Tag 1 für's Archiv
Const iZeilen = 14 '28 Zeilen / 2 Aufträge
Dim lArchRow1&
lArchRow1 = 3 + (Range("j2").Value - lFirstDS) * iZeilen
Cells(lArchRow1, 21) = Cells(2, 10).Value
Cells(lArchRow1, 22) = Cells(4, 10).Value
Cells(lArchRow1, 23) = Cells(5, 10).Value
Dim datE2 As Date
datE2 = Range("E2").Value
Range("D2").Value = Range("D2").Value - 1 + ((Weekday(datE2, vbTuesday) > 5) * (Weekday(datE2, vbSunday)))
End Sub

[Thomas78]

Guten Morgen Andre,

vielen Dank für deine Arbeit.

Ich werde mich die nächsten Tage mal hinsetzen und das Ganze ausprobieren.

Schöne Grüße Thomas

[Thomas78]

Hallo zusammen,

ich kriegs nicht hin [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]...

@schauan: 
Ich habe deinen code ausprobiert, aber er kopiert an völlig falsche Stellen bei mir. Irgendwie stell ich mich glaub ich zu blöd an.



Ich habe mal die Datei nochmal hochgeladen und im Arbeitsblatt "Wunsch" die einzelnen Arbeitsschritte aufgeschrieben.

Einen Teil des Codes habe ich schon, manches wie kopieren finde ich zwar im Internet aber nicht in Verbindung mit der Suche ob das Datum bereits vorhanden ist und welchen Bereich er daher auswählen soll.

Vielleicht erbarmt sich jemand und schaut sich die Datei nochmal an, ich verzweifel schön langsam...

Vielen Dank nochmal an alle für eure Hilfe und Geduld...

Schöne Grüße Thomas

[schauan]

Hallöchen,

ich habe ja geschrieben, dass mein Code für jeden Tag 14 Zeilen vorsieht. Der 1.1. würde also in Zeile 3 beginnen bis Zeile 17, der 2.1. von Zeile 18 bis 32 usw. Februar würde dann also irgendwo unter der Zeile 320 stehen.

14 Zeilen deshalb, weil es für mich so aussieht, als ob jeder Tag im Datenbereich zwei Zeilen hat.

Hiermit übertrage ich Zellinhalte:
Cells(lArchRow1, 21) = Cells(2, 10).Value
Cells(lArchRow1, 22) = Cells(4, 10).Value
Cells(lArchRow1, 23) = Cells(5, 10).Value

Das sind aber jetzt nur Beispielhaft 3 Zellen. Rechts steht immer das Original und links die Zelle, wo es im Archiv hin soll.

Wenn man den ersten Januar nimmt, würde nun J2, also das Datum, nach U3 kommen
J4, also der Eintrag "LKW1", kommt nach V3
J5, der Eintrag "Fahrer 1", kommt nach W3

Hätten wir den 2. Januar, würden die 3 Daten in die Zeile 17 kommen usw.

Du müsstest das für die anderen Daten erweitern.

Da der erste Januar als Feiertag übersprungen wird, gehen "meine" Einträge auch erst in Zeile 17 los.
Von den "Lücken" im Archiv solltest Du Dich erst mal nicht beeindrucken lassen. Wichtig wäre erst mal, dass die Daten "im richtigen Verhältnis" rüber kommen. Später kann man den Code dann korrigieren und die Anzahl Feiertage seit dem 1.1.2017 "herausrechnen". Lücken würde es aber wegen der von mir fest vorgesehenen Tagesgrößen mit den 14 Archivzeilen trotzdem geben, wenn nicht alle "Datenzeilen" eines Tages genutzt werden. Das ist bei mir halt eine andere Herangehensweise. Ich brauche dadurch keine letzte Zeile suchen und auch kein Datum. Steht ja alles an "berechenbaren" Stellen.

[Thomas78]

Hallo Andre,

ich habs gestern nochmal versucht und es funktioniert. Die Daten würdest du wahrscheinlich ausrechnen mit so einer Art Nettoarbeitstage pro Jahr * 14 um die richtige Zeile zu finden?

Ich bin allerdings noch unentschlossen ob ich wirklich so weitermache (die Tabelle muss 100% failsafe sein und meine Kenntnisse um Fehler zu finden ist wie du gemerkt hast sehr begrenzt) oder ob ich es einfacher aufbaue wie in meinem anderen Thread http://www.clever-excel-forum.de/thread-8518.html.

Ich will mich aber auf jeden Fall 1000mal bei dir bedanken! Du hast mir sehr weitergeholfen und ich kapiere jetzt auch zumindest grob wie ich es machen könnte.

Danke, Danke, Danke !

Schöne Grüße Thomas