Excel minimieren mit aktiver UserForm
11.07.2008 11:09:32
MikeS
der User kopiert einen String in die Zwischenablage und nach Bestätigung der MSGBOX soll Excel minimiert werden, ohne die UserForm zu schliessen?
Private Sub lstString_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With Me
If .lstString.ListCount > 0 And .lstString.ListIndex = -1 Then
MsgBox "Bitte klicken Sie in eine gültige Zeile ...", vbInformation, "No data"
ElseIf .lstString.ListCount > 0 And .lstString.ListIndex -1 Then
Dim Zwischenablage As DataObject
Dim strProdstring As String
Set Zwischenablage = New DataObject
strProdstring = .lstString.List(.lstString.ListIndex, 2)
Zwischenablage.SetText strProdstring
Zwischenablage.PutInClipboard
Set Zwischenablage = Nothing
MsgBox "Einfügen in SAP mit der Tastaturkombination [STRG] + [V] ...", vbInformation, " _
Der ProdString '" & strProdstring & "' wurde in die Zwischenablage kopiert ..."
Application.WindowState = xlMinimized
Else
MsgBox "Kein ProdString verfügbar!", vbInformation, "No data"
End If
End With
End Sub
Vielen Dank
MikeS