Thema: Datanorm

Hallo zusammen,

hat jemand, kennt jemand eine Quelle, weiß jemand, wo ich vielleicht eine VBA-Routine finde, um Artikeldaten von Excel nach Datanorm 4 zu konvertieren ?

Ich weiß, es gibt Apps, aber ich brauche VBA, da es eingebunden werden muss.

Herzlichen Dank vorab.

Schreibe mal selbst einen Code und du kannst Geld damit verdienen:

https://www.freelancermap.de/projekt/excel-vba-entwickler-fuer-datanorm-4-0-konvertierung-gesucht

Glaubst du denn, wenn ich sowas geschrieben hätte, würde ich es kostenlos hergeben ?

Hallo

bei deinem Basiswissen in Excel und scheinbar keine VBA Kenntnisse wird das schwierig.

Nichts desto trotz, wenn du bei Chatgpt "exceldaten via vba zu datanorm4" eingibst, bekommst du neben Beschreibung diesen Code.

Sub ExportToDatanorm4()

    Dim ws As Worksheet

    Dim filePath As String

    Dim fileNum As Integer

    Dim rowNum As Long

    Dim dataLine As String

    

    ' Arbeitsblatt festlegen

    Set ws = ThisWorkbook.Sheets("Tabelle1")

    

    ' Pfad für die Datanorm-Datei

    filePath = Application.GetSaveAsFilename("Datanorm4.txt", "Textdateien (*.txt), *.txt")

    If filePath = "False" Then Exit Sub

    

    ' Datei öffnen

    fileNum = FreeFile

    Open filePath For Output As #fileNum

    

    ' Schleife durch alle Datenzeilen

    rowNum = 2 ' Annahme: Erste Zeile ist die Kopfzeile

    Do While ws.Cells(rowNum, 1).Value <> ""

        ' Beispiel für eine Datanorm-Datensatzzeile (Typ 2 - Artikeldaten)

        dataLine = _

            "2|" & _

            Format(ws.Cells(rowNum, 1).Value, "000000") & "|" & _  ' Artikelnummer

            ws.Cells(rowNum, 2).Value & "|" & _                     ' Artikelbezeichnung

            ws.Cells(rowNum, 3).Value & "|" & _                     ' Preis

            ws.Cells(rowNum, 4).Value                               ' Mengeneinheit

        

        ' Zeile in die Datei schreiben

        Print #fileNum, dataLine

        

        rowNum = rowNum + 1

    Loop

    

    ' Datei schließen

    Close #fileNum

    

    MsgBox "Export abgeschlossen: " & filePath, vbInformation

End Sub

LG UweD

Hallo Karsten,
schau mal hier:
https://www.datanorm-writer.de/AufbauExcelDatei
Gruß
Jochen

Hallo,

es dürfte keine offenen Formatbeschreibungen und auch keine bis wenige OpenSource Projekte geben, da es ein geschlossener Standard ist. Auf Sourceforge gibt es gar keine Treffer und auf Github finden sich nur 2 Projekte in Python zum Thema Datanorm. Davon ist eines ein Writer, der lt. Readme aber nur einen Teil abbildet, vielleicht hilft das ja schon.

Der Erfinder der Schnittstelle will ja schließlich damit Geld verdienen, denn es gibt eine von Datanorm vertriebene Format-Beschreibung, die man für 125 Euro kaufen kann:
https://www.datanorm.de/DATANORM/DATANORM-Buecher

Im Zweifel mal 125 Euro investieren und danach die Ausgabe programmieren.

Fertige Lösungen dürften erheblich teurer sein, siehe z. B. https://www.datanorm-writer.de/

Da muss man halt abwägen, was der sinnvollste Weg ist und was sich am besten rechnet.

Grüße
Michael