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"