Office: (Office 2013) Zeilen anhand von Benutzer ID ausblenden/löschen

Schönen guten Tag zusammen!

vorab, ich bin Excel-technisch nicht der aller "fitteste", demnach wende ich mich hiermit an euch.

Es geht um folgendes... Ich habe ein Formular(Excel-Datei) in welchem ich ein Botton eingebaut habe der es mir erlaubt das jetzige Formular lokal abzuspeichern und es dann als Anhang in eine Mail zu packen. Dazu (falls hilfreich) einmal kurz der Code

Code:

Private Sub CommandButton1_Click()
Dim olApp       As Object
Dim wdApp       As Object
Dim wdDoc       As Object
Dim wdRange     As Object
Dim olOldbody   As String
Dim olNewBody   As String
Dim lngZelle    As Long
Dim AWS         As String

Dim rngZelle     As Range
Dim rngBereich   As Range
Dim wksBlatt     As Worksheet
Dim strEmpfänger As String
Dim y            As Long




If ThisWorkbook.Saved = False Then
    
        'Die letzten Änderungen wurden noch nicht gespeichert
        Qe = MsgBox("Diese Mappe wurde noch nicht gespeichert, und kann nicht versandt werden!" _
        & Chr$(13) & "Soll die Datei gespeichert werden?", vbInformation + vbYesNo, "Sendefehler")
        If Qe = vbNo Then
        
            'Abbruch durch Benutzer
            MsgBox "Sendevorgang abgebrochen"
            Exit Sub
            
        Else
            'Prüfen ob die Datei schon mal gespeichert wurde
            If Right(ThisWorkbook.Name, 3) <> "xls" Then
                'Nein > Speicherdialog aufrufen
                Application.Dialogs(xlDialogSaveAs).Show
            Else
                'Speichern
                ThisWorkbook.Save
            End If
            
        End If
        
    End If
    


Rem Emailtext erstellen
olNewBody = "asfdsf" & "" ' Grußzeile
olNewBody = olNewBody & "fasdfasdf." & ""
olNewBody = olNewBody & "sdfasdfsad" & ""
olNewBody = olNewBody & "sfasfsd:"
olNewBody = olNewBody & "•asdfasdfsadf
"
olNewBody = olNewBody & "•sdfasdfsa.
"
olNewBody = olNewBody & "•fdasdfdsaf.
"
olNewBody = olNewBody & "Vielen Dank für Ihre Mitwirkung." & ""
olNewBody = olNewBody & "Freundliche Grüße"

'Die aktuelle Mappe als Anhang senden
    AWS = ThisWorkbook.FullName
Rem Outlook-Objekt erstellen
Set olApp = CreateObject("Outlook.Application")

y = 11

Set wksBlatt = ThisWorkbook.Worksheets("Anforderungsformular")
    With wksBlatt
    Set rngBereich = .Range("J11:J347")
    For Each rngZelle In rngBereich
       If Application.WorksheetFunction.CountIf(.Range("J11:J" & y), rngZelle.Value) = 1 _
       Then
       strEmpfänger = strEmpfänger & ";" & rngZelle.Value
       
            End If
       
            y = y + 1
            
        Next rngZelle
        strEmpfänger = Right(strEmpfänger, Len(strEmpfänger) - 1)
    End With




    Rem Email erstellen
    With olApp.CreateItem(0)
              .GetInspector.Display
              olOldbody = .htmlBody
              .to = strEmpfänger
              .Subject = "fasdfsd" & Date & " " & Time
              .htmlBody = olNewBody
              .Attachments.Add AWS
        
        Rem Word-Editor-Objekt erstellen (zum Formatieren erforderlich)
        Set wdApp = .GetInspector
        Set wdDoc = wdApp.WordEditor
        Set wdRange = wdDoc.Range
            wdRange.WholeStory
            

            
            Rem Emailtext formatieren
            With wdRange
            
                 Rem Schriftart und Schriftgröße festlegen
                 .Font.Name = "Calibri"
                 .Font.Size = 11
        
            End With
            
            Rem Untersreichen und Fett
            Set wdRange = wdDoc.Range(41, 69 + lngZelle)
                With wdRange
                    .Font.Underline = False
                    .Font.Bold = False
                End With
                
            Rem Emailtext um Signatur ergänzen
              .htmlBody = .htmlBody & olOldbody
              
           
            

    End With


Rem Objekte freigeben
Set wdRange = Nothing
Set wdDoc = Nothing
Set wdApp = Nothing
Set olApp = Nothing
End Sub

Nun zu meinem Problem:

In Spalte I des jetztigen Formular sind diejenigen E-Mail-Adressen hinterlegt welche in dem Botton als Empfänger-Mail herangezogen werden (werden über eine Auswahl in einem Dropdownmenü mitgezogen). Jetzt können innerhalb des Formulars natürlich mehrere Empfänger (nennen wir sie mal E) auftauchen die dann alle das gleiche Formular bekommen. Sie müssen sich derzeit Ihre jeweiligen Zeilen raussuchen und diese freigeben. Die Empfänger müssen das Formular jedoch an eine weitere Instanz (I) senden. Diese bekommt dann (bei 3 verschiedenen Empfängern) 3x das gleiche Formular.

Meine Lösung (falls euch bessere einfallen, gerne :) ) :
Die Lösung welche ich jedoch aufgrund meiner geringen VBA-Kenntnisse nicht umsetzen kann ist folgende:
Die Empfänger (E) des Formulars können nur mittels einer Dropdownliste herangezogen werden. Innerhalb der Bezüge zu dieser Dropdownliste kann ich auch die "Excel-UserID" hinterlegen. Nun möchte ich das nach Versand an den Empfänger, dieser nur diejenigen Zeilen sieht welche in Spalte "XY" seine UserID inne haben. Der Rest wird dann ausgeblendet oder (noch besser) direkt gelöscht. Nachdem die Empfänger das Formular dann an die nächste Instanz (I) weitersenden (dafür gibt es wiederum einen anderen Botton) muss natürlich die Funktion wieder verschwinden da die "nächste Instanz (I)" nur die Zeilen sehen soll welche der vorherige Empfänger auch sehen konnte.

Puuuhh... alles etwas kompliziert ich hoffe es ist einigermaßen verständlich! Im Anhang ist eine vereinfachte Datei welche den Zustand widerspiegelt in welchem das Formular ausgefüllt aussieht (Tabellenblatt: Zustand bei Ausfüllung) und wie es bei den jeweiligen Empfängern (E) und bei der weiteren Instanz (I) ankommen soll (Tabellenblätter M. Mustermann, A. Einstein, M. Planck).

Ich danke euch im Voraus recht herzlich!!!!
Gruß
Julian