irgendwie funktioniert es nicht?! Index ausserhalb des gültigen Bereichs?
Hat jemand eine Idee?
Danke und Gruss
Salim
Private Sub CommandButton1_Click()
Me.Hide
Application.ScreenUpdating = False
Dim fn
fn = Application.GetOpenFilename(FileFilter:="Excel-Arbeitsmappen,*.xls", Title:="Bitte _
Datei auswählen")
If fn = False Then
'Nothing
Exit Sub
End If
With fn
If Worksheets("Übersichtsblatt").Range("A1").Value = "" Then
MsgBox ("Richtig")
End If
MsgBox ("Falsch")
End With
End Sub