- #1
A
Ace_NoOne
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 07.04.2002
- Beiträge
- 403
- Reaktionspunkte
- 0
- Ort
- Germany
Hallo zusammen,
ich arbeite an einer Excel-Tabelle mit ca. 1500 Zeilen und 28 Spalten. Beim Ausdrucken sind jedoch nicht immer alle Spalten und Zeilen notwendig, also möchte ich diese ausblenden. Für die Spalten ist das kein Problem - aber bei den Zeilen ist das doch sehr viel Kleinarbeit, da nur die Zeilen ausgeblendet werden sollen, die in einer bestimmten Spalte keinen Wert haben (dort also leer sind).
Gibt es eine Möglichkeit, wie ich diesen Vorgang des Ausblendens der->Leerzeilen' (sie sind ja nicht wirklich komplett leer, eben nur in der jeweils betroffenen Spalte) automatisieren kann?
Könnte man das vielleicht mit einem Makro lösen - etwas in der Art IF([Wert von Zelle i|[Spalte]] == NULL) THEN [Ausblenden]? Leider kenne ich mich mit der Makro-Programmierung überhaupt nicht aus und weiß deshalb auch nicht, wie ich an die Sache rangehen soll.
Im Voraus vielen Dank!
UPDATE:
Durch das Studieren aufgezeichneter Makros konnte ich mir doch ein gewisses Verständnis der Funktionsweise von Makros aneignen. Somit bin ich zu diesem Code gekommen:
Ist das soweit okay? Es funktioniert zwar an meinem Testbeispiel, aber ich will kein Risiko eingehen (bei der->richtigen' Tabelle würden Fehler kaum entdeckt, was fatal enden könnte). Und vielleicht hat ja jemand noch Verbesserungsvorschläge (schließlich waren das meine ersten Schritte in Visual Basic)!?
ich arbeite an einer Excel-Tabelle mit ca. 1500 Zeilen und 28 Spalten. Beim Ausdrucken sind jedoch nicht immer alle Spalten und Zeilen notwendig, also möchte ich diese ausblenden. Für die Spalten ist das kein Problem - aber bei den Zeilen ist das doch sehr viel Kleinarbeit, da nur die Zeilen ausgeblendet werden sollen, die in einer bestimmten Spalte keinen Wert haben (dort also leer sind).
Gibt es eine Möglichkeit, wie ich diesen Vorgang des Ausblendens der->Leerzeilen' (sie sind ja nicht wirklich komplett leer, eben nur in der jeweils betroffenen Spalte) automatisieren kann?
Könnte man das vielleicht mit einem Makro lösen - etwas in der Art IF([Wert von Zelle i|[Spalte]] == NULL) THEN [Ausblenden]? Leider kenne ich mich mit der Makro-Programmierung überhaupt nicht aus und weiß deshalb auch nicht, wie ich an die Sache rangehen soll.
Im Voraus vielen Dank!
UPDATE:
Durch das Studieren aufgezeichneter Makros konnte ich mir doch ein gewisses Verständnis der Funktionsweise von Makros aneignen. Somit bin ich zu diesem Code gekommen:
Code:
Sub ausblenden()
'
' blendet Zeilen aus, die in einer
' bestimmten Spalte keinen Wert haben
'
Spalte = C
Zeilen = InputBox(Bitte die Anzahl der Zeilen angeben., Zeilenanzahl angeben)
Resultat = 0
For i = 1 To Zeilen
Zelle = Spalte & i
Range(Zelle).Select
If ActiveCell.Value = Then
Rows(i).Select
Hinweis = MsgBox(Zeile & i & wird ausgeblendet., Title:=Zeile ausblenden)-> nur zum Testen
Selection.EntireRow.Hidden = True
Resultat = Resultat + 1
End If
Next i
Hinweis = MsgBox(Resultat & Zeilen wurden ausgeblendet., Title:=Resultat)
End Sub
Ist das soweit okay? Es funktioniert zwar an meinem Testbeispiel, aber ich will kein Risiko eingehen (bei der->richtigen' Tabelle würden Fehler kaum entdeckt, was fatal enden könnte). Und vielleicht hat ja jemand noch Verbesserungsvorschläge (schließlich waren das meine ersten Schritte in Visual Basic)!?