VBA - Strg+Pos1

Question

Guten Morgen allseits!

Ich habe ein Problem mit dem Positionieren des Cursors via VBA.
Dies wurde u. a. schon im Posting www.supportnet.de/threads/1697089 erörtert, jedoch funktioniert bei mir dies nicht.

Unter www.file-upload.net/download-9874329/Strg-Pos1.xls.html habe ich meine Musterdatei samt Problemstellung abgelegt.

Vielleicht hat ja jemand dankenderweise einen Tipp für mich.

Ciao

Tom

Answer 1

Hallo Tom,

versuch es mal mit der Anweisung

Application.SendKeys "^{HOME}"

Gruß

M.O.

Answer 2

Hallo M.O.!

Danke für den Tipp mit dem ^.

Leider funktioniert aber der Code
Sub Soll_Code()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Application.SendKeys "^{HOME}"
Next ws
End Sub
nicht wie gewünscht.

Nur am aktuellen Blatt wird Application.SendKeys "^{HOME}" ausgeführt.
Mache ich da noch etwas falsch?

Ciao

Tom

Answer 3

Hallo Tom,

SendKeys auf mehreren Arbeitsblättern ist etwas problematisch.

So sollte es funktionieren:

Sub Soll_Code()
Dim i as Long

For i = 1 To Sheets.Count
With Worksheets(i)
.Activate
.Application.SendKeys "^{HOME}"
End With
DoEvents

Next i

End Sub

Gruß

M.O.

Answer 4

Hallo M.O.!

Danke! Danke! Danke!
Du hast mir sehr geholfen.

Ciao

Tom