Clever-Excel-Forum

Hallo,
[attachment=15110]
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

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

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

MdeJong

Steffl

MdeJong