Mein lieber PhillipLuepke,
1. Fehler im Code Cells(A, 1) - Laufzeitfehler
- Cells(RowIndex, ColumnIndex) - RowIndex : A ist nicht numerisch!
2. Generalfehler Sheets.Add – das neue Blatt wird zum aktiven Blatt und
- es bekommt einen neuen Tabellennamen und einen Codenamen dazu
3. sprichts du alle Tabellen über ihre Codenamen an
- Tabelle2.Cells
- besser Sheets("Tabelle2").cells(1,1) oder Sheets("Tabelle2").range("A1")
- was dich aber nicht davon befreit, dass "Tabelle2" auch für den Code verfügbar!
4. Range.Find – Find.Next Methode funktioniert nur einwandfrei, wenn
- die Suche im aktiven Blatt
- was mit Sheets.Add ja bereits " ad absurdum"
Excel 2013 Developer Documentation – oder gleiche für frühere Versionen:
- unter Range.Find Methode steht das klassische Beispiel wie mit find – findnext
Treffer in Bereichen gesucht werden und action dazu und
Tschüss
|