Hi,
ich bin mir nicht sicher ob dir das hilft, ich arbeite gerade an einem vergleichbarem Problem.
Sub DateiOeffnen()
Dim wbkOeffnen As Workbook
Dim varDatei As Variant
Dim rngResult As Range
varDatei = Application.GetOpenFilename(("Excel Datei(en) (*.xlsx),*.xlsx, (*.csv),*.csv"), , "Datei auswählen", , False) 'Import
If varDatei = False Then
MsgBox "Nicht Aufgeben", vbExclamation, p_cstrAppMsgTitel
Else
Set wbkOeffnen = Workbooks.Open(varDatei, , , , , , , , , , , , False)
End If
On Error Resume Next
Set rngResult = ActiveSheet.UsedRange 'Bereich suchen
With rngResult.Copy
'With ThisWorkbook.Paste
'Debug.Print rngResult.Paste
End With
On Error GoTo 0
If rngResult Is Nothing Then
'>> Benutzer hat nichts ausgewählt
Exit Sub
End If
Exit Sub
'End With
End Sub
Das ist mein Code zum öffnen und Kopiern
|