Thema Datum  Von Nutzer Rating
Antwort
13.01.2023 14:37:09 Marius
NotSolved
13.01.2023 14:49:36 Gast28365
NotSolved
Rot Probleme mit Worksheet Variable / Versuch 2
13.01.2023 15:06:54 Marius
NotSolved
13.01.2023 21:18:25 ralf_b
Solved
16.01.2023 13:39:37 Marius
NotSolved
13.01.2023 16:19:27 Gast41486
NotSolved

Ansicht des Beitrags:
Von:
Marius
Datum:
13.01.2023 15:06:54
Views:
157
Rating: Antwort:
  Ja
Thema:
Probleme mit Worksheet Variable / Versuch 2

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.01.2023 14:37:09 Marius
NotSolved
13.01.2023 14:49:36 Gast28365
NotSolved
Rot Probleme mit Worksheet Variable / Versuch 2
13.01.2023 15:06:54 Marius
NotSolved
13.01.2023 21:18:25 ralf_b
Solved
16.01.2023 13:39:37 Marius
NotSolved
13.01.2023 16:19:27 Gast41486
NotSolved