ich habe eine Tabellenblatt eingefügt, da steht wo welche Zelle aus dem jeweiligen Blatt in mein All Time hin soll. Leider läßt sich das nicht so lösen,dass beide Tabellen nach gleichem Muster aufgebaut sind..
ich bitte um Verstaendnis das ich bei deinen Tabellen mit soviel Spalten nicht auf Anhişeb erkenne welche Daten wohin sollen. Wenn du mir aber ein Lösungs Beispiel von Hand machtst, wo ich sehen kann welche Zelle in welche Spalte in der "All time" Tabelle kommen soll können wir das gemeinsam programmieren. Kein Thema.
Nehmen wir an, nur als Beispie, Reparatur Zelle C3 soll in "All time" in Spalte K, Zelle D3 in Spalte O! Das kann man 1:1 programmieren, anstatt den ganzen Block. Ich habe im Augenblick nur keinen Durchblick welche Daten genau wohin müssen?? Du kennst deine Tabellen ja besser wie ich ....
im Anhang, unter Tabellenblatt Tabelle 1, habe ich aufgeschriebn wie es evtl. mal sein sollte..
Hier habe ich mal meinen bisherigen Teil des Makros angeführt, damit kopiere ich meine Wartungsliste in mein All time.
Daran anschließend soll ja nun die Reparaturliste, dann sortieren.. in der Art und Weise würde ich wahrscheinlich auch die Reparaturliste kopieren..
'Überschreibe Wartungsliste nach aktualisieren nach All time in Dim a As Long, i As Long Application.ScreenUpdating = False a = 8 For i = 6 To 300 With Worksheets("Wartungsliste")
'Vergleich / selektieren nach Datum If .Cells(i, "g") = Worksheets("All time In").Range("G1") Then
'Ziel All time in = kommt aus Liste Wartungsarbeiten Worksheets("All time In").Cells(a, 3).Value = Worksheets("Wartungsliste").Cells(i, 1).Value Worksheets("All time In").Cells(a, 4).Value = Worksheets("Wartungsliste").Cells(i, 2).Value Worksheets("All time In").Cells(a, 5).Value = Worksheets("Wartungsliste").Cells(i, 3).Value Worksheets("All time In").Cells(a, 6).Value = Worksheets("Wartungsliste").Cells(i, 4).Value Worksheets("All time In").Cells(a, 36).Value = Worksheets("Wartungsliste").Cells(i, 8).Value Worksheets("All time In").Cells(a, 37).Value = Worksheets("Wartungsliste").Cells(i, 9).Value Worksheets("All time In").Cells(a, 38).Value = Worksheets("Wartungsliste").Cells(i, 10).Value Worksheets("All time In").Cells(a, 41).Value = Worksheets("Wartungsliste").Cells(i, 11).Value Worksheets("All time In").Cells(a, 57).Value = Worksheets("Wartungsliste").Cells(i, 14).Value Worksheets("All time In").Cells(a, 39).Value = Worksheets("Wartungsliste").Cells(i, 12).Value Worksheets("All time In").Cells(a, 40).Value = Worksheets("Wartungsliste").Cells(i, 13).Value Worksheets("All time In").Cells(a, 9).Value = Worksheets("Wartungsliste").Cells(i, 15).Value Worksheets("All time In").Cells(a, 10).Value = Worksheets("Wartungsliste").Cells(i, 16).Value a = a + 1 Else End If End With Next i Application.ScreenUpdating = True
anbei deine Beispieldatei mit kompletter Makro Lösung zurück. Ich hoffe das es jetzt so richtig klappt. Im Modul Sortieren muss evtl. noch die Spalte angepasst werden, nach der dıe Daten sortiert werden sollen. Die Adresse steht in Const SAdr1 = "C8", und muss, wenn gewünscht, auf eine andere Spalte eingestellt werden Ebenso kann man von Klein nach Gross oder von Gross nach klein sortieren. Das must du bitte selbst anpassen.
läßt sich das kopieren und sortieren auch in einem Makro darstellen, als mit einem command Button ? Mein Problem sind die explict Befehle, weiss damit nix anzufangen.
