Codefehler: Typen unverträglich
WalterK
der folgende Code läuft in Excel 2010, in Excel 2003 kommt aber der Fehler "Typen unverträglich"!
Kann mir jemand mitteilen, was ich im Code ändern muss?
Option Explicit
Sub Druck_Gruppe()
Dim LoErste As Long ' erste Zeile zum drucken
Dim Spletzte As Integer ' letzte Spalte zum drucken
Dim Zeletzte As Long ' letzte Zeile zum drucken
Dim SpErste As Long 'erste Spalte zum drucken
Dim i As Long
Dim tmp() As Variant
LoErste = 5
SpErste = 3
Spletzte = 33
Zeletzte = [LOOKUP(2,1/(D:D""),ROW(D:D))] 'letzte Zelle in Spalte D
For i = LoErste To Zeletzte
ReDim Preserve tmp(i - LoErste)
tmp(i - LoErste) = Cells(i, 255).End(xlToLeft).Column
Next
With ActiveSheet
.PageSetup.PrintArea = Range(Cells(LoErste, SpErste), _
Cells(Zeletzte, Spletzte)).Address
.PrintOut Copies:=1, Preview:=True
.PageSetup.PrintArea = ""
End With
End Sub
Besten Dank und Servus, Walter