|
Hallo,
die folgende Variante, aber call set_worksheet nicht auskommentieren. Nur "with Sheets(ws)" in "with ws" ändern.
Das aukommentieren war nur für Variante 2 erforderlich.
Sub new_message()
Dim i As Integer
Dim ws As Worksheet
' Call set_worksheet
<u><strong>With ws </strong></u>'<- Fehlermeldung "Objektvariable oder With-Blockvariable nicht definiert."
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
|