Zeilenumbruch in TextFeld (UserForm)
17.11.2004 09:58:24
René
Ich suche eine Möglichkeit in einem UserForm in einem bestimmten TextFeld (Absende) den Zeilumbruch zu machen.
Ich möchte, dass beim Aufruf des UserForm im Textfeld (Absender) der Text mit Zielnumbruch angezeigt wird. Ebenfalls sollte der erfasste Text ebenfalls in der Zelle mit Zeilenumbruch dargestellt werden.
Private Sub cmd_Ok_Click()
' Autor: René Hürzeler
' Abt.: InfoSysteme CCM
' Erstellt: 16.11.2004
' Version: 01.01
' Die erfassten Daten
ActiveSheet.Range("A2") = txt_Absender
ActiveSheet.Range("A7") = txt_Telefon
ActiveSheet.Range("B7") = txt_Fax
ActiveSheet.Range("B9") = txt_MWST
ActiveSheet.Range("B11") = txt_Rechnung_nr
ActiveSheet.Range("F11") = txt_Datum
Range("A15").Select
Unload frm_Kopfdaten
End Sub
Private Sub UserForm_Initialize()
' Autor: René Hürzeler
' Abt.: InfoSysteme CCM
' Erstellt: 16.11.2004
' Version: 01.01
' Die bestehenden Daten (Werte) als Muster übernommen resp. angezeigt
txt_Absender = Worksheets("rechnung").Range("A2").Cells
txt_Telefon = Worksheets("rechnung").Range("A7").Cells
txt_Fax = Worksheets("rechnung").Range("B7").Cells
txt_MWST = Worksheets("rechnung").Range("B9").Cells
txt_Rechnung_nr = Worksheets("rechnung").Range("B11").Cells
txt_Datum = Worksheets("rechnung").Range("F11").Cells
End Sub
Besten Dank für die Hilfe und Unterstützung.
Mir Gruss
René
Anzeige