Sub SaveCSV()


Dim Bereich As Object, Zeile As Object, Zelle As Object
Dim strTemp As String
Dim strDateiname As String
Dim strTrennzeichen As String
Dim strMappenpfad As String
Dim strTiefe As String
strMappenpfad = ActiveWorkbook.FullName
strMappenpfad = Replace(strMappenpfad, ".xls", ".csv")

strDateiname = InputBox("Wie soll die CSV-Datei heißen (inkl. Pfad)?", "CSV-Export", strMappenpfad)
If strDateiname = "" Then Exit Sub
strTiefe = InputBox("Welche Tiefe soll exportiert werden?", "CSV-Export", ",")
If strTiefe = "" Then Exit Sub
strTrennzeichen = InputBox("Welches Trennzeichen soll verwendet werden?", "CSV-Export", ",")
If strTrennzeichen = "" Then Exit Sub

  Set Bereich = ActiveSheet.UsedRange

  Open strDateiname For Output As #1

  For Each Zeile In Bereich.Rows
    For Each Zelle In Zeile.Cells
      If InStr(1, Zelle.Text, strTrennzeichen) > 0 Then
        'Zellen, die ein Trennzeichen beinhalten in Anführungsstriche setzen
        strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen
      Else
        strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen
      End If
    Next
    If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
    Print #1, strTemp
    strTemp = ""
  Next

  Close #1
  Set Bereich = Nothing
  MsgBox "Datei wurde exportiert nach" & vbCrLf & strDateiname

End Sub

---------------------------------------------

Ich möchte mit einem Makro Messwerte 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