Angeben welches Blatt
08.11.2014 09:56:26
Stefan Glander
Moin moin Forum,
ich habe ein Code von Alfons Seeberger gefunden.
Damit werden Daten eines Tabellenblattes in eine Datei geschrieben.
Zur Zeit funktioniert das aber nur mit dem aktuellen Tabellenblatt.
Wie muss ich den Code anpassen damit ich bestimmen kann welches Tabellenblatt für die Datenauswahl genommen wird?
Sub Export()
Dim Datei As String, Text As String
Dim Zeile As Long
Dim zeigen
On Error GoTo Hell
'Zieldatei festlegen
Datei = ThisWorkbook.Path & "\test.xml"
Open Datei For Output As #1 'Zieldatei öffnen
'reinschreiben
'mit Schleife die ersten 5 Zeilen der Tabelle reinschreiben
'Spalte A = Blz, Spalte B = Institut
For Zeile = 1 To 200
If Cells(Zeile, 4) <> "" Then
Print #1, Cells(Zeile, 2), Cells(Zeile, 4), Cells(Zeile, 5)
End If
Next Zeile
Close #1 'Zieldatei schließen
zeigen = Shell(Environ("windir") & "\notepad.exe " & Datei, 1)
Exit Sub
Hell:
Close #1
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
End Sub