Zellen aus Excel-Datei(en) auslesen und in neue Da

Guten Tag miteinander,
Da ich leider nicht viel Ahnung von Excel habe und gesehen habe das hier im Forum einige Profis unterwegs sind dachte ich ich frage hier mal nach.
Ich habe folgendes Problem, mir wird über ein CAM System bei jedem Bauteil den ich damit programmiere eine dazu gehörige Excel-Datei automatisch geschrieben. In dieser Datei befindet sich von oben nach unten die ganze Auflistung von Operationen mit der entsprechenden Laufzeit der Operation in der Spalte N. Jetzt ist im unteren Bereich eine orangefarbene Tabelle zu sehen bei der in der Spalte A die Nummer des Werkzeuges steht und die dazugehörige Gesamt Laufzeit in Spalte MN (=Summe aller Operationslaufzeiten aus Spalte N von oben die dieselbe Werkzeugnummer haben).
Das Problem ist wenn ich mehrere Bauteile abarbeiten will die aber Teilweise dieselben Werkzeuge beinhalten muss ich jetzt jedes Blatt in die Hand nehmen und mir diese zusammen rechnen damit ich auf eine gesamte Laufzeit des entsprechenden Werkzeuges komme. Ist wenn 50 verschiedene Bauteile mit teilweise gleichen Werkzeugen bearbeitet werden relativ aufwendig, abgesehen davon wie schnell Fehler passieren.
Ich hätte dazu gerne in meiner vorgefertigten Tabelle (Standzeiten.xlsx) eine Funktion in der ich in Spalte A durch einen Klick auf die Zelle mehrere Excel Dateien (je Zelle eine) aus meinem Laufwerk auswählen kann wie hier z.B: (Bauteil1 in A8 und Bauteil2 in A9 ), anschließend möchte ich die Stückzahl des entsprechenden Bauteils in Spalte B definieren (dh. Laufzeiten des Bauteils multiplizieren), und mit einem Klick auf GO!(Zelle C7) eine Datei erstellen lassen die mir die Gesamtzeiten der Werkzeuge die in den Dateien Identisch sind erstellen lassen. Ideal wäre natürlich wenn diese genau gleich aussehen würde wie in meiner Excel Datei unten die orangefarbene Tabelle, nur das eben die Werkzeugzeiten gleicher Werkzeuge(von allen Aufträgen und mehreren Stückzahlen) zusammengerechnet sind und nicht nur die Gesamtzeit des Werkzeuges für ein Bauteil da steht. Somit muss ich dann nicht mehr mit dem Taschenrechner Bauteilweise herumrechnen, drücke mir einen Zettel aus und habe den Überblick über alles.
Wie gesagt da ich leider viel zu wenig Ahnung von Excel habe, weiß ich gar nicht ob das überhaupt möglich ist. Ich wäre allerdings um eure Hilfe oder auch um die Info ob es überhaupt geht sehr dankbar, vieleicht hat ja irgendjemand schon mal was ähnliches gemacht, ich wäre offen für alles 
Im Anhang befindet sich die Tabelle(Standzeitentabelle.xlsx) in der ich gerne das Bauteil mit Stückzahl auswählen möchte um anschließend mit einem Klick auf GO! die gesamt Laufzeit-Datei erstellen möchte. Die anderen beiden (Bauteil1.xlsx, Bauteil2.xlsx) sind die Dateien die darin ausgewählt werden, sprich die Dateien aus der die Laufzeit rausgezogen und zusammengerechnet werden sollten.
Ich danke euch jetzt schon mal für eure Hilfe und hoffe das ich alles relativ verständlich geschrieben habe ansonsten einfach Bescheid geben.
https://www.herber.de/bbs/user/109402.zip
schönes Wochenende miteinander!
Gruß Tim

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Bastian,
Also es ist folgendermaßen:
Ich habe in meiner Excel Tabelle (Muster_Standzeittabelle.xlsm) das Arbeitsblatt Standzeit in dem ich die Funktionen die du mir geschrieben hast verwende. (Klick auf GO! erstellt mir das NC-Documentation Multi Blatt). Jetzt sollen mir nach dem klick auf GO!:
1.) im Hintergrund die Zeit der Werkzeuge (sagen wir 5001 und 5051) mit den Zeiten zusammen gerechnet werden. (so wie es jetzt ja auch passiert)
2.) Liegt im selben Ordner wie die Muster_Standzeittabelle.xlsm eine Tabelle mit dem Namen Tool.xlsx.
In dieser stehen in der Spalte B die Nummern von Werkzeugen die bereits in der Maschine hängen. Es ist möglich das ein Werkzeug mit selber Nummer mehrere male vorhanden ist. In unserem Beispiel ist das Werkzeug mit der Nummer 5000 nur einmal vorhanden da es den Eintrag 5000 in der Spalte B nur einmal gibt. Das Werkzeug mit der Nummer 5051 ist dreimal vorhanden, einfach mal mit strg+F danach suchen dann fällt schnell auf das es dieses Werkzeug in Spalte K, 3mal gib. Ist in der Spalte K ein Werkzeug mit dem Namen 5051A so ist das nicht das selbe wie 5051.
So jetzt sollen alle Zeiten die in Spalte J stehen von selben Werkzeugen zusammengerechnet werden.
In unserem fall: Werkzeug Nr. 5000 = 100
(Werkzeug Nr. 5051 = 200) + (Werkzeug Nr. 5051 = 200) + (Werkzeug Nr. 5051 = 200)
Somit ist die Gesamtzeit für 5051 = 600 Minuten
Das bedeutet das 5000 schon 100 Minuten im Einsatz war und 5051 gesamt 600 Minuten.
Userbild

