Datenimport nach Thisworkbook
markus
leider habe ich im archiv nichts passendes gefunden.
Kurze Problemschilderung:
Ich importiere Daten von einem Excelfile (Activeworkbook) in eine Übersichtsliste (Thisworkbook).
Hierbei tritt ein Fehler auf. Er findet "thisworkbook.activecell(##)" nicht. Ich kann aber den namen des sheets nicht festlegen, da das makro in 4 versch. Sheets zum einsatz kommen soll.
Gibt es möglichkeiten, dieses anders zu formulieren oder komplett umzuschreiben?
Sub datenImport()
Dim filetoopen As String
Application.ScreenUpdating = False
ChDrive "C:\"
filetoopen = Application.GetOpenFilename("Excel Files(*.xls), *.xls")
If filetoopen "False" And filetoopen "Falsch" And filetoopen "" Then
Workbooks.Open filetoopen
End If
Dim i As Byte
With ActiveWorkbook
For i = 0 To 5
.Sheets("Tabelle1").Cells(6 + i, 1) = ThisWorkbook.ActiveCell.Offset(5 + i, 2)
Next i
End Sub
hoffe ihr könnt mir weiterhelfen!
danke vorab!