Spalten auslesen und in .txt-Datei exportieren
14.08.2006 12:42:15
Düppi
das unten stehende VBA liest tadellos aus einem Tabellenblatt Werte aus einem festgelegten Zeilen- und Spalten-Bereich aus und exportiert in sechs verschiedene .txt-Dateien. Soweit, so gut. Ich möchte aber Ausnahmen zulassen: Wenn in einer Zelle ein x steht, soll diese Zeile übersprungen werden und die nächste (oder übernächste, falls auch dort ein x steht) ausgelesen werden.
Sicherlich keine allzu komplizierte Ergänzung des folgenden VBA, hofft Düppi:
Private Sub CommandButton1_Click()
Dim arrNamen, n, i
arrNamen = Array("guetersloh", "rheda", "warendorf", "ahlen", "beckum", "oelde")
For n = 0 To UBound(arrNamen)
Open "c:\temp" & arrNamen(n) & ".txt" For Output As #1
For i = 5 To 52
Print #1, Sheets("Tabelle").Cells(i, 8 * n + 3) & vbTab & Sheets("Tabelle").Cells(i, 8 * n + 4)
Next
Close 1
Next
End Sub