Thema Datum  Von Nutzer Rating
Antwort
29.12.2016 19:59:07 Dennis
NotSolved
Blau Status- und Fehlermeldungen in Textbox ausgeben
 29.12.2016 21:02:38 Gast83184
NotSolved
30.12.2016 17:11:43 Dennis
NotSolved
30.12.2016 17:25:47 Dennis
NotSolved

Ansicht des Beitrags:
Von:
Gast83184		 Datum:
29.12.2016 21:02:38		 Views:
630		 Rating:
     
Antwort:
  Ja
Thema:
Status- und Fehlermeldungen in Textbox ausgeben

Erstell dir eine UserForm (Name: usfMessage) mit ner TextBox (Name: TextBox1) drin.

In dies packst du:

'UserForm: usfMessage
Option Explicit

Private Sub UserForm_Initialize()
  TextBox1.Locked = True
  TextBox1.MultiLine = True
  TextBox1.BackColor = rgbLightGray
  TextBox1.ForeColor = rgbDarkRed
  TextBox1.ScrollBars = fmScrollBarsBoth
End Sub

Public Sub AddMessage(Message As String)
  If TextBox1.Text <> "" Then
    TextBox1.Text = TextBox1.Text & vbNewLine & Message
  Else
    TextBox1.Text = Message
  End If
End Sub

Public Sub ClearMessages()
  TextBox1.Text = ""
End Sub

Ein Beispiel zur Verwendung:

'Modul
Option Explicit

Sub Test()
  
  usfMessage.ClearMessages
  usfMessage.AddMessage "Huhu! - Nachricht1."
  usfMessage.AddMessage "Ich bin nicht da. - Nachricht2."
  usfMessage.Show
  
End Sub

Du tust also einmalig am Anfang deiner Dinge den Inhalt leeren und tust dann in deinen Methoden einfach nur per AddMessage der TextBox eine neue Nachricht hinzufügen.

 

So in der Art ...

 

Grüße

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
29.12.2016 19:59:07 Dennis
NotSolved
Blau Status- und Fehlermeldungen in Textbox ausgeben
 29.12.2016 21:02:38 Gast83184
NotSolved
30.12.2016 17:11:43 Dennis
NotSolved
30.12.2016 17:25:47 Dennis
NotSolved