AW: Vba für windows playe
16.02.2022 12:11:15
Jörn
Anbei das Makro. An den Anfang soll ein Befehl gestellt der die Playtaste des eingebetteteN Windows median Player betätigt und auf Vollansicht stellt. am Ende des Makros soll wieder die Normalansicht erscheinen. Das Makro tut was es tuen soll nur muß vorher per Maus die Playtaste betätigt werden
Gruß
Jörn
Sub Plalist()
' Plalist Makro
' Tastenkombination: Strg+Umschalt+T
Range("AF20:AF1080").Select
Selection.Copy
Range("AG20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Video").sort.SortFields.Clear
ActiveWorkbook.Worksheets("Video").sort.SortFields.Add2 Key:=Range("AG20"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Video").sort
.SetRange Range("AG20:AG1080")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("AG20:AG54").Select
Selection.NumberFormat = "[h]:mm:ss"
Range("AG20").Select
Application.CutCopyMode = False
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Wait Now + TimeSerial(0, 0, 30)
Range("AG21").Select
If ActiveCell.Offset(0, 0) = "" Then Exit Sub
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Wait Now + TimeSerial(0, 0, 30)
Range("AG22").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("AG23").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Wait Now + TimeSerial(0, 0, 30)
Range("AG24").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("AG25").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Wait Now + TimeSerial(0, 0, 30)
Range("AG24").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("AG25").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("AG26").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Wait Now + TimeSerial(0, 0, 30)
End Sub