Get.Open Methode
14.05.2005 14:53:40
Frank
ich wähle mit der GetOpen Methode eine Datei aus. Die weitere Bearbeitung hört aber auf, sobald die Datei am Bilschirm erscheint. Normal soll dann Spalte A bearbeitet werden. kommt auch keine Fehlermeldung - hat jemand einen Tip?
Gruß Frank
Private Sub CommandButton1_Click()
Dim varRetval As Variant 'Rückgabe
Dim arrText, i As Integer, iCnt As Long
'Öffnen-Dialog anzeigen:
varRetval = Application.GetOpenFilename( _
FileFilter:="Microsoft Excel-Dateien (*.*), *.*", _
Title:="EINE Datei zum Öffnen auswählen")
'Wenn "Abbrechen" geklickt wurde -> Exit Sub
If varRetval = False Then Exit Sub
'... andernfalls Datei öffnen
On Error Resume Next
Workbooks.Open Filename:=varRetval ' ab hier ist Feierabend?
For iCnt = 1 To Range("A65536").End(xlUp).Row
arrText = Split(Cells(iCnt, 1), ";")
For i = 0 To UBound(arrText)
Cells(iCnt, i + 1) = arrText(i)
Next i
Next iCnt
Columns("D:G").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
Application.ScreenUpdating = False
Range("A1").Select
On Error GoTo 0
End Sub
Anzeige