Wie aktiviere ich ActiveSheet in ActiveWorkbook als das Fenster am oberen Bildschirmrand?

-1

Ich habe versucht, ein UserForm auszuführen, das Daten von Workbook("A") sammelt und das Ergebnis entweder an Workbook("A") oder Workbook("B") (ein anderes) ausgibt. Wenn das Ergebnis an die Arbeitsmappe ("B") gesendet wird, würde ich Workbook("B").Activate, Sheets(1).Activate verwenden. Aber nachdem das UserForm entladen ist und das Makro abgeschlossen ist, bin ich immer noch in der Workbook("A"), obwohl der Titel der Arbeitsmappe schattiert ist (was bedeutet, dass Arbeitsmappe ("A") nicht AciveWorkbook ist).Wie aktiviere ich ActiveSheet in ActiveWorkbook als das Fenster am oberen Bildschirmrand?

Wie bringe ich das echte ActiveWorkbook Workbook("B") an den oberen Rand meines Computerbildschirms?

Quelle

2017-04-30 Nicholas

Ohne Ihre Codierung zu sehen, können wir nichts tun, als zu raten. Können Sie den Teil dieses Codes bereitstellen? Eine Sache, an die ich denken kann, ist, dass Sie 'Application.ScreenUpdating = True' vergessen, aber es ist natürlich eine Vermutung. – Tehscript

@Tehscript Ich kann meinen Code nicht posten, weil er zu viel ist. Aber ich habe 'Application.ScreenUpdating = True'. Übrigens, ich glaube, dass dieses Problem mit der Eigenschaft windowstate zusammenhängt. – Nicholas

@Nicholas 'Application.ScreenUpdating' tut nichts für Sie. – Masoud

Dies sollte für Sie arbeiten.

Dim wb1 As Workbook, wb2 As Workbook 
Set wb1 = Workbooks("A") 
Set wb2 = Workbooks("B") 
wb2.Sheets(1).Activate

Quelle

2017-05-01 04:10:11 sktneer

Wie aktiviere ich ActiveSheet in ActiveWorkbook als das Fenster am oberen Bildschirmrand?

Antwort

Verwandte Themen