Forms.CheckBox - Add
29.05.2009 13:48:07
Reiner
ich würde mich freuen, wenn ihr mal ein Stück Code prüfen könntet.
Aufgabenstellung:
1) ich habe ein Datenblatt mit ca. 1500 Zeilen
2) in jede Zeile soll eine Checkbox zur späteren manuellen Auswahl eingebaut werden
Ergebnis:
1) das nachfolgende makro kommt bis ca. Zeile 1200
2) der Fehler: Automatisierungsfehler (400) Element nicht gefunden
3) der Fehler bleibt trotz Excelneustart bzw. reboot
4) das Laden der Mappe dauert sehr lange (Fehlerbehandlung?)
5) in dieser Mappe ist kein Code mehr zum Laufen zu bekommen (obige Fehlermeldung)
6) Daten und Codeübernahme in eine neue Mappe führte zu gleichem Ergebnis (bis ca. Zeile 1200)
Fragen an wissende Mitstreiter:
1) ist meine Vorgehensweise grundsätzlich falsch / wenn ja, wie dann?
2) welches Element könnte nicht gefunden werden/kann ich das beheben?
Ich danke Euch für die Hinweise- Reiner
Sub Makro1()
Application.ScreenUpdating = False
Call Shapes_löschen
Dim n As Long
For n = 2 To ThisWorkbook.Sheets("Pflanzen_dt_lat").Cells(1, 1).CurrentRegion.Rows.Count
If Cells(n, 1) "" Then
Application.StatusBar = "Füge in Zeile " & n & " neue Checkbox ein!"
If ActiveSheet.Rows(n).RowHeight