Selektierte auf eigenes Arbeitsblatt

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Selektierte auf eigenes Arbeitsblatt von: Günter
Geschrieben am: 16.03.2005 10:27:15

Hallo, gibt es eine Möglichkeit, selektierte (siehe unten)
Zeilen in UF per VBA kopieren zu lassen und in ein eigenes Arbeitsblatt
in derselben Exceldatei (mit einer vorherigen Abfrage ja/nein) einfügen zu lassen.

Hier ein Teil des Makros:

Sub test()
Dim y As Integer
With ListBox1
    .MultiSelect = fmMultiSelectMulti
    For y = 0 To ListBox1.ListCount - 1
        .Selected(y) = True
    Next
End With
End Sub



Gruß
Günter
Bild


Betrifft: AW: Selektierte auf eigenes Arbeitsblatt von: Fritz
Geschrieben am: 16.03.2005 18:25:50

Private Sub CommandButton1_Click()
Dim J&,I&,Result&
J = 1
For I = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(I) = True Then
        Result=msgbox("wollen sie bls",VbYesNo)
        If result=vbyes then
           Worksheets("Tabelle2").Cells(J, 1) = ListBox1.List(I)
           J = J + 1
        End If
    End If
Next
End
End Sub



Bild


Betrifft: AW: Selektierte auf eigenes Arbeitsblatt von: Günter
Geschrieben am: 17.03.2005 06:49:48

Guten Morgen!

Vielen Dank Fritz!!

Funktioniert nur teilweise.
Das Makro schreibt in Tabelle 1 nur die in der Listbox
aufgeführte Spalte A.
Es müßte aber die Spalte A bis Spalte L in Tabelle 1 aufgeführt werden.

Hast Du eine Idee?

Gruss
Günter


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Selektierte auf eigenes Arbeitsblatt"