VBA Ab bestimmter Zeile alle Zeilen ausblenden

Question

Hallo!

ich habe einen Code gefunden der alle Spalten ab einer bestimmten
Spalte ausblendet. Den wollte ich auf Zeilen umbauen, sodass
(unabhängig von .xls oder .xlsx) alle Zeilen ab einer bestimmten Zeile
ausgeblendet werden. Leider bekomme ich es so garnicht hin.

Das ist was ich bisher habe:

i = Worksheets(projectName).Cells(30000, 1).End(xlDown).Row
Worksheets(projectName).Range(Cells(highestRowNumber + 4, 1),
Cells(i, 1)).EntireRow.Hidden = True

Erkennt ihr woran es liegt? Ich wollte die Nr. der letzten verfügbaren
Zeile in "i" speichern und dann alle Zeilen von "highestRowNumber+4"
bis "i" ausblenden.

Gruß,
critchm

Answer 1

Hallo Christian,

das muss teilweise Scheitern. In eine XLSX können keine Makros sein.
http://hajo-excel.de/chCounter3/getfile.php?id=29

Gruß Hajo

Answer 2

Hallo Hajo,

danke für deine Datei.
Ich dachte ich hätte die richtige Codezeile erkannt und habe aus
deiner Datei folgendes gebaut:

With Worksheets(projectName)
.Columns(anzColumns + 3 & ":" &
.Columns.Count).EntireColumn.Hidden = True
.Rows(highestRowNumber + 4 & ":" &
.Rows.Count).EntireRow.Hidden = True
End With

Rate mal, funktioniert nicht. Warum? kA :-).

Du bestimmt, oder?

Beste Grüße,
critchm

P.S.: Wer ist Christian? lol

Answer 3

da habe ich die Unterschrift falsch in Erinnerung, bei dem Beitrag gehört keine anrede hin.
Die Variablen sind nicht definiert.

Gruß Hajo

Answer 4

Kein Problem.

Doch, alle Variablen sind definiert.
projectname="Testproject"
anzColumns=189
highestRowNumber=39

Answer 5

Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Link zur Datei wäre nicht schlecht.

Gruß Hajo

Answer 6

Range.(ErsteZeile, LetzteZeile).EntireRow.Hidden = True

Wenn wir gnädig die Angabe des Blattes weglassen.

Was also ist da denn die ErsteZeile und was die LetzeZeile, wo nehmen wir die Angaben her? Mehr nämlich muss man im Kern nicht wissen.

Denn alle Angaben oben drin wie .Columns.Count kann ich nicht sinnvoll interpretieren.

Eric March