Office: Spalten neben Tabelle einbeziehen und wieder entfernen

Hallo,

ich habe in meinem Sheet "Liste" die Spalten B bis AA ab Zeile 8 als Tabelle formatiert. In Spalte A, welche nicht zur Tabelle gehört stehen Datumsangaben. In den Spalten AB bis AJ können ebenfalls Werte stehen.
Ich möchte nun per Makro Spalte A, sowie die Spalten AB bis AJ temporär in die Tabelle integrieren und auch wieder entfernen. (Zwischendurch werden die Zeilen nach dem Datum sortiert)
Dafür habe ich mir mit dem Makrorecorder 2 Codes aufgezeichnet.
Code:

Code:

Das Problem dabei ist, dass die Anzahl der Zeilen variiert.
Können die Codes so geändert werden, dass alle ausgefüllten Zeilen, egal wie viele darin berücksichtigt werden? Oder kann das ganz anders gelöst werden?

Vielen Dank im Voraus
manega

:)

 

Du weißt, es geht in A8 los. Das wäre die linke obere Ecke Deiner Tabelle.
Jetzt musste die rechte untere Ecke ermitteln.

Beim erweitern sowie verkleinern wird dir diese Information PLUS Deine Aufzeichnung helfen. Zwar nicht elegant, aber zweckmäßig.

Ich meine mich zu erinnern, dass Du mal gesagt hast, Du wolltest lernen und verstehen, arbeitest aber ausschließlich mit dem Rekorder.
Dir jetzt einen fertigen Code anstelle Hilfestellung zu geben wäre doch kontraproduktiv, nicht wahr ? *wink.gif*

Finde die "untere rechte Ecke". In der Suchfunktion gibt es diese Lösung zuhauf^2.

 

Hallo Marco,

vielen Dank für den Lösungsansatz.
Ich habe den Bereich durch
Code:

angepasst.
Das setzt jedoch voraus, dass auch wirklich die letzte Zelle aktiv ist.
Da die Spalten AB bis AJ zu diesem Zeitpunkt noch leer sind und erst später ausgefüllt werden funktioniert das nicht.
Es befinden sich nur im Tabellenbereich (B:AA) Werte und dort auch nicht in jeder Zelle. Definitiv aber in Spalte B.
Eine Möglichkeit wäre, dass die letzte beschriebene Zeile in Spalte B gesucht wird und in dieser Zeile die Zelle AJ selektiert wird.
Dann würde der Code funktionieren.

Du hast ja nicht ganz unrecht. Allerdings hänge ich schon seit Wochen an dieser Tabelle und die Zeit drängt. Ich habe bereits eine ganze Menge an Codes selber zusammengestellt und bin noch lange nicht fertig.
Daher wäre es sehr hilfreich, wenn Du mir doch einen (vor allem funktionierenden) Code geben würdest.

manega

 

Was bestimmt denn die letzte Zelle:
Das ListObject oder eine Spalte ausserhalb des ListObjects?

Das ListObject bietet entsprechende Eigenschaften an, um den letzten Datensatz innerhalb des ListObject zu ermitteln. (Stichhwort: OnlineHilfe ListObject)

Wenns eine Spalte außerhalb ist wird gern ...End(xlup).Row verwandt.

 

Nun habe ich doch selber eine für mich brauchbare Lösung gefunden. Diese ist bestimmt etwas umständlich, aber funktioniert!
Da dies ein Forum ist und der Eine oder Andere evtl. ein ähnliches Problem hat, möchte ich meine Ergebnisse nicht vorenthalten.

Code zum Erweitern der formatierten Tabelle:
Code:

Code zum verkleinern der formatierten Tabelle:
Code:

Was ich nicht wirklich erklären kann, ist wo in den Codes "Tabelle3" herkommt. In meiner Datei gibt es keine Tabelle3. Diese Teile sind mit dem Makrorecorder entstanden und funktioniern.

 

Der (ListObjects)Tabellenname wird intern durch Excel vergeben. Jedes Kind braucht seinen Namen.
Wenn Du nun die dynamische Tabelle anklickst, erweitert sich das Menüband um einen Eintrag - dieser Eintrag bezieht sich auf das ListObject. Wenn Du diesen Eintrag anklickst, wirst Du linksstehend den Namen finden. Dieser muss eindeutig sein und Excel wird das von vornerein sicherstellen. Es sei denn, Du erzeugst während der Laufzeit eine dynamische Tabelle(ListObject) und wirst über die Name-Eigenschaft einen eindeutigen Namen zuweisen.

 

Vielen Dank für die Info!

 

.Select brauchst Du in den wenigsten Situationen.
Womöglich dann, wenn Du via Einzelschritten den Code durchgehen und beobachten möchtest ohne gleich Daten zu manipulieren.

[Scherz] habe irgendwo mal gelesen, dass man den Cursor nicht gassiführen muss oder so ähnlich; weiss nur nicht mehr wo ... naja ...egal [/Scherz]


Deshalb hier der womöglich besser Umgang die letzte Zelle zu ermitteln ohne zu selektieren:
Ich habe auf das ActiveSheet für Dich referenziert, sodass die IntelleSense zur Verfügung steht.
Die Spalte "A" würde ich als zahl angeben, zum besseren nachvollziehen/code lesen habe ich es mal hardcodiert hinterlegt.


Summa summarum kannst Du nun folgenden Code mit Deinem verschmelzen:
Code: