Ich nutze Excel 2013 auf einem Windows 10 PC.
Ich habe mir ein kleines Makro gebastelt, um ein paar Daten aus der Tabelle in ein WordPad-Dokument zu schreiben:
Sub Bestellzettel()
Dim Adresse As DataObject
Dim sTxt As String
Dim irow As Long
Set Adresse = New DataObject
irow = ActiveCell.Row
Adresse.SetText Range("Vorname").Cells(irow) & " " & Range("Nachname").Cells(irow)
Adresse.PutInClipboard
Shell "C:\Program Files\Windows NT\Accessories\wordpad.exe C:\Privat\WordPad-Vorlage.rtf", 1
SendKeys "^V"
End Sub
Wenn ich das Makro ausführe, wird auf meiner Tastatur die NumLock-Funktion des Ziffernblocks immer deaktiviert.Lässt sich das irgendwie verhindern?
Gruß
Ingo