habe folgenden Code in einem Klassenmodul:
Private Sub clTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Or KeyCode = 9 Then
If clTextBox.Tag = 95 Then
'Hier vielleicht Anweisung für Zeilensprung!!!!
Exit Sub
End If
If IsNumeric(clTextBox) Then
Call berechnung
Dim i As Integer
For i = 7 To 81
Select Case i
Case 7 To 23, 25 To 66, 80, 81
Kalkulation.Controls("textbox" & i).Value = Format(Kalkulation.Controls("textbox" & i). _
Value, "#,##0.00")
End Select
Next i
End If
End If
End Sub
Ich würde gerne in einer Textbox mit dem Tag 95 bei Enter-drücken nicht, wie bei allen anderen Textboxen, ein Makro (Call Berechnung) ausführen, sondern ein Zeilensprung in der Textbox hervorrufen.
Hat jemand eine Idee, wie dafür die Anweisung sein könnte? Oder bin ich mit meinem Versuch schon ganz daneben?
Gruß
Uli