Markierung zu groß!
30.08.2006 09:07:49
Eickhe
'Zählt nicht leere Zellen in der Querytabelle
myRange = Worksheets(Query_Sheet).Range("A:A")
resultat = Application.WorksheetFunction.CountA(myRange)
anzahl = resultat - 27
'Zieht die Zellen runter
Range("A3:AV3").Select
Selection.AutoFill Destination:=Range("A3:AV" & anzahl), Type:=xlFillDefault
Nachdem die Datenmenge in letzter Zeit zugenommen hat, funktioniert das Makro nicht mehr richtig. Es kommt die Fehlermeldung "Markierung zu groß". Und Excel bleibt in der letzten Zeile stehen.
Wie kann ich die Fehlermeldung umgehen?
Gruss Hermann