Makro Suchen erweitern
16.06.2004 14:13:39
Sven
das unten bestehendes Makro öffnet das Suchfenster von Excell.
Kann mir jemand helfen wie das Makro aussehen könnte damit es in zwei
geöffneten Dateien (Test1.xls und Test2.xls) nach den Suchwert sucht?
' dieses Makro öffnet das Suchfenster in Excel
Sub Suchen()
Dim vers_ex As Integer
Dim excel_version As String
excel_version = Mid(Application.Version, 1, 2)
vers_ex = excel_version
If vers_ex > 10 Then ' -> erkennt die Excelversion
If MsgBox("Achtung, bei Excel 2003 nur mit der Maus 'Weitersuchen' klicken, sonst kann ein Fehler auftreten ", vbYesNo, "Excel 2003") = vbNo Then
Exit Sub
End If
End If
Cells.Select
Application.Dialogs(xlDialogFormulaFind).Show
ActiveCell.Select
End Sub