Hallo liebes Forum,
beim Übertragen eines Makros von einem XP auf einen Vista-Rechner,
Bekomme ich in der Zeile " SendKeys "{Home}", True " immer einen Laufzeit-Fehler und der Debugger öffnet sich.
Wieso passiert das bei XP nicht und bei Vista.
Vielen Dank für eure Hilfe
Liebe Grüße
Steffi
Nachfolgend das Makro :
Sub Berechnung_abschliessen()
'
' Berechnung_abschliessen Makro
' Makro am 02.09.2004 aufgezeichnet
'
' Tastenkombination: Strg+e
'
Dim SumStart, SumFormula As String
ActiveSheet.Unprotect
SendKeys "{Home}", True
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.EntireRow.Delete
SendKeys "{Left}", True
' ActiveSheet.HPageBreaks(1).Delete
SendKeys "+{Right 3}", True
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
|