Wie selektieren umgehen?
07.01.2006 15:38:23
Peter
Mit nachfolgendem Code hole ich einige Werte aus der vorigen Tabelle meines Workbooks. Da ich nicht weiss, wieviele es jeweils sind (Anzahl Zeilen wechselt), habe ich eine Schlaufe eingebaut.
Nun habe ich schon einige Male gelesen, dass das Arbeiten mit selektieren und aktivieren nicht "modern" ist.
Es ist mir aber nicht klar, wie ich beispielsweise diesen Code umschreiben müsste, damit ich selection nicht mehr brauche.
Die VBA-Basics bei www.herber.de habe ich durchgesehen, konnte meine Lösung davon jedoch nicht ableiten (vielleicht habe ich am falschen Ort geschaut).
Kann mir jemand am konkreten Beispiel aufzeigen, wie man's anstellt, damit selection nicht mehr gebraucht wird?
Danke, Peter
Sub aVBA_SumIf()
Dim aBook As String
Dim aSheet As String
Dim vsheet As String
Dim x As Variant
Dim zNr As Long
ThisWorkbook.Activate
aBook = ActiveWorkbook.Name
aSheet = ActiveSheet.Name
vsheet = Worksheets(ActiveSheet.Index - 1).Name
Debug.Print vsheet
Application.Goto reference:=Range("d5")
zNr = ActiveCell.Row
Do While ActiveCell.Offset(0, -2) <> ""
Debug.Print zNr
x = Application.WorksheetFunction.SumIf(Workbooks(aBook).Sheets(vsheet).Range("B:B"), ActiveSheet.Range("B" & zNr), Workbooks(aBook).Sheets(vsheet).Range("C:C"))
ActiveCell = x
ActiveCell.Offset(1, 0).Select
zNr = zNr + 1
Loop
End Sub