Hallo Thomas,
änder diese Zeile:
lngErste = Application.CountA(.Columns(7)) + 3
so
lngErste = Application.CountA(.Columns(2)) + 3
Kleine Anmerkung am Rande, statt zu kopieren können die Werte direkt übernommen werden, nach folgendem Schema:
Tabell1.Range("A1") = Tabell2.Range("A1").Value
Dann wirst Du in nicht allzu langer Zeit keine Freude mehr mit der Datei haben, wenn nicht vorher ein Arbeiten damit unmöglich wird.
Das hatte ich Dir aber schon mal geschrieben, glaube ich.
Hallo atilla,
Vielen Dank für deinen Beitrag. Ich konnte leider keinen vorherigen Beitrag von dir in meinen Threads finden?
Was meinst du damit dass ich bald keine Freude mehr an der Datei haben werde? Habe ich was grundsätzliches übersehen? Leider versteh ich die Anmerkung auch nicht ganz: ich vermute das ich damit die Werte übertragen kann aber nur innerhalb Tabellen oder? Empfiehlst du die Umschreibung der Erfassungsmaske?
Bezüglich der Änderung denk ich dass ich in der falschen Spalte gesucht habe?
Entschuldige dass ich es noch nicht ganz verstehe.
Schöne Grüße Thomas
Hallo Thomas,
kann sein, dass ich das bisher nicht geschrieben, sondern nur gedacht habe.
Warum ich das denke:
- schon jetzt, obwohl kaum Daten vorhanden, dauert das Öffnen der Datei eine gewisse Zeit.
- Du hast sehr viele Farben und Formatierungen in Deinen Tabellen, diese blähen die Datei immer mehr auf.
- Du arbeitest mit vielen Bedingten Formatierungen, die gehen an die Performance und blähen auch auf.
Die Codes habe ich mir im einzelnen nicht genauer angeguckt.
Kann sein, dass so wie im Erwähnten noch Einsparpotenzial da ist, was die Performance positiv beeinflusst.
Wenn Du aber zufrieden bist und sie richtig funktionieren, lass es, wie es ist.
Fazit: in der Summe der aufgeführten Dinge kann die Datei problematisch werden.
Deine anfängliche Frage ist aber gelöst, oder nicht?
Hallo atilla,
hab gerade deinen Code testen können. Vielen Dank er funktioniert!
Den Rest werde ich mir aber auch nochmal anschauen, vielleicht fällt mir noch was ein.
Vielen Dank für deine Hilfe und schöne Grüße
Thomas