Tabelle als Textdatei speichern
12.12.2005 18:57:17
bongiu
wie immer habe ich ein Problem.
ich habe ein Code zum speichern eine Tabelle als Textdatei und funktioniert auch.
Was ich vermeiden möchte ist, dass leere Zeile gespeichert werden. In meinen Code selektiere ich die Zellen A2:AS5000. Meine Daten gehen z.Zeit bist 1900 und werden dann auch die leere Zellen bis 5000 mitgespeichert.
wie kann man der Code so ändern, dass nur ab A2 bis zu letzte belegte Zelle gespeichert wird?
Danke
Hier ist der Code:
Sub Als_Textspeichern()
Dim xlDateiName As Variant
On Error Resume Next
Application.ScreenUpdating = False
'Ereignissanzeige ausschalten
Application.EnableEvents = False
'Markierten Bereich kopieren
Range("A2:AS5000").Select
Selection.Copy
'Neue Datei erstellen
Workbooks.Add
'Kopierte Spalte einfügen
Range("A2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'In das Verzeichnis C:\ wechseln
ChDir "C:\ViViCiTTa' ©\File testo"
Application.Dialogs(xlDialogSaveAs).Show
'Die aktive Datei schließen.
ActiveWindow.Close False
'Ereignissanzeige wieder einschalten
Application.EnableEvents = True
infosalva.Show
Sound
End Sub
Bongiu
Anzeige