Thema: Auswahl in Zwischenablage

Home

Aus der mehrspaltigen ListBox werden die Elemente aus der ersten Spalte in die Zwischenablage übernommen. Fügen Sie nach dem Auswählen der Elemente und dem Schließen der UserForm die ausgewählten Daten über Strg+v in das Tabellenblatt ein.

Prozedur: cmdAuslesen_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Auswahl in Zwischenablage
Ablaufbeschreibung:
- Variablendeklaration
- Neues DateObject an eine Objekt-Variable übergeben
- Schleife über alle ListBox-Zeilen bilden
- Wenn die aktuelle ListBox-Zeile ausgewählt ist...
- Den Text der ersten Spalte der ausgewählten ListBox-Zeile mit nachfolgendem Wagenrücklauf in eine String-Variable schreiben
- Die String-Variable um ein Zeichen (letzten Warenrücklauf) kürzen
- Dem DataObject die Stirng-Variable zuweisen
- Den zugewiesenen Wert in die Zwischenablage übernehmen
- Die UserForm schließen

Code:


Private Sub cmdAuslesen_Click()
   Dim iCounter As Integer
   Dim oClip As DataObject
   Dim sTxt As String
   Set oClip = New DataObject
   For iCounter = 1 To lstAuslesen.ListCount - 1
      If lstAuslesen.Selected(iCounter) Then
         sTxt = sTxt & lstAuslesen.List(iCounter, 0) & vbLf
      End If
   Next iCounter
   sTxt = Left(sTxt, Len(sTxt) - 1)
   oClip.SetText sTxt
   oClip.PutInClipboard
   Unload Me
End Sub