Worksheets.Cells geht nicht?

Computer: Software & Programmierung Visual Basic
#1

Hallo,

folgender Part in meinem Anfängerscript macht mir Sorgen:

Worksheets(„Lösung“).Cells(Rows.Count, 4).End(xlUp).Select
Dim row
row = ActiveCell.row

Das soll funktionieren, auch wenn man nicht gerade das sheet „Lösung“ aktiviert hat.

Worksheets(„Lösung“).Select
Cells(Rows.Count, 4).End(xlUp).Select
Dim row
row = ActiveCell.row

Wäre eine Lösung, aber dann springt man ja in das Blatt, was ich nicht will.
Bei Worksheets(„Lösung“).Range(„a1“).select funktioniert alles wunderbar… Woran liegts?

BTW wie verhindere ich, dass dabei wirklich das Blatt gewechselt wird?

Danke und lg

#2

Hallo,
folgender Part in meinem Anfängerscript macht mir Sorgen:

Worksheets(„Lösung“).Cells(Rows.Count, 4).End(xlUp).Select
Dim row
row = ActiveCell.row

Select ist überhaupt unnötig, wie fast immer
row = Worksheets(„Lösung“).Cells(Rows.Count, 4).End(xlUp).row
row ist auch schlecht weil reservierter Bezeichner

Das soll funktionieren, auch wenn man nicht gerade das sheet
„Lösung“ aktiviert hat.

Worksheets(„Lösung“).Select
Cells(Rows.Count, 4).End(xlUp).Select

referenziert implizit ActiveSheet

Dim row
row = ActiveCell.row

Wäre eine Lösung, aber dann springt man ja in das Blatt, was
ich nicht will.
Bei Worksheets(„Lösung“).Range(„a1“).select funktioniert alles
wunderbar… Woran liegts?

BTW wie verhindere ich, dass dabei wirklich das Blatt
gewechselt wird?

Gewöhn Dir das Select(en) ab…

Gruß HW