Hallo zusammen,

wieder stehe ich vor einer Herausforderung, die ich leider nicht ganz alleine Lösen kann und ich hoffe daher auf eure Hilfe!
Ich habe ein Auswerteformular für unsere Laboranten erstellt, damit ich im Anschluss die Ergebnisse in eine zentralen Exceldatei mittels Makro übertrage und somit quasi eine Datenbank für Messwerte habe.
Auf diese Weise habe ich z.B. eine Übersicht über die gemessene Rauheit eines Material aus verschiedenen Produktionskampagnen und natürlich auch über Jahre hinweg ohne mir die Daten mühsam zusammen zu suchen und in eine Tabelle zu kopieren. Untenstehender Code ist dabei hinterlegt. Ich möchte dies nun gerne wie folgt weiter entwickeln:
- Eine zentrale Datei mit mehreren Tabellenblätter( Name für Tabellenblatt 1: Dicke, Dichte, Flächengewicht ; Tabellenblatt 2: Rauheit; Tabellenblatt3: Reibung usw….) Es können dabei über 30 Tabellenblätter entstehen.
- Wenn Laborant das Auswerteformular ausfüllt werden immer bestimmte Produktionsdaten (Ich nenne sie mal Kopfdaten)angegeben, wie Produktionsdatum, Versuchsnummer, Musterbezeichnung (z.B. 0815) usw., damit Produkt zugeordnet werden kann. Wenn an Muster 0815 z.B. die Dicke und die Reibung gemessen wurde, sollen die entsprechenden Daten auch in die richtigen Tabellenblätter eingetragen werden. Es wäre ja unsinnig in Tabellenblatt „Rauheit“ nur die Kopfdaten zu haben, wenn es dazu keine Messergebnisse gibt. Aus diesem Grund habe ich nur mit einem Tabellenblatt gearbeitet und leider auch nur die Werte übertragen können, von denen es Messwerte gibt. Mein Ziel ist es aber eine "Datenbank" mit Messwerten von allen Messmethoden zu haben und nicht nur von ausgewählten.

Eine dementsprechende Weiterentwicklung meines Codes würde mir schon helfen.
 

Sub Schaltfläche14_KlickenSieAuf()
' Messwerte übertragen
Dim wkbZiel As Workbook
Dim shZiel As Worksheet, shQuelle As Worksheet
Dim lngSpalte As Long
Dim pw As String
Application.ScreenUpdating = False
Range("D1") = "Daten wurden übertragen"
Set shQuelle = ActiveSheet
Set wkbZiel = GetObject("H:\..\Auswertevorlage Zusammenfassung.xls")
Windows(wkbZiel.Name).Visible = True
Set shZiel = wkbZiel.Sheets("Schichtdicken und Rauheit")
With shZiel
.Rows(4).Insert CopyOrigin:=xlFormatFromRightOrBelow
'Kopfdaten
.Range("A4") = shQuelle.Range("K3").Value
.Range("C4") = shQuelle.Range("C3").Value
.Range("D4") = shQuelle.Range("C4").Value
'Rauheit
‘WS
.Range("Y4") = shQuelle.Range("E43").Value
.Range("Z4") = shQuelle.Range("F43").Value
End With
wkbZiel.Close SaveChanges:=True
Application.ScreenUpdating = True
End Sub

Zusätzlich wäre es noch genial, wenn man noch folgendes einbauen könnte:
Das Produkt wird über die Breite an evt. mehreren Stellen (MK (F13), MP (L13), MI(R13),RR(X13), „variable Bezeichnung 1 durch Laborant“(AD13) & „variable Bezeichnung 2 durch Laborant“(AJ13) ) gemessen. Wenn an Muster 0815 z.B. die Dicke und die Reibung an MK und MI gemessen wurde, wäre es gut, wenn die Kopfdaten + Messergebnisse der MK z.B. in Zeile 4 stehen und die Kopfdaten + Messergebnisse der MI in Zeile 5. Also irgendwie so, dass MK (F13), MP (L13), MI(R13),RR(X13), „variable Bezeichnung 1 durch Laborant“(AD13) & „variable Bezeichnung 2 durch Laborant“(AJ13) untereinander stehen. Aber natürlich nur, wenn Messwerte vorhanden sind. So kann ich in der Datenbank zusätzlich die Messposition filtern.

Ich hoffe, dass mir jemand helfen kann und freue mich sehr über Antworten!

Liebe Grüße
SaSc