Registriert seit: 06.12.2015
Version(en): 2016
Hallo,
mit den eben hochgeladenen Sheets komme ich nicht zurecht. Meine Idee war EINE Datei mit ZWEI Arbeitsblättern:
- Blatt 1: das Formula
- Blatt 2: eine Tabelle, in der für jedes Formularfeld eine Spalte existiert, jede Zeile entspricht einer Prüfung = einen Ausdruck.
Entweder per Formel oder Makro wird dann eine Zeile der Tabelle in die Formular-Felder übertragen und dann ausgedruckt, vergleichbar einem Serienbrief.
Im Prinzip halte ich das für durchführbar, ob es schnell genug für ein Forum geht, ist dann eine andere Frage.
mfg
Registriert seit: 20.09.2016
Version(en): 2013
Also am besten du schaust dir nur die letzten 2 hochgeladenen Dateien an. Die protokoll- Datei beinhaltet einmal die Tabelle und das Formular. Die zweite Beispiel-datei enthält es ungefähr so wie ich es mir vorstelle. Ich habe schon versucht das Makro aus der Beispiel-datei umzuschreiben, aber leider geht es nicht. Du musst dieses Datei auch nicht erstellen, da ich es selber lernen möchte. Jedoch bräuchte ich ein bisschen hilfe.
Registriert seit: 21.07.2016
Version(en): 2007
Hallo zusammen,
also wenn ich das richtig verstanden habe, liefert Dir Dein Messgerät oder die Software doch CSV-Dateien.
Wenn man diese nun einlesen würde, um sie dann weiter zu verarbeiten.
Ich bin gerade mal in die Analen meines Archivs abgetaucht.
Das hier vielleicht als Basis?
Sub CSVImportStarten()
Dim varName As Variant
varName = Application.GetOpenFilename("CSV-Dateien,*.csv,Alle Dateien,*.*")
If varName = False Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & varName, Destination:=Range("A1"))
.Name = "Datenimport"
.FieldNames = True
.PreserveFormatting = True
.RefreshStyle = xlInsertDeleteCells
.SaveData = True
.AdjustColumnWidth = True
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlGeneralFormat)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 12 - mit VBAHTML 12.6.0
Ich habe das gerade mal mit der hochgeladenen 12.csv getestet. Das sieht ganz gut aus.
Gruß
Ich