AW: Range Select mit Variablen
04.05.2010 10:25:07
Tom
So ich habs!
Sieht zwar noch nicht besonders toll aus, aber ich werde jetzt mal den code bereinigen und zusammenfassen.
Danke!
Sub Makieren_Drucken()
Dim strLetter As String
Dim bytPos As Byte
lngColumn = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
Anfang = lngColumn - 6
strLetter = Cells(1, lngColumn).Address
strLetter = Replace(strLetter, "$", "", , 1)
bytPos = InStr(strLetter, "$")
If bytPos 0 Then GetColumnLetter = Left(strLetter, bytPos - 1)
strLetter = Cells(1, Anfang).Address
strLetter = Replace(strLetter, "$", "", , 1)
bytPos = InStr(strLetter, "$")
If bytPos 0 Then Anfang = Left(strLetter, bytPos - 1)
Ende = GetColumnLetter
Range("J:J," & Anfang & ":" & Ende).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub