Drucken per Vba-Code klappt nicht

[MdeJong]

Hallo,

  Belege-Renovierung.xlsm (Größe: 52,16 KB / Downloads: 11)
habe Probleme mit einem Code zum drucken aus einer Userform (Listbox).

In der besagten Userform filtere ich Daten in einer Listbox.
Die Ergebnisse will ich zum drucken in ein Tabellenblatt zum drucken übertragen.
Diese Daten dann drucken.

der Code funktioniert für eine andere Datei....die Tabellen sind gleich aufgebaut.

Nur in dieser Mappe geht er einfach nicht?


Gruß
MdeJong

[Steffl]

Hallo Michael,

Du solltest auch verraten, was nicht klappt.

Und so sollte es klappen

Code:

Private Sub CommandButton4_Click()
    Dim i As Long
    Dim j As Integer
    Dim lngLetzte As Long
    With Sheets("Drucken")
        lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
        If lngLetzte = 1 Then lngLetzte = 2
        .Range(.Cells(2, 1), .Cells(lngLetzte, 9)).ClearContents
        If ListBox1.ListCount >= 1 Then
            For i = 0 To ListBox1.ListCount - 1
                For j = 0 To 8
                    'so habe ich es geändert
                    .Cells(i + 2, j + 1) = ListBox1.List(i, j)
                    'so war es bei dir (Codename ist nicht gleich der Tabellenname!!!
'                    Tabelle1.Cells(i + 2, j + 1) = ListBox1.List(i, j)
                Next
            Next
        End If
    End With
    Call Liste_drucken
End Sub

[MdeJong]

Hallo Stefan,


vielen Dank für deine Mühe.

Na klar.....hätte ich sehen sollen.  :)
Ich habe den Code aus meiner anderen Mappe kopiert und in die neue eingefügt und irgendwie,
ist da was hineingekommen, was da nicht hingehörte...und ich Dussel hab es nicht gesehen.  :16:

Sollte mir ne neue Brille anlegen.

Vielen dank.

Gruß
Michel