|
Hallo
da in deinem Code keine Variable vorhanden ist kannst du auf jeden Fall die Zeile mit Din löschen
in deinem ersten gezeigten Code stand vor jedem .Cells... noch ActiveSheet
jetzt nicht mehr
der Punkt vor Cells erwartet aber eine Anweisung zu welchem Tabellenblatt es gehört
also entweder entfernst du den Punkt vor .Cells
oder du schreibst wieder überall ActiveSheet davor
oder du setzt es in eine With-Anweisung
das würde dann so aussehen
With ActiveSheet
.Cells(Rows.Count... und soweiter
.Cells(Rows.Count... und so weiter
usw....
usw...
End With
oder du ersetzt ActiveSheet durch den Tabellenblattnamen
With Sheets("Tabelle1")
MfG Tom
|