Hallo!
Ich habe folgenden Code:
With Sheets("Binf neu (2)").Cells(Range("AE65536").End(xlUp).Row + 1, 31)
.Value = fBHZ.bhztxt6.Text
End With
With Sheets("Binf neu (2)").Cells(Range("AE65536").End(xlUp).Row + 1, 31)
.Value = fBHZ.bhztxt6.Text
End With
Kann man bitte den Code so kürzen dass "With Sheets("Binf neu (2)")." und "End With" nur einmal vorkommt und dazwischen der code für die Textboxen ist?
Wo müßte ich hier bitte etwas ändern?
So funktioniert es leider nicht.
With Sheets("Binf neu (2)")
.Cells(Range("AE65536").End(xlUp).Row + 1, 31)
.Value = fBHZ.bhztxt6.Text
.Cells(Range("AE65536").End(xlUp).Row + 1, 31)
.Value = fBHZ.bhztxt6.Text
End With
Danke
Josef