Hallo zusammen
Kann mir jemand echt Helfen?
Ich habe unten den Code zum Daten importieren in Excel. Jetzt habe ich das Problem das der Code nur Daten Importiert von der Zelle A2 und die darunter.
Ich will aber die Zellen C7, C8, C9, C10, H7,H8, H9 UND D44 angeben.
Code:
Private Sub A1_5_AADA_PersonalienAusDateienErfassen(Angaben(), Z)
Dim Cur_Dir$, Pfad$, DateiName$, i%
Cur_Dir = CurDir
Pfad$ = Angaben(Z, 0)
DateiName = Angaben(Z, 1)
ChDrive Pfad
ChDir Pfad
Workbooks.Open DateiName, , True
ActiveWorkbook.Sheets("Ordnen").Activate
For i = 0 To UBound(Angaben, 2) - 2
Angaben(Z, i + 2) = Range("A2").Offset(i * 1).Value
Next i
If ActiveWorkbook.Name = DateiName Then
ActiveWorkbook.Close (False)
Else
MsgBox "Fehler", 16
End
End If
ChDrive Cur_Dir
ChDir Cur_Dir
ThisWorkbook.Activate
End Sub