Variablen Bereich markieren
Beffen
ich habe mal wieder ein Problem bei dem ich wegen ner Kleinigkeit nicht weiterkomme.
Ich würde gerne in einer entfernten Datei einen bestimmten Bereich markieren. Leider funktioniert die Methode
Range(lngfirstRow, lngLastRow).Select
nicht ganz so, wie ich mir das vorgestellt hab - oder besser: gar nicht.
Ausserdem benötige ich den VBA-Sverweis. Ich habe hier zwei Tabellenblätter, die in einem Dritten zusammengefasst werden sollen....
Hat jemand nen Ansatz, der verwendbar ist?
Sub holedatencoglopad()
Dim lngfirstRow As Long
Dim lngLastRow As Long
Dim Pfad As String
Dim Blatt As String
ScreenUpdating = False
Pfad = Worksheets("system").Range("a2")
Workbooks.Open Pfad
With ActiveSheet
lngfirstRow = .Cells.Find(What:="3000000", After:=Range("h1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
MsgBox lngfirstRow
End With
With ActiveSheet
lngLastRow = .Cells.Find(What:="*", After:=Range("h1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
MsgBox lngLastRow
End With
Range(lngfirstRow, lngLastRow).Select
Selection.Copy
ThisWorkbook.Activate
Sheets("tempcoglopad").Select
Cells.Select
ActiveSheet.Paste
MsgBox "Daten importiert"
ScreenUpdating = True
End Sub
Gruß Beffen
Anzeige