AW: dynamisch kopieren
29.03.2006 10:47:07
IngGi
Hallo Artur,
das kann vorkommen, wenn es keine oder nicht genügend Daten zum kopieren gibt (
Sub kopieren()
Dim strDatei As String
strDatei = Application.GetOpenFilename
Workbooks.Open Filename:=strDatei
With ActiveWorkbook.Sheets(1)
If .Range("E1") = "" Then
ElseIf .Range("E65536").End(xlUp).Row < 10 Then
.Range(Range("E65536").End(xlUp).Offset(-(.Range("E65536").End(xlUp).Row - 1), 0), _
Range("E65536").End(xlUp).Offset(0, 11)).Copy _
Destination:=ThisWorkbook.Sheets(1).Range("BN5")
Else
.Range(Range("E65536").End(xlUp).Offset(-9, 0), _
Range("E65536").End(xlUp).Offset(0, 11)).Copy _
Destination:=ThisWorkbook.Sheets(1).Range("BN5")
End If
If .Range("U1") = "" Then
ElseIf .Range("U65536").End(xlUp).Row < 10 Then
.Range(Range("U65536").End(xlUp).Offset(-(.Range("U65536").End(xlUp).Row - 1), 0), _
Range("U65536").End(xlUp).Offset(0, 16)).Copy _
Destination:=ThisWorkbook.Sheets(1).Range("BN20")
Else
.Range(Range("U65536").End(xlUp).Offset(-9, 0), _
Range("U65536").End(xlUp).Offset(0, 16)).Copy _
Destination:=ThisWorkbook.Sheets(1).Range("BN20")
End If
If .Range("AP1") = "" Then
ElseIf .Range("AP65536").End(xlUp).Row < 10 Then
.Range(Range("AP65536").End(xlUp).Offset(-(.Range("AP65536").End(xlUp).Row - 1), 0), _
Range("AP65536").End(xlUp).Offset(0, 17)).Copy _
Destination:=ThisWorkbook.Sheets(1).Range("BN35")
Else
.Range(Range("AP65536").End(xlUp).Offset(-9, 0), _
Range("AP65536").End(xlUp).Offset(0, 17)).Copy _
Destination:=ThisWorkbook.Sheets(1).Range("BN35")
End If
End With
End Sub
Gruß Ingolf