Anwendung vbLf
04.09.2008 13:04:00
Sylv
leider bin ich was VBA angeht eine blutige Anfängerin, vieleicht könnt Ihr mir bei einem Problem helfen, bei dem ich nicht weiter komme.
Ich habe mir eine Userform erstellt in der mehrere Textfelder eingebettet sind. Wenn nun bei der Abfrage in dem Textfeld manuell ein Absatz erstellt wird, übernimmt Excel ein Absatzzeichen als Zeichen im Text der Zelle. Durch die Infos hier bin ich schon soweit gekommen, dass ich irgendwo den Befehl 'vbLf' einsetzen muss, nur habe ich keine Ahnung wo :-(.
Hier der Code zur Übernahme der Texte aus den Textfeldern:
Private Sub OK_Click()
Sheets("Rohdaten").Select
z = Range("A1").End(xlDown).Row + 1
If z > 65000 Then z = 2
Cells(z, 1) = TextBox1
Cells(z, 2) = TextBox2
Cells(z, 3) = TextBox3
Cells(z, 7) = CommandButton1.Caption
Sheets("Ergebnis").Select
Unload Me
End Sub
Ach, zusätzlich habe ich in der Userform auch ein Feld, für das aktuelle Datum, hier auch dieser Code:
Private Sub UserForm_Initialize()
Application.WindowState = xlMaximized
With Me
.Top = 0
.Left = 0
.Height = Application.Height
.Width = Application.Width
End With
Dim NameFürBezeichnungsfeld1, NameFürSchaltfläche1
NameFürBezeichnungsfeld1 = Evaluate("AB1").value
NameFürSchaltfläche1 = Evaluate("AA1").value
Label1 = NameFürBezeichnungsfeld1
CommandButton1.Caption = NameFürSchaltfläche1
End Sub
Könnt Ihr mir hier weiterhelfen?
Gruß Sylv