Matrixfunction verhindert Speichern der Datei
16.01.2004 17:41:25
Maren
habe ein kleines Problem. Ich möchte eine Datei speichern in dem ich den Dateiname aus einer Zelle auslese. Die Datei soll dann unter diesem Namen der in der betreffenden Zelle gespeichert werden, dann schließen und die Originaldatei unverändert lassen. In der Datei ist in einer Tabelle eine selbstgebastelte function, die überprüft welche bestimmte Zeichenfolge aus einer bestimmten Anzahl von Zeichenfolgen enthalten ist. Diese Routine läuft in einer Endlosschleife und verhindert das Speichern der Datei. Kann mir jemand bitte helfen und mir das Makro so anpassen das beim Speichern das Rechnen der Schleife verhindert wird aber die gefundene Zeichenfolge weiter angezeigt wird??????
Funktion Matrixsuche
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
matrixsuche(A16:A285;D35200))
Speichern
Private Sub CommandButton2_Click()
Application.DisplayAlerts = False
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