ich habe mal eine Frage!:
mit folgenden Code schreibe ich die ganze Tabelle in einen Textfile. Super.
Ich möchte jetzt aber nur den Bereich A13:R1000
Was muss ich tun?
Mit Range haut das nicht hin (wäre auch zu einfach, denke ich mal)
so gehts:
Dim strName As String
strName = "H:\Hier\Backups\" & _
Worksheets("Daten").Range("H1") & ".txt"
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Worksheets("Daten").Copy
Application.DisplayAlerts = False
ActiveSheet.SaveAs FileName:=strName, FileFormat:=xlTextWindows, Local:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
so nicht:
Dim strName As String
strName = "H:\Hier\Backups\" & _
Worksheets("Daten").Range("H1") & ".txt"
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Worksheets("Daten").Range("A13:R1000").Copy
Application.DisplayAlerts = False
ActiveSheet.SaveAs FileName:=strName, FileFormat:=xlTextWindows, Local:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Danke mal für Eure Hilfe
MfG
Tilo