Spaltenbereich kopieren
Horst
folgendes Codezeilen kopieren die gesamte Arbeitsmappe, bevor sie dann weiterverarbeitet wird. Wie gehe ich vor, wenn ausschließlich der Bereich von Spalte $A$:$DT$ kopiert werden soll? Ich nehme an die Zeile: "lngMaxRow = tmpWS.Cells(tmpWS.Rows.Count, 1).End(xlUp).Row" müsste verändern werden?
Besten dank vorab!
Horst
Sub Makro1()
Dim tmpWS As Worksheet
Dim lngMaxRow&, nCount&, sString$, strInfo$
Dim F%
lngMaxRow = tmpWS.Cells(tmpWS.Rows.Count, 1).End(xlUp).Row
If lngMaxRow > 1 Then
With Application
F = FreeFile
Open File_Test For Append As #F
sString = Join(.Transpose(.Transpose(tmpWS.UsedRange.Rows(lngMaxRow))), vbTab)
Print #F, sString
Close #F
strInfo$ = Chr(149) & " " & Mid$(File_Test, InStrRev(File_Test, "\") + 1, Len(File_Test) _
) & vbCr
lngMaxRow = lngMaxRow - 1
End If
End With
End Sub
Anzeige