import immer in falscher zeile
07.08.2019 14:24:55
Richard
komme mit meinem Code nicht weiter
Daten werden aus einer Quelldatei ausgelesen und in die Zieldatei importiert - funktioniert auch jedoch beim import werden die Daten immer ab Zeile 21 angelegt.
2. Möchte gerne noch eine Exit Sub einbauen wenn der Dialog File Open abgebrochen wird mit meinem On Error funktioniert es nicht
hier der Code:
Private Sub cmb_Termine_import_Click() 'aus tbl_verfolgung importieren
Dim wbQuelldatei As Workbook
Dim wbZieldatei As Workbook
Dim strPfadQuelle As String
Dim i As Integer
Dim intLastQuelle As Integer
Dim intLastZiel As Integer
Dim intAuswahl As Integer
' On Error GoTo FehlerVerarbeitung
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "C:\Users\" & Environ$("username") & "\Documents\DB Slivi\DB\Archiv\ _
Auftraggeber\" 'suche Daten im Ordner
.Show
For intAuswahl = 1 To .SelectedItems.Count
Set wbQuelldatei = GetObject(.SelectedItems(intAuswahl))
Next intAuswahl
Set wbZieldatei = ActiveWorkbook
intLastQuelle = wbQuelldatei.Worksheets(1).UsedRange.Rows.Count 'Ermittlung der letzten _
beschriebenen Zeile (Quelldatei)
intLastZiel = wbZieldatei.Worksheets(1).UsedRange.Rows.Count 'Ermittlung der letzten _
beschriebenen Zeile (Zieldatei)
With wbQuelldatei.Worksheets(1)
For i = 2 To intLastQuelle
If .Cells(i, 1).Value "" Then 'Bedingung wenn in A nicht leer
.Cells(i, 1).EntireRow.Copy
wbZieldatei.Worksheets(5).Cells(intLastZiel + 1, 1).EntireRow.Insert
intLastZiel = intLastZiel + 1
End If
Next i
End With
End With
'FehlerVerarbeitung:
' MsgBox " Frühzeitiger abbruch, Programm beenden"
' Exit Sub
End Sub
Richard