Ich habe jetzt in meiner Haupt-Excel Datei (Muster_Standzeittabelle) ein Blatt(Standzeit max.), in diesem Blatt wird angegeben wie lange die entsprechenden Werkzeuge im Einsatz sein dürfen. Spalte A = Werkzeugname - 5001;5051. Spalte C = max. Time. Bei Werkzeug Nr 5000 sind das 1000 Minuten und bei Werkzeug Nr 5051 - 250 Minuten, da Werkzeug 5051 in der Tool.xlsx aber dreimal vorhanden ist sind das im Gesamten somit 750 Minuten. Diese Werte sollen jetzt mit dem entsprechenden Wert die aus der Tool.xlsx aus Spalte J kommen subtrahiert werden. Also Wert von Werkzeug Nr. 5000 aus Arbeitsblatt Standzeit max. (1000Minuten) mit dem Wett aus Tool.xlsx in Spalte J (100Minuten) ergibt 900 Minuten was das Werkzeug noch im Einsatz sein darf.
Userbild

Das gleiche mit Werkzeug Nummer 5051, Wert der in Blatt Standzeiten max. in Spalte C steht multipliziert mit vorhandenen Werkzeugen aus Tool.xlsx (3Stk)=750 Minuten. Subtrahiert mit dem Wert aus der Spalte J (600 Minuten) aus der Tool.xlsx = 150Minuten. Die Werkzeuge in der Maschine dürfen somit zusammen noch 150 Minuten eingesetz werden.
Userbild

3.) Die Werte die aus dieser Rechnung rauskommen (5000=900 Minuten/5051=150Minuten) sollen von den Werten die in der Tabelle die durch den Klick auf GO! erstellt werden abgezogen werden. In meinem Beispiel steht in der erstellten Tabelle (durch Klick auf GO!) bei Werkzeug 5000 (18:00:00) bzw. 1080 Minuten, Bei Werkzeug Nr. 5051 steht 02:40:00 bzw. 160 Minuten.
Jetzt sollen (nur im Hintergrund) die gerechneten Werte mit den Werten aus der NC-Documentation-Multi subtrahiert werden:
Somit ergibt der berrechnete Wert von Werkzeug Nr.5000(900) Minuten subtrahiert dem aus der NC-Multi Dokumentation(1080Minuten, 900-1080=-180. Das ist der Wert den ich mit dem Werkzeug in der Maschine nicht mehr abdecken kann. Somit muss ich zusätlich noch eins mit der Nummer 5000 in die Maschine geben.
Das selbe soll mit dem Werkzeug Nr. 5051. berechneter Wert (150Minuten) subtrahiert mit 5051 aus NC-Dokumentation Multi (160Minuten),150-160=-10 Minuten.
Das bedeutet das ich auch hier zusätlich nochmal ein Werkzeug in die Maschine laden muss um den erstellten NC-Documentation-Multi Auftrag abarbeiten zu können.
Dazu sollte in der erstellten NC-Documentation ein Eintrag in der Spalte L bei beiden Werkzeugen stehen 5001 = 1; 5051 = 1. Soll bedeuten das man jeweils ein Werkzeug zusätzlich in die Maschine laden muss. In der Spalte L soll aber nach wie vor die Gesamte Einsatzzeit stehen ohne irgendwas abgezogenes.
Userbild

Sollte der Wert der aus dieser Rechnung rauskommt größer sein wie jener der in Arbeitsblatt Standzeiten max. in Spalte C steht somit müsst nachher in der NC-Dokumentation Multi eine 2 stehen.
Oder eine 3 oder eine 4 oder wie auch immer, um zu signalisieren das noch 3 Werkzeuge in die Maschine geladen werden müssen. Also würde beim letzten Schritt für die Werkzeugnummer 5051 300 Minuten rauskommen so müsste in der Nc-Dokumentation-Multi eine 2 stehen da im Arbeitsblatt Standzeiten max. ja bei Werkzeug 5051 maximal 250 Minuten definiert sind.
Beispiel:
Userbild

Im Anhang ist ein Ordner in dem die Beispieldateien alle drin sind.
Ich hoffe ich habe alles halbwegs verständlich beschrieben ansonsten einfach mal schreien :D
Ich danke dir vielmals für das das du dir deine Zeit einfach so für mich nimmst echt unglaublich!!!
Achja, darf ich dich vieleicht fragen woher du kommst? Ich würde mich gerne für das das du dir schon so Zeit genommen hast etwas revanchieren falls ich das darf. :)
https://www.herber.de/bbs/user/109565.zip
Danke dir nochmal für deine Zeit ich wünsch dir einen schönen Abend und bis dann
beste Grüße Tim

