Tastatureingabe verhindern während Makro läuft
29.12.2002 10:18:07
Harald K
wie kan ich verhindern das das Makro durch eine Tastatureingabe abgebrochen wird.
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