VBA
25.02.2020 15:50:33
MartinHiw
ich bin Student des Ingenieurwesen und habe leider noch keine VBA Kenntnisse sammeln können.
Nun möchte ich ein kleines Makro schreiben aber komme leider an meine Grenzen der Umsetztung.
Ich möchte eine Art "Kontroll-Programm" für eine Reihe von Messdaten erstellen, womit man schnell eine Vergleichbarkeit zwischen den Messungen erkennen kann.
Dazu benötige ich immer zwei Datensätze aus zwei verschiedenen Dateien.
Diese sollen per Makro aufgerufen werden, die per Button abgerufen werden.
Dabei sind die Messdaten in einer Excel gespeichert ( zwei Spalte werden daraus benötigt, mit über 10000 Zeilen, hier Spalte B und C)
Diese Daten sollen dann einfach in einer Excel (hier: TVKontrolle in den Spalten F und G aber den Zeilen 12) ausgegeben werden.
Leider komme ich mit meinem Ansatz nicht weiter. Wäre schön wenn sich dass jemand angucken könnte und mir vielleicht ein paar Tipps geben könnte was ich verbessern sollte oder einen anderen Ansatz zu finden.
Liebe Grüße
Martin
Sub Makro1()
'Abfrage welche Datein abgerufen werden soll
MsgBox "Wählen Sie den ersten Versuch aus"
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
Dim MyFile As String
' einlesen
arr = Worksbooks("MyFile.xls").Range("B:C")
' ausgeben
Worksbooks("TVKontrolle.xls").Worksheets("Messwerte_1").Range("F12:G12") = arr
End With
End Sub