ich habe mir ein kleines programm gebastelt,
es laeuft (bis jetzt) ohne fehler.
nun ich moechte wissen
erstens: was kann ich in dem code verbessern.
zweitens: kann ich den code noch zusaetzlich verkuerzen
und wen ja, dann wie ?
drittens: wie muss ich die korrekte variablendeklaration schreiben, hier habe ich immer noch probleme.
danke marc :- }}
Option Explicit
Sub AB_Error_90_93()
With Worksheets("Abt.190")
.Range("AA8") = Worksheets("190.1.a").Range("W4").Value
.Range("AA9") = Worksheets("190.2.a").Range("W4").Value
.Range("AA10") = Worksheets("190.3.a").Range("W4").Value
.Range("AA11") = Worksheets("190.KF.a").Range("W4").Value
.Range("AB8") = Worksheets("190.1.b").Range("W4").Value
.Range("AB9") = Worksheets("190.2.b").Range("W4").Value
.Range("AB10") = Worksheets("190.3.b").Range("W4").Value
.Range("AB11") = Worksheets("190.KF.b").Range("W4").Value
With Worksheets("Abt.193")
.Range("AA8") = Worksheets("193.1.a").Range("W4").Value
.Range("AA9") = Worksheets("193.2.a").Range("W4").Value
.Range("AA10") = Worksheets("193.3.a").Range("W4").Value
.Range("AA11") = Worksheets("193.4.a").Range("W4").Value
.Range("AA12") = Worksheets("193.KF.a").Range("W4").Value
.Range("AB8") = Worksheets("193.1.b").Range("W4").Value
.Range("AB9") = Worksheets("193.2.b").Range("W4").Value
.Range("AB10") = Worksheets("193.3.b").Range("W4").Value
.Range("AB11") = Worksheets("193.4.b").Range("W4").Value
.Range("AB12") = Worksheets("193.KF.b").Range("W4").Value
Application.ScreenUpdating = False
sheets("DatBank.193").Activate
Range("G65536").End(xlUp).Offset(1, 0).Activate
ActiveCell.Offset(0, 0).Activate
With sheets("Abt.190")
ActiveCell.Offset(0, 0) = Worksheets("Abt.190").Range("AA12").Value
ActiveCell.Offset(0, 1) = Worksheets("Abt.190").Range("AB12").Value
sheets("DatBank.193").Activate
Range("C65536").End(xlUp).Offset(1, 0).Activate
ActiveCell.Offset(0, 0).Activate
With sheets("Abt.193")
ActiveCell.Offset(0, 0) = Worksheets("Abt.193").Range("AA13").Value
ActiveCell.Offset(0, 1) = Worksheets("Abt.193").Range("AB13").Value
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("BQ27").Activate
End With
End With
End With
End With
End Sub