Hier mein code:
Sub Schaltfläche21_BeiKlick()
Dim rngBereich As Range
Dim lngAbZeile As Long
Dim y As Long
Dim lngSpalte As Long
IngAbZeile = 2
lngSpalte = 6 '=F
Set wksTabelle = Workbooks("Projektexcel.xls").Worksheets("Vorgangstabelle1")
y = wksTabelle.Cells(Rows.Count, lngSpalte).End(xlUp).Row
MsgBox (y)
Workbooks("Projektexcel.xls").Activate
Worksheets("Vorgangstabelle1").Select
rngBereich = ActiveSheet.Range(ActiveSheet.Cells(lngAbZeile, lngSpalte), ActiveSheet.Cells(y, lngSpalte)).Select
rngBereich.Select
Selection.Copy
Workbooks("formular.xls").Activate
Worksheets("Daten").Select
Range("F2").Select
ActiveSheet.Paste
End Sub
aber mit " rngBereich = ActiveSheet.Range(ActiveSheet.Cells(lngAbZeile, lngSpalte), ActiveSheet.Cells(y, lngSpalte)).Select" hat er ein problem, kann mir jemand helfen?
|