einzelne Zellen importieren
Markus
mit folgendem Code konnte ich (jetzt geändert) aus Dateien die Zeile A2:EA2 kopieren und in ein neues Datenblatt importieren. Nun möchte ich aber nicht eine Zeile importieren, sondern einzelne Zellen (C6,C8,C10,C12, D31, A35 usw.) Diese Zellen möchte ich dann in einem neuen Arbeitsblatt in die Spalte A2:I2 importieren, danach die nächste Zellen aus einer Tabelle usw. Die Arbeitsblätter ("Vorlagen") sind alle gleich aufgebaut und der Speicherpfad identisch. Ich habs nun lange probiert und viel gesucht, aber ich bekomms nicht hin. Habe den folgenden Code bereits teilweise angepasst. Bitte um eure Hilfe!
Anbei Code:
Sub TestLeseDaten()
Dim sFiles As String
Dim strPfad As String
Dim iCalc As Integer
Dim iCounter As Integer
Dim shZiel As Worksheet
Dim wbQuelle As Workbook
strPfad = "H:\Privatkunden\Vorlagen\"
UserForm_Anzeige.Repaint
Set shZiel = ActiveSheet
With Application
.ScreenUpdating = False
.EnableEvents = False
iCalc = .Calculation
.Calculation = xlCalculationManual
On Error GoTo ErrFehler:
sFiles = Dir$(strPfad)
Do While sFiles ""
Set wbQuelle = GetObject(strPfad & sFiles)
wbQuelle.Sheets("Vorlage").Range("C6").Resize(1, 9).Copy
shZiel.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
wbQuelle.Saved = True
wbQuelle.Close
sFiles = Dir$()
Loop
ErrFehler:
.ScreenUpdating = True
.EnableEvents = True
.Calculation = iCalc
End With
Unload UserForm_Anzeige
If Err.Number 0 Then MsgBox Err.Number & Chr(13) & Chr(13) & Err.Description, vbCritical, " _
Fehler """
End Sub