AW: 2000 Marko läuft unter 97 nicht
14.09.2004 12:13:23
Patrick
oh hier ist der Code:
INFO: Der Code ligt eif einer Arbeitsmappe!!
Option Explicit
Private Sub CommandButton1_Click()
Dim Dateinummer As Integer
Dim exportfile$, TB As Worksheet, z%, s%, TMP$
Application.ScreenUpdating = False
exportfile = "ausAnPack.csv"
Dateinummer = FreeFile
Set TB = ThisWorkbook.Worksheets(5)
'Die folgende Zeile erzeugt eine neue Datei mit dem angegebenen Namen
'im angegebenen Pfad
Open exportfile For Output As #Dateinummer
TB.Columns.EntireColumn.Hidden = False
'Die beiden Schleifen beziehen alle belegten Zellen in die zu erstellende Textdatei ein
For z = 9 To TB.UsedRange.Rows.Count
If Not IsEmpty(Cells(z, 4)) Then
For s = 1 To 20
'Das Semikolon ist durch jedes beliebige Feldtrennzeichen ersetzbar
TMP = TMP & CStr(TB.Cells(z, s).Text) & ","
Next s
'Damit am Ende jeder Zeile, also nach der letzten Zelle kein Strichpunkt mehr gesetzt wird,
'muss das letzte Zeichen wieder abgezogen werden
TMP = Left(TMP, Len(TMP) - 1)
'Print fügt hier immer eine Zeile zur bestehenden Textdatei hinzu
Print #Dateinummer, TMP
'Die Variable TMP muss vor der Aufnahme der nächsten Zeile wieder geleert werden
TMP = ""
End If
Next z
TB.Columns("A:C").Hidden = True
TB.Columns("J:M").Hidden = True
TB.Columns("R:IV").Hidden = True
Close #Dateinummer
Application.ScreenUpdating = True
End Sub