Verhindern das Excel beim Speichern rechnet
18.01.2004 19:18:04
Maren
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim WB
If Workbooks.Count > 1 Then
For Each WB In Application.Workbooks
If WB.Name <> ActiveWorkbook.Name Then
WB.Save
WB.Close
End If
Next
End If
Range("B10").Select
If Len(ActiveCell) = 0 Then
MsgBox ("Bitte Patientenname eingeben!")
Else
ActiveWorkbook.SaveAs FileName:="C:\Daten\" & ActiveCell() & ".xls"
ThisWorkbook.Close False
End If
End Sub
Die function sieht so aus
Function matrixsuche(m, n As Range) As String
anzahl = m.Rows.Count
Zeilen = n.Rows.Count
Spalten = n.Columns.Count
matrixsuche = "Eigenschaft nicht vorhanden"
For k = 1 To anzahl
a = m.Cells(k).Value
For i = 1 To Zeilen
For j = 1 To Spalten
b = n.Cells(i, j).Value
If a = b Then
matrixsuche = a
Exit Function
End If
Next j
Next i
Next k
End Function
Bei Ausführen dieses Makros bekomme ich aber Probleme weil die function immerzu weiterrechnet. Die Datei schließt nicht und ich muss mit Task killen.
Weiß jemand einen Rat wie man die function so gestalten kann, dass sie aufhört zu rechnen wenn ein Ergebnis berechnet ist, bzw. kann man das Speichermakro so modifizieren das Excel beim Speichern mit diesem Makro aufhört zu rechnen aber alle in der Datei berechneten Werte erhalten bleiben.
Vielleicht weiß ja jemand wie man das hinbekommt, wäre sehr dankbar.
Liebe Grüße Maren