Sub testen() On Error Resume Next Dim i As Range Dim r As Long Dim z As Long Dim c As Range Dim cc As Range Dim x As Long Dim WBtool As Workbook Dim zähler As Long Dim Rechnung As Long Dim zeit Dim firstAddress As String Dim rng Dim zell As Range Dim last As Long Dim WBWStool As Worksheet Dim WSinput As Worksheet Dim WSoutput As Workbook Dim WsStandzeitmax As Worksheet Dim WsStandzeit As Worksheet Set WsStandzeit = ThisWorkbook.Worksheets("Standzeit") Set WsStandzeitmax = ThisWorkbook.Worksheets("Standzeit max.") x = 8 With WsStandzeit last = .Cells(.Rows.Count, 2).End(xlUp).Row End With With ThisWorkbook.Worksheets("Muster") .Visible = True .Copy After:=Sheets(Sheets.Count) .Visible = False End With Set WSinput = ActiveSheet WSinput.Name = Format(Now, "DD.MM.YYYY_HH.MM.SS") For Each i In WsStandzeit.Range("B8:B" & last) Workbooks.Open (ThisWorkbook.Path & "\" & i.Offset(0, -1)) Set WSoutput = ActiveWorkbook With WSoutput.Worksheets(1).Columns(1) Set c = .Find("Magazine number", LookIn:=xlValues) c.Offset(-1, 0).ClearContents rng = .Range(c.Offset(1, 0).Address & ":" & c.Offset(0, 12).End(xlDown).Address).Value End With With WSinput WSoutput.Close False For r = LBound(rng, 1) To UBound(rng, 1) Set c = .Columns(1).Find(rng(r, 1), LookIn:=xlValues) If Not c Is Nothing Then .Cells(c.Row, UBound(rng, 2)) = .Cells(c.Row, UBound(rng, 2)) + Zeitadd(rng(r, UBound(rng, 2))) _ * i zeit = zeit + Zeitadd(rng(r, UBound(rng, 2))) * i Else For z = LBound(rng, 2) To UBound(rng, 2) If z = UBound(rng, 2) Then .Cells(x, z) = .Cells(x, z) + Zeitadd(rng(r, z)) * i zeit = zeit + Zeitadd(rng(r, z)) * i Else .Cells(x, z) = rng(r, z) End If Next .Range(.Cells(x, 1), .Cells(x, 14)).Copy .Range(.Cells(x + 1, 1), .Cells(x + 1, 14)) .Rows(x + 1).ClearContents .Rows(x + 2).Insert Shift:=xlDown x = x + 1 End If Next End With Next With WSinput Set c = .Columns(1).Find("Statistic", LookIn:=xlValues) c.Offset(1, 2) = TimeString(CLng(zeit)) For Each zell In .Range(.Cells(8, UBound(rng, 2)), .Cells(x - 1, UBound(rng, 2))) zell = zell.Value Next ' ab hier werden die neuen berechnungen gemacht Workbooks.Add (ThisWorkbook.Path & "\Tool.xlsx") Set WBtool = ActiveWorkbook Set WBWStool = WBtool.Worksheets("Tool") For Each zell In .Range("A8:A" & x - 1) With WBWStool.Columns(2) Set cc = .Find(zell.Value, LookIn:=xlValues, LookAt:=xlWhole) If Not cc Is Nothing Then firstAddress = cc.Address Do Rechnung = Rechnung + cc.Offset(0, 8).Value ' hier wird in Tools die daten in spalte _ J zusammen gerechnet zähler = zähler + 1 ' Hier die anzahl an WZ Set cc = .FindNext(cc) Loop While Not cc Is Nothing And cc.Address firstAddress End If End With With WsStandzeitmax.Columns(1) Set cc = .Find(zell.Value, LookIn:=xlValues, LookAt:=xlWhole) If Not cc Is Nothing Then Rechnung = (cc.Offset(0, 2) * zähler) - Rechnung ' (Hier wird die Standzeit Max * anzahl an _ WZ) - die zusammen gerechneten Werte aus Tools spalte J Else MsgBox "Die Werkzeugnummer " & zell.Value & " konnte in Standzeiten Max. nicht gefunden _ werden" WSinput.Delete Exit Sub End If End With If zähler = 0 Then zell.Offset(0, 11) = WorksheetFunction.RoundUp((zell.Offset(0, 12) / 60) / cc.Offset(0, 2), 0) Else Rechnung = WorksheetFunction.RoundUp((Rechnung / (zell.Offset(0, 12) / 60)), 0) ' Hier wird _ die anzahl an WZ ermittelt If Rechnung = Abs(Rechnung) Then zell.Offset(0, 11) = Rechnung Else zell.Offset(0, 11) = 0 End If End If zell.Offset(0, 12) = TimeString(zell.Offset(0, 12)) Rechnung = 0 zähler = 0 Next WBtool.Close End With End Sub

Beliebteste Forumthreads (12 Monate)

Zellen aus Excel-Datei(en) auslesen und in neue Da

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen aus Excel-Datei(en) auslesen und in neue Da

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread