VBA Fehler

Sub Druckbereic_Auswertung() Dim AnzahlEinträgeZeilen As Integer Dim AnzahlEinträgeSpalten As Integer AnzahlEinträgeZeilen = WorksheetFunction.CountA(Sheets("Auswertung Allgemein").Range("b:b")) AnzahlEinträgeSpalten = WorksheetFunction.CountA(Sheets("Auswertung Allgemein").Range("2:2")) With ActiveSheet.PageSetup 'Festlegung auf Hochformat .Orientation = xlLandscape ' xlPortrait 'Druckbereich definieren .PrintArea = _ Range(Cells(1, 1), Cells(AnzahlEinträgeZeilen, AnzahlEinträgeSpalten)).Address 'Seitenbreite definieren .FitToPagesWide = 1 'Seitenhöhe definieren .FitToPagesTall = False 'Seitenanzahl bestimmen anzseiten = ExecuteExcel4Macro("Get.Document(50)") 'Rechte Fußnote mit Seitenanzahl belegen '.RightFooter = anzseiten End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Fehler

06.08.2015 08:46:16

Sepp

AW: VBA Fehler

06.08.2015 08:53:26

Daniel

AW: VBA Fehler

06.08.2015 09:11:29

Thomas

AW: VBA Fehler

06.08.2015 11:54:05

Daniel

AW: VBA Fehler

06.08.2015 13:08:19

Thomas

AW: VBA Fehler

06.08.2015 13:12:25

Daniel

AW: VBA Fehler

06.08.2015 16:56:51

Thomas

AW: VBA Fehler

06.08.2015 17:32:33

Daniel

besten dank an daniel

06.08.2015 18:26:36

Thomas

Hallo,
erstmal besten dank für die Hilfe.
OH OH das hätte ich aber schon mal langsam wissen müssen.
Habe es jetzt angepasst. Aber leider laufe ich jetzt in den nächsten fehler
Zeile " .PrintArea = _
Range(Cells(1, 1), Cells(AnzahlEinträgeZeilen, AnzahlEinträgeSpalten)).Address"
Anwendungs oder objektdefinierter Fehler. Das hat bestimmt was damit zu tun das ich versuche den Bereich ab zelle b10 zu ergründen.
Was mache ich jetzt noch falsch? (Cells(10, 2) oder (Cells(2, 10) geht auch leider nicht.
liebe grüsse thomas

Sub Druckbereic_Auswertung()
Dim AnzahlEinträgeZeilen As Integer
Dim AnzahlEinträgeSpalten As Integer
Dim anzseiten As Integer
AnzahlEinträgeZeilen = WorksheetFunction.CountA(Sheets("Auswertung Allgemein").Range("b:b"))
AnzahlEinträgeSpalten = WorksheetFunction.CountA(Sheets("Auswertung Allgemein").Range("2:2"))
With ActiveSheet.PageSetup
'Festlegung auf Hochformat
.Orientation = xlLandscape               ' xlPortrait
'Druckbereich definieren
.PrintArea = _
Range(Cells(1, 1), Cells(AnzahlEinträgeZeilen, AnzahlEinträgeSpalten)).Address
'Seitenbreite definieren
.FitToPagesWide = 1
'Seitenhöhe definieren
.FitToPagesTall = False
'Seitenanzahl bestimmen
anzseiten = ExecuteExcel4Macro("Get.Document(50)")
'Rechte Fußnote mit Seitenanzahl belegen
'.RightFooter = anzseiten
End With
End Sub

Sub Druckbereic_Auswertung()
Dim AnzahlEinträgeZeilen As Integer
Dim AnzahlEinträgeSpalten As Integer
Dim anzseiten As Integer
AnzahlEinträgeZeilen = WorksheetFunction.CountA(Sheets("Auswertung Allgemein").Range("b:b"))
AnzahlEinträgeSpalten = WorksheetFunction.CountA(Sheets("Auswertung Allgemein").Range("2:2"))
With ActiveSheet.PageSetup
'Festlegung auf Hochformat
.Orientation = xlLandscape               ' xlPortrait
'Druckbereich definieren
.PrintArea = _
Range(Cells(1, 1), Cells(AnzahlEinträgeZeilen, AnzahlEinträgeSpalten)).Address
'Seitenbreite definieren
.FitToPagesWide = 1
'Seitenhöhe definieren
.FitToPagesTall = False
'Seitenanzahl bestimmen
anzseiten = ExecuteExcel4Macro("Get.Document(50)")
'Rechte Fußnote mit Seitenanzahl belegen
'.RightFooter = anzseiten
End With
End Sub

Sub Druckbereic_Auswertung() Dim AnzahlEinträgeZeilen As Integer Dim AnzahlEinträgeSpalten As Integer Dim anzseiten As Integer AnzahlEinträgeZeilen = WorksheetFunction.CountA(Sheets("Auswertung Allgemein").Range("b:b")) AnzahlEinträgeSpalten = WorksheetFunction.CountA(Sheets("Auswertung Allgemein").Range("10:10")) With ActiveSheet.PageSetup 'Festlegung auf Hochformat .Orientation = xlLandscape ' xlPortrait 'Druckbereich definieren .PrintArea = _ Range(Cells(1, 1), Cells(AnzahlEinträgeZeilen, AnzahlEinträgeSpalten)).Address 'Seitenbreite definieren .FitToPagesWide = 1 'Seitenhöhe definieren .FitToPagesTall = False 'Seitenanzahl bestimmen anzseiten = ExecuteExcel4Macro("Get.Document(50)") 'Rechte Fußnote mit Seitenanzahl belegen '.RightFooter = anzseiten End With End Sub

Hallo Daniel,
du hast recht mit der frage was will ich eingentlich. Nun ja das weis ich selbst nicht.
Ich habe eine Tabelle mit werten diese beginnen immer in B10 darüber steht aber auch manchmal was aber dies soll nicht berücksichtigt werden. Die Zeilenzahl und die spaltenzahl ist sehr unterschiedlich. Aber ich muss Sie ausdrucken. Ich möchte Sie aber nicht ständig neu einstellen müssen deshalb wäre es das ideale ein Macro zu haben das diese Aufgabe sinnvoll übernimmt. Zum Beispiel so
Definiere dein benutzten Bereich Formatiere die Überschrift in Fett und ziehe ein dicken Rahmen rum. Danach passe die Spaltenbreite so an das keine Breiter ist als 10 Zeichen und wenn doch dann passe die Schrittgröße für dies Zelle an. Passen nicht alle Zeilen auf ein Blatt dann nimm ein zweites aber drucke auf dem zweiten in jedem Fall die Überschrift ( steht immer in der 10 Zeile) und dann die restlichen Zeilen.
Nun ja das eigentliche ich suche eine Möglichkeit wie ich diese Tabelle noch lesbar ausdrucken kann.
ich suche mir bei solchen Problemen dann immer irgendetwas im netz zusammen und versuch dies dann mit eurer Hilfe für anzupassen. Ich denke niemand hat das recht hier im Forum von jemand so etwas zu fordern und nichts dafür zu tun. Deshalb versuche ich immer erst mein Problem tagelang soweit ich komme selbst zu lösen. Aus diesem Grund habe ich dir nicht das ganze Problem geschildert. Vielleicht geht es ja auch viel einfacher? Und ich habe es noch nicht gefunden.
ich hoffe ich habe dich jetzt nicht abgeschreckt. So zu bleiben wie Du bist. Ich denke dies Macro wird es vielleicht nicht leisten können . hast Du vielleicht einen link für mich ?
liebe grüsse thomas

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread