wie kann ich nachfolgenden Code so abändern, dass über "rng" das aktive Tabellenblatt angesprochen bzw. als Ausgangspkt. der Schleife deklariert wird...?
For rng = 1 To ActiveWorkbook.Sheets.Count Step 1
Sheets(rng).Activate
Cells(Range("A65536").End(xlUp).Offset(1, 0).Row, 1) = Userform1.TextBox3.Text
Next rng
End If
also quasi: (was natürlich nicht funktioniert)
For rng = ActiveSheet To ActiveWorkbook.Sheets.Count Step 1
Sheets(rng).Activate
Cells(Range("A65536").End(xlUp).Offset(1, 0).Row, 1) = Userform1.TextBox3.Text
Next rng
End If
lieben Dank