Leere Zeilen u. Spalten mittels VBA ausblenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim int_a As Integer For int_a = 5 To 64 '$A$5:$A$64 If IsEmpty(Cells(int_a, 1)) = True Then Rows(int_a).Hidden = True 'Wenn Spalte 1 leer dann ausblenden Next a For int_a = 2 To 63 '$B$1:$BK$1 If IsEmpty(Cells(1, int_a)) = True Then Columns(int_a).Hidden = True 'Wenn Zeile 1 leer dann ausblenden Next a End Sub

Sub zeilen_spalten_aus_ein() Dim rng As Range Dim n As Integer Set rng = Range("B5:BK64") Application.ScreenUpdating = False If Not blnHidden Then blnHidden = True For n = 1 To rng.Rows.Count If Application.CountA(rng.Rows(n)) = 0 Then rng.Rows(n).Hidden = blnHidden Next For n = 1 To rng.Columns.Count If Application.CountA(rng.Columns(n)) = 0 Then rng.Columns(n).Hidden = blnHidden Next Else blnHidden = False rng.Rows.Hidden = blnHidden rng.Columns.Hidden = blnHidden End If Application.ScreenUpdating = True End Sub

Hallo Sepp,
in der beigefügten Datei werden (aufgrund eines Makros) bis zu 8 Tabellenblätter eingerichtet, deren Bezeichnung sich nach den Angaben in der Spalte E (Bereich E4:E10) richtet (Kürzel).
Im vorliegenden Beispiel sind dies 6 solcher Tabellen (TH, FH, RB, KB, HM und FW). Diese Tabellen haben alle die gleiche Struktur und enthalten ab Zeile 5 Daten, die ich gerne in eine in der Datei enthaltene Tabelle mit der Bezeichnung Zusammenstellung übertragen (kopieren) möchte (Nur die in den Spalten A und C enthaltenen Daten. Aufgrund der Angabe in der Spalte B soll die Zuordnung zu den einzelnen Abteilungen erfolgen.)
Wichtig: die derzeitigen Formatierungen der Tabelle Zusammenstellung sollten auch nach der Eintragung erhalten bleiben.
Das Problem ist, dass in den jeweiligen Gruppen unterschiedliche Anzahl von Teilnehmern den einzelnen Abteilungen angehören (die maximale Anzahl ergibt sich aus der Struktur der Tabelle Zusammenstellung. Der Gruppenleiter TH erhält im vorliegenden Beispiel die höchstmögliche Teilnehmerzahl jeder Abteilung zugewiesen). Die Anordnung in der Tabelle Zusammenstellung sollte entsprechend der Reihenfolge in der Tabelle Daten erfolgen, dabei sollte der in der Spalte D enthaltene Namen des Gruppenleiters in die entsprechende Spalte der Zeile 4 der Tabelle Zusammenstellung eingetragen werden. Wie das Ergebnis anschließend aussehen sollte, habe ich - am Beispiel (!) des Gruppenleiters Felix Wunsch bereits in die Tabelle Zusammenstellung eingetragen.
Danke für Deine Bemühungen!!
Gruß
Fritz

Hallo Sepp,
ich habe die Datei ausführlich getestet und bin fasziniert.
Wie Du das so schnell und so perfekt umgesetzt hast: einfach Klasse.
Getrau mir deshalb kaum, weitere Wünsche zu äußern, aber getreu nach Wilhelm Busch: "Ein Wunsch wird er erfüllt, kriegt augenblicklich Junge", tu ich´s trotzdem:
Falls eine Gruppe wegfällt (z.B. wenn die Zahl der Gruppen von 6 auf 5 verringert wird (entsprechend der Eintragung in der Tabelle "Daten"), sollte dies bei der Aktualisierung der Tabelle "Zusammenfassung" berücksichtigt werden.
Wenn es möglich ist, dass beim erneuten Anklicken der Zelle B1 in der Tabelle Zusammenfassung, der ursprüngliche Zustand wieder exakt hergestellt wird, d.h. alle Zellen werden wieder eingeblendet und zwar in der ursprünglichen Formatierung, wäre das toll.
Unabhängig davon, ob sich die beiden Ergänzungen noch realsieren lassen, vielen Dank für das bisher Geleistete! Bin Dir sehr dankbar dafür.
Ich beneide solche Könner - um ihre Fähigkeiten. Wenn ich das alles könnte, da würd ich einiges dafür geben.
Viele Grüße
besonders auch den den Filius!
vom Namensvetter des Kuscheltieres.
P.S.
Wenn Du mir die Adresse (Sohn) mitteilst, schick ich ihm was zum Weihnachtsfest!!

Beliebteste Forumthreads (12 Monate)

Leere Zeilen u. Spalten mittels VBA ausblenden

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Leere Zeilen u. Spalten mittels VBA ausblenden

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread