Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Drehfeld Programmierung bzw. Datenübertrag
#11
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:


Angehängte Dateien
.xlsm   upload dispo.xlsm (Größe: 229,91 KB / Downloads: 3)
Antworten Top
#12
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • Thomas78
Antworten Top
#13
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
Antworten Top
#14
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


Angehängte Dateien
.xlsm   Mappe1.xlsm (Größe: 235,14 KB / Downloads: 3)
Antworten Top
#15
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.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • Thomas78
Antworten Top
#16
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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste