Das ist der Schluss:
If
TextBox28 <>
""
Then
Bemerkungen =
Me
.TextBox29.Value
Range(
"C52"
).Activate
Do
Until
ActiveCell.Value =
""
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Value = Bemerkungen
Else
Lagerkessel =
Me
.TextBox28.Value
Range(
"C51"
).Activate
Do
Until
ActiveCell.Value =
""
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Value = Lagerkessel
End
If
Bemerkungen =
Me
.TextBox29.Value
Range(
"C52"
).Activate
Do
Until
ActiveCell.Value =
""
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Value = Bemerkungen
Unload
Me
End
Sub