|
Hallo liebe Leute,
ich wuerde gerne eine Zeile aus einem Excel File in ein anderes hineinkopieren, und auch noch bestimmen koennen, wo die Zeile im neuen File ist.
Vielleicht koennte mir jemand sagen, was ich meinem code (er kopiert nur eine Zelle in die gerade angeklickte zelle) aendern muss, damit ich das obengenannte become.
Hier ist der Code:
Sub Zeile_auslesen()
'** Dimensioning of the Variables
Dim path As String, file As String, sheet As String, ref As String
'** Angaben zur auszulesenden Zelle
path = "C:\Users\seitzcl\Desktop"
file = "Flexible_Budget_2016 (4).xlsx"
sheet = "900101"
ref = "D97"
ActiveCell.Value = GetValue(path, file, sheet, ref)
End Sub
Private Function GetValue(path, file, sheet, ref)
' Retrieves a value from a closed workbook
Dim arg As String
' Make sure the file exists
If Right(path, 1) <> Application.PathSeparator Then path = path & Application.PathSeparator
If Dir(path & file) = "" Then
GetValue = "File nicht gefunden"
Exit Function
End If
' Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
' Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function
Vielen Vielen Dank fuer euere Hilfe :)) |