Assign Sub-Tasks or workaround for use case where this is needed

There is help needed for this issue!

You can not setup Excel that way, but it is possible to assign macros to the number keys to emulate that.

Copy the code into a regular module

Run EnableOneKey, then type a 9 and/or 1

Run DisableOneKey, then type a 9 and/or 1

You have to create the other subs for the number keys 2 to 8 by yourself.

Andreas.

Option Explicit

Sub EnableOneKey()

  Application.OnKey "1", "One"

  Application.OnKey "9", "Nine"

End Sub

Sub DisableOneKey()

  Application.OnKey "1"

  Application.OnKey "9"

End Sub

Sub One()

  ActiveCell = 1

  SwitchToNextCell

End Sub

Sub Nine()

  ActiveCell = 9

  SwitchToNextCell

End Sub

Private Sub SwitchToNextCell()

  Select Case Application.MoveAfterReturnDirection

    Case xlDown

      ActiveCell.Offset(1).Select

    Case xlUp

      ActiveCell.Offset(-1).Select

    Case xlToLeft

      ActiveCell.Offset(, -1).Select

    Case xlToRight

      ActiveCell.Offset(, 1).Select

  End Select

End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim Table As ListObject Dim Where As Range, This As Range, All As Range  Set Table = Target.ListObject 'Ist hier überhaupt eine Tabelle? If Table Is Nothing Then Exit Sub  With Table 'Ist diese evt. leer? If .DataBodyRange Is Nothing Then Exit Sub 'Wurde in Spalte Ablage was geändert? Set Where = Intersect(Target, .ListColumns("Ablage").DataBodyRange) If Where Is Nothing Then Exit Sub 'Suche alle X und leere die Zeile Application.EnableEvents = False For Each This In Where If StrComp(This, "X", vbTextCompare) = 0 Then Intersect(.DataBodyRange, This.EntireRow).ClearContents End If Next Application.EnableEvents = True End WithEnd Sub

Noch eine Zusatzfrage
Was muss gemacht werden damit der Cursor gleich auf die nächste Zeile springt?
Sub Makro6() ' Tastenkombination: Strg+n ' Dim Where As Range, R As Range Set Where = Intersect(Selection.EntireRow, Range("E:E"), ActiveSheet.UsedRange) If Where Is Nothing Then Exit Sub For Each R In Where R.Offset(, -2).Value = R.Value Next End Sub

Hallo IvanVukovic,



Wie im Artikel oben beschrieben:



"There’s a special process for including participants who aren’t members of your SharePoint organization. In this process, a site member acts as a proxy for the outside participant:



1.Include the email address of the outside participant in the appropriate Assign To stage on the second page of the association form.





2.The workflow actually assigns the outside participant’s task to the site member who starts the workflow — or, if the workflow starts automatically, to the member who originally added the workflow. This person to whom the task is actually assigned acts
as the proxy for the outside participant.





3.This site member receives a task notification, with instructions to send a copy of the item for review to the outside participant. (Meanwhile, the outside participant receives a copy of the task notification, which can function as a useful alert or heads-up.)





4.The site member to whom the task is actually assigned sends a copy of the item to the outside participant.





5.The outside participant reviews the item and sends back their response to the site member.





6.When the outside participant’s response arrives, the site member completes the task in SharePoint products on behalf of the outside participant."





Für weitere Fragen stehe ich gerne zur Verfügung



Mit freundlichen Grüßen,



Desislava Dimova



Microsoft Office 365 Support Engineer