01.02.2015, 20:50
Hallo,
ich finde keine Worte um mich zu bedanken. Das ist ja super. Leider schmeißt mir mein Excel eine Fehlermeldung rein.
Laufzeilenfehler 1004
Hier von der Zeile aus bis zum Ende noch alles kopiert. Um es etwas einzugrenzen
Aber ich vermute mal das liegt an meinem Excel, da ich MS Excel 2011 habe und da ist manches etwas anders als bei den gewöhnlichen PC Versionen. Ich werde es morgen mal am besagten Vista - PC mit der MS Excel Version 2010 probieren. Da soll es ja letztendlich auch laufen.
Herzlichen Dank nochmal das ist echt klasse.
:19:Kai aus Oberfranken:19:
ich finde keine Worte um mich zu bedanken. Das ist ja super. Leider schmeißt mir mein Excel eine Fehlermeldung rein.
Laufzeilenfehler 1004
Code:
ActiveWindow.View = xlPageBreakPreview
Hier von der Zeile aus bis zum Ende noch alles kopiert. Um es etwas einzugrenzen
Code:
ActiveWindow.View = xlPageBreakPreview
lngZ = .Cells(.Rows.Count, 1).End(xlUp).Row
.PageSetup.PrintArea = .Range(.Cells(1, 1), .Cells(lngZ, 5)).Address
.ResetAllPageBreaks
If .HPageBreaks.Count > 0 Then
lngR1 = .HPageBreaks(1).Location.Row
If .Cells(lngR1, 1).MergeCells = True And .Cells(lngR1, 1).MergeArea.Row < lngR1 Then
lngZZ = .Cells(lngR1, 1).MergeArea.Row
Else
lngZZ = lngR1
End If
.Range(.Cells(lngZZ, 1), .Cells(lngZ, 2)).Cut .Range("D1")
End If
lngZ = .Cells(.Rows.Count, 4).End(xlUp).Row
If .Cells(lngR1, 4).MergeCells = True And .Cells(lngR1, 4).MergeArea.Row < lngR1 Then
lngZZ = .Cells(lngR1, 4).MergeArea.Row
Else
lngZZ = lngR1
End If
.PageSetup.PrintArea = .Range(.Cells(1, 1), .Cells(lngZZ - 1, 5)).Address
.PrintPreview
.Visible = xlVeryHidden
End With
Sheets("Termineingabe").Select
ActiveWindow.View = xlNormalView
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Private Sub tabellen_einblenden()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next i
End Sub
Aber ich vermute mal das liegt an meinem Excel, da ich MS Excel 2011 habe und da ist manches etwas anders als bei den gewöhnlichen PC Versionen. Ich werde es morgen mal am besagten Vista - PC mit der MS Excel Version 2010 probieren. Da soll es ja letztendlich auch laufen.
Herzlichen Dank nochmal das ist echt klasse.
:19:Kai aus Oberfranken:19: