Probleme mit Code

Hallo
ich möchte mit folgendem Code folgendes bezwecken:
Ich habe zwei Tabellenblättern die Anzahl der beschriebenen Zeilen variiert.
Ich möchte beide Tabellenblätter, bis zur letzten beschriebenen Zeile in ein PDF und auf dem Laufwerk speichern.
Daniel hatte mir schon versucht zu helfen, doch leider ist der Beitrag nach unten gerutscht.
Ich selbst habe wenig Ahnung von VBA und bin daher auf Euch angewiesen.
Der Code bleibt bei a = hängen, Variable nicht definiert.
Ich weiss aber auch nicht, ob der Code genau das macht was er soll, habe ihn im Netz gefunden.
Das ist das letzte was mir noch fehlt......
Hier mal der Code

Private Sub cmdOK_Click()
Dim i As Integer
Dim z As Integer
Dim wksQuelle As Worksheet
Set wksQuelle = Sheets("Fahrzeugbegleitkarte")
Range("A1").Select  'Startposition angeben
Selection.Name = "aErsteZeile"
For z = wksQuelle.Range("aErsteZeile").Row To 6000  'letzte Zeile anpassen
If Cells(z, 1).Value  0 Then
Cells(z, 1).Name = "aLetzteZeile"
End If
Next
Range(Cells(2, 1), Cells(Range("aLetzteZeile").Row, 1)).Select 'anstelle von 20, deine letzte  _
Spalte
Selection.Name = "Druckbereich1"
Set wksQuelle = Sheets("Fahrzeugbegleitkarte2")
Range("A1").Select  'Startposition angeben
Selection.Name = "aErsteZeile"
For z = wksQuelle.Range("aErsteZeile").Row To 6000  'letzte Zeile anpassen
If Cells(z, 1).Value  0 Then
Cells(z, 1).Name = "aLetzteZeile"
End If
Next
Range(Cells(2, 1), Cells(Range("aLetzteZeile").Row, 1)).Select 'anstelle von 20, deine letzte  _
Spalte
Selection.Name = "Druckbereich2"
Set a = Range("Druckbereich1")
Set b = Range("Druckbereich2")
Druckbereich = Range(a, b)
ActiveSheet.PageSetup.PrintArea = Druckbereich
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"U:\Groups\130_EBW_B\VMK-INFO\karten\begleitkarten\" & Worksheets("Begleitkarte"). _
Range("P17") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub cmdOK_Click() Dim LoI As Long ' Schleifenvariable Dim LoLetzte As Long ' Variable für letzte Zeile ' letzte Zeile unabhängig von Excelversion für Spalte I (9) LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), _ Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) For LoI = LoLetzte To 2 Step -1 If Cells(LoI, 1) Empty Then Exit For Next LoI ' Druckbereich festlegen ActiveSheet.PageSetup.PrintArea = "$A$1:$H$" & LoI End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread