Excel Makro zum Auslesen von Messwerten

  • Excel

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Excel Makro zum Auslesen von Messwerten

    Quellcode

    1. Sub SaveCSV()
    2. Dim Bereich As Object, Zeile As Object, Zelle As Object
    3. Dim strTemp As String
    4. Dim strDateiname As String
    5. Dim strTrennzeichen As String
    6. Dim strMappenpfad As String
    7. Dim strTiefe As String
    8. strMappenpfad = ActiveWorkbook.FullName
    9. strMappenpfad = Replace(strMappenpfad, ".xls", ".csv")
    10. strDateiname = InputBox("Wie soll die CSV-Datei heißen (inkl. Pfad)?", "CSV-Export", strMappenpfad)
    11. If strDateiname = "" Then Exit Sub
    12. strTiefe = InputBox("Welche Tiefe soll exportiert werden?", "CSV-Export", ",")
    13. If strTiefe = "" Then Exit Sub
    14. strTrennzeichen = InputBox("Welches Trennzeichen soll verwendet werden?", "CSV-Export", ",")
    15. If strTrennzeichen = "" Then Exit Sub
    16. Set Bereich = ActiveSheet.UsedRange
    17. Open strDateiname For Output As #1
    18. For Each Zeile In Bereich.Rows
    19. For Each Zelle In Zeile.Cells
    20. If InStr(1, Zelle.Text, strTrennzeichen) > 0 Then
    21. 'Zellen, die ein Trennzeichen beinhalten in Anführungsstriche setzen
    22. strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen
    23. Else
    24. strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen
    25. End If
    26. Next
    27. If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
    28. Print #1, strTemp
    29. strTemp = ""
    30. Next
    31. Close #1
    32. Set Bereich = Nothing
    33. MsgBox "Datei wurde exportiert nach" & vbCrLf & strDateiname
    34. End Sub



    Ich möchte mit einem Makro Messwerte aus einer Tabelle auslesen.
    Bisher ist es nur möglich alle Werte auszuwählen.
    Ich möchte gerne eine Auswahlmöglichkeit haben, sodass man angeben kann aus welcher Höhe Messwerte genommen werden sollen.
    Ich hoffe ihr könnt mir helfen :)

    Viele Grüße,
    Tim