Hey,

funktioniert auch nicht wenn es nicht auskommentiert ist.

Ich habe es vorrübergehend so gelöst:

Ich habe im Sub set_worksheet bei der Prüfung welche beiden User miteinander kommunizieren, den Tabellen-Namen in eine Textbox übergeben
und nehme den Tabellen-Namen bei Sub new_message jetzt aus dieser Textbox. So funktioniert es.

 

'WORKSHEET-AUSWAHL NACH CHAT-PARTNER
Sub set_worksheet()
If Me.user_a.Caption = "Marius May" And Me.TextBox3.Value = "Ulrike" Then
        Me.TextBox5.Value = Worksheets("marius-ulrike").Name
End If
End Sub



'NEW-MESSAGE EVENTS
Sub new_message()
    Dim i As Integer
    
    With Sheets(Me.TextBox5.Value)
        i = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        
        .Cells(i, 1).Value = Me.TextBox4.Text
        .Cells(i, 2).Value = Me.user_a.Caption & " schrieb am: "
        .Cells(i, 3).Value = Date & " um: "
        .Cells(i, 4).Value = Time & " Uhr: "
        .Cells(i, 5).Value = Me.TextBox2.Text
        Me.TextBox2.Text = ""
    End With
End Sub

Ich kann aber auch mal gerne die Excel-Datei per google-drive zur Verfügung stellen.
https://drive.google.com/file/d/1DEGGzZDnsdupVtm7WIToghFsa-Jelj86/view?usp=share_link

Gruß Marius