Hi,
danke für die Hilfe e hat mich weitergebracht. Nun habe sich meine Ansprüche etwas erhöht.
Ich habe den code jetzt soweit verändert, dass ich die Abfrage des Range automatisch mache.
Ich würde den gefundenen Bereich jetzt gern in meine offene Tabelle kopieren, alles was keine Zahl ist löschen und alle Kommas zu punkten machen.
die MsgBox nutze ich, um einen Fehler abzufangen
Sub DateiOeffnen()
Dim wbkOeffnen As Workbook
Dim varDatei As Variant
Dim rngResult As Range
varDatei = Application.GetOpenFilename(, , "Datei auswählen", , False)
If varDatei = False Then
MsgBox "Abgebrochen"
Else
Set wbkOeffnen = Workbooks.Open(varDatei, , , , , , , , , , , , False)
End If
On Error Resume Next
Set rngResult = ActiveSheet.UsedRange
With rngResult
Debug.Print .AddressLocal
End With
On Error GoTo 0
If rngResult Is Nothing Then
'>> Benutzer hat nichts ausgewählt
Exit Sub
End If
Exit Sub
End Sub
|