Code vereinfachen ( Hallo Andreas)
01.06.2004 00:38:19
Gerald
folgender Code
Private Sub CommandButton1_Click()
Workbooks("Steuer.xls").Worksheets("Ausgaben").Range("b1000"). _
End(xlUp).Offset(1, 0) = ActiveCell.Offset(-1, 0).Value
Workbooks("Steuer.xls").Worksheets("Ausgaben").Range("b1000"). _
End(xlUp).Offset(2, 0) = ActiveCell.Offset(-3, 0).Value
Workbooks("Steuer.xls").Worksheets("Ausgaben").Range("b1000"). _
End(xlUp).Offset(3, 0) = ActiveCell.Offset(-2, 0).Value
End Sub
sollte kürzer gestaltet werden, da kommt nämlich noch mehr dazu.
Sämtliche Versuche über Dim WK as Workbooks und ws as Worksheets sind bei mir leider gescheitert. Fange ja auch gerade erst an :-]
Ach so: wird von einer Datei ausgelesen un in Datei Steuer geschrieben.
Schönen Dank schon mal
Gerald