Range mit Bedingung
13.04.2020 12:08:58
Matthias
Ich habe ein kleines Anliegen, welches mich nicht in Ruhe lässt (aber selber die Lösung nicht entdeckt habe)...
Mein Code sieht bisher so aus:
Sub Export-CSV()
Dim Exportdatei As String
Dim Trennzeichen As String
Dim Zellbereich As Range
Dim Zeile As Object
Dim Zelle As Object
Dim TempZeile As String
Dim Tabelle As String
Tabelle = "import-o365"
Trennzeichen = ","
Exportdatei = "C:\temp\import.csv"
Application.ThisWorkbook.Sheets(Tabelle).Activate
Cells.Select
Set Zellbereich = Sheets(Tabelle).Range("A1:O200")
Open Exportdatei For Output As #1
For Each Zeile In Zellbereich.Rows
For Each Zelle In Zeile.Cells
TempZeile = TempZeile & Zelle & Trennzeichen
Next Zelle
Print #1, GetUTF8String(Left(TempZeile, Len(TempZeile) - 1))
TempZeile = ""
Next Zeile
Close #1
Application.ThisWorkbook.Sheets(Tabelle).Cells(1, 1).Select
End Sub
Mein Problem liegt im Zellbereich: Spalten A bis O ist in Ordnung, es darf aber nicht bis 200 (das wäre das Maximum), sondern nur weit, wie Spalte C Einträge hat.
Kann mir da jemand helfen?
Anzeige