Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Selektierte auf eigenes Arbeitsblatt"
In einer ComboBox selektiertes Arbeitsblatt auswählen Nach Tabellenblatt-ComboBox den vorher selektierte Bereich wählen
Tabellen von selektierten Arbeitsblattnamen löschen Maximalwerte im selektierten Bereich markieren
Button im selektierten Bereich erstellen und Makro zuweisen Namen der selektierten Tabellenblätter auslesen
1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen Aktueller Arbeitsblattname in Formel
Arbeitsblatt 40 mal kopieren 40 neue Arbeitsblätter hinzufügen