Formular auf neuer druckseite übernehmen

[Fennek]

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

[poligo]

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.

[IchBinIch]

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