Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Listboxeinträge kopieren"
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Formel bis zur letzten Zeile der Nebenspalte kopieren