Selektierte auf eigenes Arbeitsblatt

Forumthread: Selektierte auf eigenes Arbeitsblatt
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Selektierte auf eigenes Arbeitsblatt

16.03.2005 11:27:15

Günter

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Selektierte auf eigenes Arbeitsblatt

16.03.2005 19:25:50

Fritz
AW: Selektierte auf eigenes Arbeitsblatt

17.03.2005 07:49:48

Günter

AW: Selektierte auf eigenes Arbeitsblatt

16.03.2005 19:25:50

Fritz


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

AW: Selektierte auf eigenes Arbeitsblatt

17.03.2005 07:49:48

Günter

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