Range
03.03.2016 18:51:15
Wolfgang
An folgendem Problem sitze ich schon längere Zeit:
Ich möchte in .Range("A2:I174").Copy.... einen zuvor ermittelten Bereich einsetzen, siehe den auskommentierten Teil.
Ich vermute einen Typkonflikt bei .Range(...), weiss aber nicht mehr weiter.
Sub Kopieren()
Dim strAppPfad As String
Dim strQuelleMappe As String
Dim strQuelleBlatt As String
Dim strZielMappe As String
Dim strZielBlatt As String
Dim strLetztesFeld As String
'Dim iLetzteZeile As Integer
'Dim strKopierBereich As String
Dim wbkQuelle As Workbook
strAppPfad = "D:\Benutzer\WS\Documents\EXCEL-Beispiele\Versuche\"
strQuelleMappe = "Basisliste.xlsx"
strQuelleBlatt = "Basisliste"
strZielMappe = "TestSelect.xlsm"
strZielBlatt = "Tabelle1"
Set wbkQuelle = Application.Workbooks.Open(strAppPfad & strQuelleMappe) 'Quelle öffnen
' ---------------- Der Teil funktioniert nicht
'iLetzteZeile = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile der _
_
Tabelle
'strLetztesFeld = "I" & iLetzteZeile
'strKopierBereich = """A2" & ":" & strLetztesFeld & """"
'Workbooks(strQuelleMappe).Worksheets(strQuelleBlatt).Range(strKopierBereich).Copy _
Workbooks(strZielMappe).Worksheets(strZielBlatt).Range("A2") 'Daten von Quelle in _
Ziel kopieren
Workbooks(strQuelleMappe).Worksheets(strQuelleBlatt).Range("A2:I174").Copy _
Workbooks(strZielMappe).Worksheets(strZielBlatt).Range("A2") 'Daten von Quelle in _
Ziel kopieren
Application.CutCopyMode = False 'Kopieren beenden
wbkQuelle.Close 'Quelle schließen
End Sub