Listboxeinträge kopieren

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

Betrifft: Listboxeinträge kopieren von: Günter
Geschrieben am: 18.03.2005 05:25:45

Guten Morgen.

Ich trage noch ein altes Problem mit mir rum.

Solches: Wie kann ich über VBA o.ä. Listboxeinträge kopierbar machen?

Soll heißen, in Windowsweise anklicken, kopieren und einfügen in anderes
Arbeitsblatt.

Hat jemand gar eine Beispielmappe ?


Gruss
Günter

Bild


Betrifft: AW: Listboxeinträge kopieren von: GraFri
Geschrieben am: 18.03.2005 07:08:26

Hallo

Vielleicht hilft dir folgender Code weiter.



      
' WICHTIG:
' Microsoft Forms 2.0 Object Library unter Extras\Verweise setzen


Private Sub ListBox1_MouseUp(ByVal Button As IntegerByVal Shift As Integer, _
                             
ByVal X As SingleByVal Y As Single)

  
Dim Clip As DataObject
  
Set Clip = New DataObject


  
If Button = 2 Then          ' wenn rechte Maustaste gedrückt wurde
    With Clip
      .Clear                  
' Zwischenablage löschen
      .SetText ListBox1.Text  ' markierter Text der Listbox
      .PutInClipboard         ' in die Zwischenablage kopieren
    End With
  
End If
End Sub
 

     Code eingefügt mit Syntaxhighlighter 3.0


Bei weiteren Fragen einfach melden.

mfg, GraFri


Bild


Betrifft: AW: Listboxeinträge kopieren von: Günter
Geschrieben am: 18.03.2005 07:18:53

Vielen Dank GraFri!

Melde mich mal wieder nach Test.


Gruss
Günter


Bild


Betrifft: Listboxeinträge kopieren - Mehrfachauswahl von: GraFri
Geschrieben am: 18.03.2005 07:17:48

Hallo

Bei Mehrfachauswahl.



      
' WICHTIG:
' Microsoft Forms 2.0 Object Library unter Extras\Verweise setzen


' Bei Mehrfachauswahl in der Listbox
Private Sub ListBox1_MouseUp(ByVal Button As IntegerByVal Shift As Integer, _
                             
ByVal X As SingleByVal Y As Single)

  
Dim Clip  As DataObject
  
Dim TMP   As String
  
Dim n     As Integer
  
  
Set Clip = New DataObject

  
On Error Resume Next
  
If Button = 2 Then          ' wenn rechte Maustaste gedrückt wurde
    With ListBox1
      
For n = 0 To .ListCount - 1
        
If .Selected(n) Then TMP = TMP & .List(n)
      
Next n
    
End With
    
    
With Clip
      .Clear                  
' Zwischenablage löschen
      .SetText TMP            ' markierter Text der Listbox
      .PutInClipboard         ' in die Zwischenablage kopieren
    End With
  
End If
End Sub
 

     Code eingefügt mit Syntaxhighlighter 3.0



Bei weiteren Fragen einfach melden.

mfg, GraFri


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Listboxeinträge kopieren"