Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Handybike vom 29.06.2019, 13:36 Options
automatisch Zellen verstecken
Hallo Community,
ich habe mal wieder ein Problem wo ich nciht weiter komme.
Also ich habe eine Excel Tabelle in der die Spalten Kalenderwochen für mehrere Jahre darstellen. Die ganzen Werte werden alle in einem Diagramm dargestellt. Nun möchte ich aber zum Beispiel alle Spalten die leer sind (weil für diese Woche noch keine Daten verfügbar sind) versteckt werden. Zusätzlich soll er auch nur die letzten 10 Wochen anzeigen. Also von der Logik her würde ich sagen merke dir die letzte Spalte wo Werte drin sind, ziehe 10 Spalten ab und dann markiere Spalte 3 bis zu der errechneten Spalte. So und dann geht es mit diesem Code weiter:
Selection.EntireColumn.Hidden = True
Aber genau diese Umsetzung der Markeirung bekomme ich nicht hin.
Würde mich tierisch freuen wenn mir jemand helfn könnte.
Dank und Gruß
Thomas.
Jede Woche werden neue Daten automatisch eingefügt und hinten angehangen.
ich habe mal wieder ein Problem wo ich nciht weiter komme.
Also ich habe eine Excel Tabelle in der die Spalten Kalenderwochen für mehrere Jahre darstellen. Die ganzen Werte werden alle in einem Diagramm dargestellt. Nun möchte ich aber zum Beispiel alle Spalten die leer sind (weil für diese Woche noch keine Daten verfügbar sind) versteckt werden. Zusätzlich soll er auch nur die letzten 10 Wochen anzeigen. Also von der Logik her würde ich sagen merke dir die letzte Spalte wo Werte drin sind, ziehe 10 Spalten ab und dann markiere Spalte 3 bis zu der errechneten Spalte. So und dann geht es mit diesem Code weiter:
Selection.EntireColumn.Hidden = True
Aber genau diese Umsetzung der Markeirung bekomme ich nicht hin.
Würde mich tierisch freuen wenn mir jemand helfn könnte.
Dank und Gruß
Thomas.
Jede Woche werden neue Daten automatisch eingefügt und hinten angehangen.
Antwort 1 von Beverly vom 29.06.2019, 16:16 Options
Hi Thomas,
Anzahl der belegten Spalten wird in Zeile 2 ermittelt.
Bis später,
Karin
Range(Columns(3), Columns(IIf(IsEmpty(Cells(2, Columns.Count)), Cells(2, Columns.Count).End(xlToLeft).Column, Columns.Count) - 10)).Hidden = TrueAnzahl der belegten Spalten wird in Zeile 2 ermittelt.
Bis später,
Karin
Antwort 2 von Handybike vom 02.07.2019, 08:53 Options
hey danke für die Hilfe, werde das gleich mal probieren!
Gruß Thomas
Gruß Thomas
Antwort 3 von Handybike vom 09.07.2019, 14:28 Options
Hallo Karin oder auch andere,
also deine Lösung hat super funktioniert wenn man nicht auf Objekte zugreifen muss. Kurz zur Erklärung. Also ich habe eine Excel Datei in der ich das Makro geschrieben habe. Von dieser Datei aus öffnen ich drei weitere Excel Dateien (week, month und target) aus diesen Dateien suche ich mir bestimmte Daten raus, die dann in eine vierte Datei kopiert werden sollen. Und diese vierte Datei ist die Datei in der ich nur die letzten zehn Wochen angezeigt bekommen will.
Kurz noch zu den Variablen die ich verwende. Also
wbTemplate as Excel.Workbook
wsTepmlate as Excel.Worksheet
Im wbTemplate ist ganz normal die Exceldatei geöffnet und wsTemplate bekommt durch: Set wsTemplate = wbTemplate.Worksheets("main") ihr Arbeitblatt zugewiesen.
Wenn ich jetzt irgendetwas machen will, dann fange ich halt immer an mit "wsTemplate." und dann die jeweilgen Anweisungen.
Als ich jetzt das Ganze mit dem Quellcode von dir versucht habe, hat das leider nicht geklappt. Es kommt dann immer der Anwendungsfehler 1004 "Anwendungs- oder objektdefinierter Fehler"
wsTemplate.Range(Columns(3), Columns(IIf(IsEmpty(Cells(2, Columns.Count)), Cells(2, Columns.Count).End(xlToLeft).Column, Columns.Count) - 10)).Hidden = True
Hast du oder jemand anderes eine Idee, wie das anderste klappen könnte? Wenn ja immer her da mit bin für jeden Vorschlag dankbar.
Gruß Thomas
also deine Lösung hat super funktioniert wenn man nicht auf Objekte zugreifen muss. Kurz zur Erklärung. Also ich habe eine Excel Datei in der ich das Makro geschrieben habe. Von dieser Datei aus öffnen ich drei weitere Excel Dateien (week, month und target) aus diesen Dateien suche ich mir bestimmte Daten raus, die dann in eine vierte Datei kopiert werden sollen. Und diese vierte Datei ist die Datei in der ich nur die letzten zehn Wochen angezeigt bekommen will.
Kurz noch zu den Variablen die ich verwende. Also
wbTemplate as Excel.Workbook
wsTepmlate as Excel.Worksheet
Im wbTemplate ist ganz normal die Exceldatei geöffnet und wsTemplate bekommt durch: Set wsTemplate = wbTemplate.Worksheets("main") ihr Arbeitblatt zugewiesen.
Wenn ich jetzt irgendetwas machen will, dann fange ich halt immer an mit "wsTemplate." und dann die jeweilgen Anweisungen.
Als ich jetzt das Ganze mit dem Quellcode von dir versucht habe, hat das leider nicht geklappt. Es kommt dann immer der Anwendungsfehler 1004 "Anwendungs- oder objektdefinierter Fehler"
wsTemplate.Range(Columns(3), Columns(IIf(IsEmpty(Cells(2, Columns.Count)), Cells(2, Columns.Count).End(xlToLeft).Column, Columns.Count) - 10)).Hidden = True
Hast du oder jemand anderes eine Idee, wie das anderste klappen könnte? Wenn ja immer her da mit bin für jeden Vorschlag dankbar.
Gruß Thomas
Ähnliche Themen
2 Zellen in Tabellenblatt 1in Tabellenblatt 2 automatisch übernehmen
shayenne27 17.10.2007 - 90 Hits - 7 Antworten
Festplatte verstecken
Vateradler 27.10.2007 - 217 Hits - 4 Antworten
Zellenformat
jofischi 01.11.2007 - 79 Hits - 2 Antworten
Ausfüllen automatisch
HNRAYK 05.03.2008 - 66 Hits - 2 Antworten
ordner verstecken bei vista
yuhuu 01.04.2008 - 104 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
