Tabelle Spalten ausblenden

Hallo zusammen,
ich habe eine Tabelle, die durch einen VBA code berechnet wird. Manchmal gibt es Spalten in der Tabelle die alle den gleichen Eintrag "0(0 %)" haben. Ich möchte diese Spalten ausblenden oder löschen. Ich habe nun zwei Probleme.
1. ist über dieser Tabelle ist eine weitere Tabelle und wenn ich die ganze Spalte ausblende, ist sie auch in der anderen ausgeblendet.
2. Wie kann ich nur in der einer Tabellenspalte alle Einträge vergleichen ohne in der gesamten Spalte zu suchen. denn ist die obere Tabelle kleiner, ändert sich die erste Zeile der unteren Spalte. Die Tabellen haben einen Namen, womit man auf diese explizit zugreifen kann.
Ich hatte mir etwas überlegt wie (Minimalbeispiel):
for j= 1 to endj
for i= 1 to endi
If Cell(i,j)="0(0 %)"then
If Cell(i,j)="0(0 %)"then
usw then
lösche Spalte j
End if
usw
next i
next j
Schön ist das aber nicht.
Vielen Dank schonmal.
Gruß Mole

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Günter,
Ja es ist sehr heiß. Hier noch einmal für Sie mit Code-Tag und überarbeitetem Code. Ich denke mit der vorangegangenen Beschreibung ist der Code selbsterklärend. Es handelt sich hierbei wohlgemerkt um einen Pseudocode und nicht um korrekten Syntax.
Dennoch nochmal zu Erinnerung: Zwei untereinander stehende Tabellen (Tabelle1 und 2). In Tabelle2 sollen die Spalten, die nur aus "0(0%)" Einträgen bestehen, gelöscht oder ggf. ausgeblendet werden, sollte dies einfacher umzusetzen sein.


sub löscheSpalte()
delete as boolean
letzteZeileTabelle2 ,ErsteZeileTabelle2,letzteZeileTabelle2 as integer
letzteZeileTabelle2 ,ErsteZeileTabelle2,letzteZeileTabelle2 = ?
for j= 1 to letzteSpalteTabelle2 (Spalten)
delete = true
for i= ErsteZeileTabelle2 to letzteZeileTabelle2 (Zeilen)
If Cell(i,j)="0(0 %)"then
do nothing
else
delete = false
End if
Next i
if delete = true then
lösche Spalte j
End if
Next j
End sub

Hiermit lösche ich die Spalten, die nur aus Einträgen mit "0(0 %)" bestehen.
Mit diesem Code lösche ich aber auch die Spalte j der Tabelle1, die über meiner durchsuchten Tabelle2 steht. Nun bleiben weiterhin zwei Probleme:
1. Es soll nur Spalte j der Tabelle2 gelöscht werden und nicht Spalte j im Worksheet.
Wie kann ich den befehl "lösche Spalte j" in VBA umsetzen, so dass nur Spalte j aus Tabelle2 gelöscht wird.
2. Wie kann ich die Werte von letzteZeileTabelle2 ,ErsteZeileTabelle2,letzteZeileTabelle2 ermitteln (deshalb ? im Code), da sich diese dynamisch verhalten und variieren können.
Ich hoffe, dass dies ausreichend ist, dass Sie mir einen Lösungsvorschlag unterbreiten können, Günther.
Gerne auch nur mit Pseudocode, sofern nicht explizit notwendige Befehle verwendet werden müssen.
Ich will ja etwas lernen und nicht abschreiben.
Gruß Mole

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabelle Spalten ausblenden

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread