F2 und Enter & Mehrere Worksheets in Schleibe
17.04.2018 17:00:40
Christian
mein Problem.
Die Ausführung von F2 und Enter erfolgt nur im "Blatt 2" und dass mehrmals und nicht im "Blatt 1".
Wie schaffe ich dass, das er mir beim "Blatt 1" und "Blatt 2" die F2 und Enter durchführt?
Sub Test()
For Each Current In Worksheets
If Current.Name = "Blatt 1" Or _
Current.Name = "Blatt 2" Then
Sheets(Current.Name).Activate
countrow = 0
countrow = WorksheetFunction.CountA(Sheets(Current.Name).Range("V:V")) 'Auslesen von _
Zeilenanzahl
Dim zelle2 As Object
Sheets(Current.Name).Range(Cells(2, 2), Cells(countrow, 2)).Select
For Each zelle2 In Selection
SendKeys "{F2}", True
SendKeys "1", True
SendKeys "{ENTER}", True
Next zelle2
End If
Next Current
End Sub