Tastatureingabe verhindern während Makro läuft

	

Sub Konvert()

	Dim e As Range

	Dim varValue As String

	Dim bez As Variant

	Dim dName$

	Application.ScreenUpdating = False

	dName = "C:\Auftrag\Orginal\Rechnung 2002.xls"

	mappe = "C:\Auftrag\Rechng\"

	Workbooks.Open Filename:=dName

	Set e = Worksheets("Angebot").Range("J11")

	e.Value = e.Value + 1

	ActiveWorkbook.Save

	varValue = Application.InputBox _

	("Bitte Bezeichnung des Projekt eingeben:", , varValue)

	Worksheets("tab").Cells(1, 1) = Date

	Worksheets("tab").Cells(1, 2) = varValue

	ActiveWorkbook.SaveAs Filename:=mappe & Range("J11") _

	& "     " & Worksheets("tab").Cells(1, 2) & "     " & Format(Now, "hh.mm") & _

	" " & Date & ".xls", FileFormat:=xlNormal 'Workbook

End Sub

Gruß und Dank

Harald