Anzeige
Archiv - Navigation
1296to1300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Frage zu einem alten Thread

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

Betreff
Datum
Anwender
Anzeige
AW: Frage zu einem alten Thread
05.02.2013 08:34:49
Nepumuk
Hallo,
weil 1. in der Scheife zum Übernehmen der Songs ein massiver Fehler ist. Und 2. in der zum Drucken die nichtausgewählten benutzt werden. So funktioniert es:
Private Sub Druck_Click()
    Dim lngDruck As Long
    Worksheets("Ausdruck").Range("A1:A300").ClearContents
    With ListBox2
        For lngDruck = 0 To .ListCount - 1
            Worksheets("Ausdruck").Cells(lngDruck + 1, 1) = .List(lngDruck)
        Next
        .Clear
    End With
    Worksheets("Ausdruck").PrintOut
    CommandButton2.Value = True
End Sub

Private Sub CommandButton1_Click()
    Dim lngIndex As Long
    With ListBox1
        For lngIndex = 0 To .ListCount - 1
            If .Selected(lngIndex) Then ListBox2.AddItem .List(lngIndex)
        Next
        For lngIndex = .ListCount - 1 To 0 Step -1
            If .Selected(lngIndex) Then .RemoveItem lngIndex
        Next
    End With
End Sub

Gruß
Nepumuk

Anzeige
AW: Frage zu einem alten Thread
05.02.2013 08:49:57
hary
Moin Nepumuk
Danke,Schleifenfehler OK bin ich falsch angegangen.
Aber das bei Sunkist(bei den anderen nicht)gleich die Fehlermeldung kommt versteh ich nicht.
gruss hary

AW: Frage zu einem alten Thread
05.02.2013 09:39:10
Nepumuk
Hallo,
könnte sein, dass er in den Optionen - Allgemein - Unterbrechen bei Fehlern die Option "Bei jedem Fehler" ausgewählt hat. Dann nützt auch die On Error - Anweisung nix. Mit der Option teste ich speziell bei fremden Code. Denn es ist mir meistens zu mühsam erst mal alle On Error - Anweisungen auszukommentieren nur um hinter Fehler des Programmierers zu kommen.
Gruß
Nepumuk

Anzeige
Danke Gruss owT
05.02.2013 10:23:56
hary
.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige