Makro für Drucken

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Walter,
das Schlimmste was es nach meiner Meinung in Excel gibt sind verbundene Zellen. ;)

VBA-Code:

Sub Drucken()

With ActiveSheet

  .PageSetup.PrintArea = "$A$1:" & .Cells(Rows.Count, "E").End(xlUp).Row

  .PrintOut

  .PageSetup.PrintArea = ""

End With

End Sub

Sub Löschen()

Dim Zelle As Range

With ActiveSheet

  For Each Zelle In .Range("D2:D" & .Cells(Rows.Count, "D").End(xlUp).Row)

    If Zelle.Row Mod 2 = 0 And Zelle.MergeCells = True Then

      Zelle.MergeCells = False

      Zelle = ""

      Range(Cells(Zelle.Row, "D"), Cells(Zelle.Row + 1, "D")).Merge

    End If

  Next

  For Each Zelle In .Range("E2:E" & .Cells(Rows.Count, "E").End(xlUp).Row)

    If Zelle.Row Mod 2 = 0 And Zelle.MergeCells = True Then

      Zelle.MergeCells = False

      Zelle = ""

      Range(Cells(Zelle.Row, "E"), Cells(Zelle.Row + 1, "E")).Merge

    End If

  Next

  .Range("F2:F" & .Cells(Rows.Count, "F").End(xlUp).Row).ClearContents

  .Range("H2:H" & .Cells(Rows.Count, "H").End(xlUp).Row).ClearContents

  .Range("J2:J" & .Cells(Rows.Count, "J").End(xlUp).Row).ClearContents

  .Range("L2:L" & .Cells(Rows.Count, "L").End(xlUp).Row).ClearContents

End With

End Sub

Gruss Jürgen

Hi
wo ist jetzt dein Problem? kannst du keine Buttons anlegen?
das geht doch einfach so:
füge eine normales Grafik-Textfeld oder aus der Symbolleiste "Formular" eine Schaltfläche ein.
dann klickst du mit der Rechten Maustaste drauf und wählst im Kontextmenü "Marko zuweisen..."
dann kommt eine Auswahlliste der bestehenden Makros und du kannst dir aussuchen, welches du über die Schaltfläche starten willst.
dein Druckmakro sollte so aussehen, um nur den notwendigen Bereich zu drucken:


Sub Drucken()
Dim Zeile As Long
Zeile = Sheets("Ladeliste").Columns(3).Find(what:=Sheets("Eingabe").Cells(Rows.Count, 5).End( _
xlUp).Text,  lookat:=xlWhole, LookIn:=xlValues).Row + 1
Sheets("Ladeliste").PageSetup.PrintArea = "$A$1:$H$" & Zeile
Sheets("Ladeliste").PrintOut preview:=True
End Sub

dein Lösch-Makro geht nicht, weil du verschuchst, Zeile 3 zu löschnen, die Zeile 3 ist aber Teilweise mit Zeile 2 verbunden, dh. du hast verbundene Zellen nur Teilweise selektiert, dann kann man die nicht löschen.
probiers mal so:
Range("D2", Cells(Rows.Count, 8)).ClearContents
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread