Taste F2 und ENTER ausführen
13.07.2006 17:43:31
Tino
könnt Ihr mir helfen?
Möchte in eienem Zellbereich die Taste F2 und Enter ausführen
um Zahlen die beim Import als Text in der Zelle stehen in Zahlen
umzuwandeln. Bei mir öffnet sich aber immer der Opjektkatalog
und die Tasten werden nicht ausgeführt.
Wo liegt mein Fehler?
Sub Taste()
Dim zelle2 As Object
For Each zelle2 In Sheets(1).Range("A1:C50")
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next zelle2
End Sub
Danke und Gruss
Tino