Kopieren ohne "+"
10.01.2006 11:21:20
AndreasB
Ich habe in Excel in den Cells(i,1) folgende "Werte" stehen:
Cells(1,1): LF1+LF2+LF3
Cells(2,1): LF10+LF20+LF21
...
Mit dem untenstehenden Makro möchte ich diese Zellen in den
Editor kopieren.
Im Editor erscheinen aber die "+" nicht!
Was mache ich falsch?
Schöne Grüße und Danke
Andreas
Sub Forum()
Dim i
Dim a(100)
For i = 1 To 100
a(i) = Cells(i, 1)
Next i
AppActivate "Editor", True
For i = 1 To 100
Application.SendKeys a(i), True
Next i
End Sub
Anzeige