TXT Datei leer
08.09.2003 10:14:45
Peter
brauche Hilfe.
Mit dem Makro möchte ich eine txt-Datei eines bestimmten Bereiches des Tabellenblattes erstellen.
Die Datei wird auch erstellt ist aber leider leer.
~begin~
Private Sub CommandButton2_Click()
Dim Wert1
Dim wert
Dim i As Integer
Dim shell As String
Dim intRow As Integer, intCol As Integer
Close
Open "d:\test.txt" For Output As #1
Wert1 = 2
For i = 2 To 2
wert = Cells(65536, i).End(xlUp).Row
If wert > Wert1 Then
Wert1 = wert
End If
Range(Cells(1, 7), Cells(Wert1, i - 1)).Select
Next
Print #1,
'shell = "c:\winnt\NOTEPAD.exe"
Close
End Sub
~end~
Gruss
Peter