Per VBA definierte Range verschieben
23.08.2018 14:32:09
RK
Wie angehangene Datei zeigt verfügt meine Excel-Datei über zwei Registerblätter und je 3 Zeilen (1,4,7) in deren Spalten (A-H) Daten stehen. Ich möchte ein Makro schreiben, dass die Range zum zählen mit jedem Durchlauf um 3 Zeilen nach unten verschiebt. Diese Prozedur für beide Registerblätter.
Mein bestehendes Makro arbeitet die erste Zeile problemlos ab.
Möchte ich jedoch in meinem Makro die auskommendtierte Zeile verwenden, um die Verschiebung eingeben zu können, erhalte ich folgenden Fehler:
Laufzeitfehler 1004
Anwendungs- oder objektdefinierter Fehler
Makro:
Sub zählen()
Dim Range As Range
For i = 1 To Sheets.Count
Set ZRB = ThisWorkbook.Sheets(i)
Set Range = ZRB.Range("A1:H1")
'Set Range = ZRB.Range(Cells(1, 1), Cells(1, 8))
k = Application.WorksheetFunction.CountA(Range)
ZRB.Cells(1, 10) = k
Next
End Sub
Datei:
https://www.herber.de/bbs/user/123517.zip
Ich bitte um Hilfe.
Weiss mir keinen Rat mehr.