Supportnet / Forum / Tabellenkalkulation
zeilen per makro ausblenden
Frage
Hallo zusammen,
wie immer habe ich keine Ahnung von VBA und hoffe hier ein wenig Hilfe zu bekommen.
Mit welchem Befehl blende ich denn in allen Tabellenblättern Zeile 3+4 aus?
Danke für eure Hilfe.
FG
Phil
Antwort 1 von coros
Hallo Phil,
nachfolgendes Makro blendet Dir in allen Tabellenblättern einer Mappe die Zeilen 3 und 4 aus.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Ich hoffe, Du kommst klar.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
nachfolgendes Makro blendet Dir in allen Tabellenblättern einer Mappe die Zeilen 3 und 4 aus.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Ausblenden()
Dim iSheet As Integer
For iSheet = 1 To Worksheets.Count
Sheets(iSheet).Rows("3:4").EntireRow.Hidden = xlVeryHidden
Next
End Sub
Ich hoffe, Du kommst klar.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von wundi123
Hallo Oliver,
vielen Dank für die schnelle Antwort. Läuft bestens!
mfg
Philipp
vielen Dank für die schnelle Antwort. Läuft bestens!
mfg
Philipp