Office: Zellbereich in anderes Tabellenblatt kopieren

Hallo Barbara_w,

Das könnte schon sein. *stupid

Ich habe auch schon den Debugg-Modus genutzt und bin jeden Schritt einzeln durchlaufen. Dazu habe ich die Fenster „Direktbereich“, „Lokal“ und „Überwachungsausdrücke“ eingeblendet. Dort werden mir die Tabelleneinträge aber nicht angezeigt. Vielleicht bin ich auch einfach zu blöd dazu. *rolleyes.gif*
Lediglich im Lokal-Fenster ändern sich die Zahlen für z.B. „i“, je nachdem, wie oft ich die Schleife durchlaufe.

Ich habe hier dieselbe Problematik wie zuvor.
In der Ausgangstabelle sind definitiv Leerzeilen zwischen den zu kopierenden Daten. Daher habe ich mich auf die bisherige Kopierfunktion gestützt und wollte dies – anstatt bisher für eine Spalte erfolgreich umgesetzt – auf einen Bereich (mehrere Spalten) erweitern.

Der eigentliche Aufbau der zu kopierenden Daten in der verwendeten Originaldatei sieht so aus:

Daten in J27 bis P27
Leerzeile (28)
Daten in J29 bis P29
Daten in J30 bis P30
Leerzeile (31)
Daten in J32 bis P32
Leerzeile (33)
Daten in J34 bis P34
Daten in J35 bis P35

Ich habe Tabellenblatt1 jetzt einfach mal um irgendwelche Zahlen in genau diesem Bereich erweitert.

Dazu muss ich vielleicht noch sagen, dass ich nicht der Ersteller der Exceldatei bin. Ich soll sie nur weiterentwickeln und aus den Zahlen Diagramme erstellen. Dafür benötige ich die Zahlen jedoch untereinander. Die Leerzeilen wurden aus optischen Gründen eingefügt und eine Änderung ist nicht erwünscht. *mad.gif*

In Anlehnung an den Code für die einzelne Spalte habe ich Deinen letzten Code nun wie folgt abgeändert:

Code:

Jetzt ist das Ergebnis so, wie ich es mir vorgestellt habe.

Vielen Dank für den „Schubser“ in die richtige Richtung. *top

 

Ich check es einfach nicht.
HomeOffice und Schulfrei erlauben keinen klaren Gedanken mehr. *depressed

Habe den Code jetzt in die Originaldatei implementiert.

Die Daten sollen monatlich in die Zieltabelle kopiert werden, beginnend im Januar ab Zelle C3. Jeden Monat kommt so ein Zahlenblock untereinander dazu.
Unter den zwölf Monaten gibt es noch eine Jahressummierung.

Da mit dem Code von unten nach oben gesucht wird, werden die Daten nun unter die Summierung eingefügt, da dies die erste leere Zeile ist. *rolleyes.gif*

In der angehängten Beispieldatei gibt es ja keine summierten Zahlen, so dass die erste freie Zeile natürlich ganz oben ist und der Code so auch funktioniert. Ich habe jetzt an der Stelle, wo in der Originaldatei die Zusammenfassung ist, Platzhalter eingetragen (Zeilen 75 bis 80).

Benötige ich jetzt doch wieder die Suche nach der leeren Zelle von oben?

EDIT: kann man die Suche insofern einschränken, das erst ab der Zeile 75 aufwärts gesucht wird?

 

Kann ich nachvollziehen...und dabei isses egal wie alt se sind ...

 

Habe die Lösung jetzt anscheinend gefunden, indem ich diese Zeile:

Code:

durch diese ersetzt habe:

Code:

EDIT: zu früh gefreut. ich versuche es weiter. Die Tabelle in der Originaldatei hat noch zwei weitere Spalten voran stehen. Die Daten werden also erst ab Spalte C eingefügt. Columns("A") durch Columns ("C") ersetzen bringt nicht die Lösung. Als Fehlermeldung kommt jetzt: Laufzeitfehler 13 'Typen unverträglich'

So, jetzt aber. Muss natürlich

Code:

heißen.

 

Vielleicht doch noch eine Frage, die sich jetzt im nachhinein ergeben hat:

Durch das wiederholte Button-Drücken erweitert sich die Tabelle ja dynamisch.

Ist es möglich, die entstandene Tabelle, nachdem durch den Klick auf den Button die Daten kopiert und hinzugefügt wurden, direkt nach Spalte E absteigend zu sortieren? In einem Arbeitsgang sozusagen.
Eine Spaltenüberschrift ist in der ersten Zeile A vorhanden.

Mein Code für die Kopierfunktion sieht jetzt so aus:

Code:

Ich denke, hierfür muss erst ermittelt werden, wie viele Zeilen die Tabelle nach dem Erweitern hat um diese dann absteigend zu sortieren, oder?