Formel in ein Makro integrieren
23.01.2006 20:38:56
Max
in einem Adressfeld (A1) steht ein Vor- und Zuname, bspw. "Hans Meier".
Gespeichert werden soll aber unter "Meier, Hans".
Läßt sich das Makro zum Speichern:
Sub Speichern()
Dim Pfad$, Datei$, Filter$, Endg$, File
Pfad = "C:\Test"
Datei = ActiveSheet.Range("A1")
If Datei = "" Then
MsgBox "Ohne Vor- u. Zuname ist kein Speichern möglich", vbExclamation
Exit Sub
End If
Endg = ".xls"
If InStr(Datei, Endg) = 0 Then
Datei = Datei & Endg
End If
Filter = "Excel Files (*" & Endg & "), *" & Endg
File = Application.GetSaveAsFilename(Pfad & Datei, Filter)
If File <> False Then ActiveWorkbook.SaveAs Filename:=File
End Sub
mit dieser Formel verbinden:
WENN(A1"";RECHTS(A1;LÄNGE(A1)-FINDEN(" ";A1))&", "&LINKS(A1;FINDEN(" ";A1)-1);"")
oder muß ich den Namen vor dem Speichern verdeckt in der Tabelle drehen?
Danke für eure Hilfe!
Gruß
Max
Anzeige