---

@ Spezialisten,

ewiges Ärgernis Excel,

meine Leute nerven wieder mal und zwar soll in einem durch Verknüpfung entstandenem Blatt die dabei "erzeugten" leeren Zeilen ausgeblendet werden (aus dem Original werden nur bestimmte Zeilen automatisch rüberkopiert, die Zeilen zwischen den zu Kopierenden bleiben als leer stehen).
Bei dem neu erzeugten Blatt schauen diese leeren Zeilen nicht gut aus und eine Nachbearbeitung verbietet sich eigentlich, da schreibgeschützt, was auch blieben soll, um die Verknüpfungen nicht zerschiesen zu lassen.
Wie kann man diese leeren Zeilen mit einer Verknüpfung belegen, die diese Zeilen "ausblendet" (sie müssen erhalten bleiben, da sonst der Bezug fehlt).
Mir schwebt irgendwie was vor wie: wenn die Spalte .. ohne Eintrag, dann ausblenden  - sollte natürlich in Excel geschrieben sein!
Dank und UŽs sind garantiert!
Gruß Harald 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Harald,

so richtig geblickt hab' ichs noch nicht 
Leere Zeilen/Spalten/Beides ???

Der Code ist ein Schuss ins Blaue.
Sheetname bzw. Index musst Du anpassen, ebenso ggf. Password.

HTH Nancy
--

Sub HideEmptyRC()
Dim iR As Long, iC As Long

'ggf. Blattschutz aufheben
If Sheets(1).Protect Then Sheets(1).Unprotect

'alle Leerzeilen
For iR = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
  If Application.WorksheetFunction.CountA(Rows(iR)) = 0 Then _
  Rows(iR).Hidden = True
Next iR

'alle Leerspalten
For iC = Cells.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1
  If Application.WorksheetFunction.CountA(Columns(iC)) = 0 Then _
  Columns(iC).Hidden = True
Next

'Sheets(1).Protect
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

`n Morgen Nancy,
folgendes:
Original = Stückliste
Kopie (wird automatisch erzeugt) = Bestellliste, in der nur die Zeilen der Stückliste kopiert werden, welche in einer bestimmten Spalte ein "X" eingetragen haben.
Nunmehr hat die Bestellliste natürlich etliche "leere" Zeilen (stimmt eigentlich nicht, sind ja die Funktionen fürs Kopieren hinterlegt, man sieht nur nichts aufŽm Ausdruck) und diese müssen händisch gelöscht werden.
Dabei muß der vorhandene Blattschutz aufgehoben werden.
Was folgt: Bedienerunvermögen (nicht alle Konstrukteure sind auch Exler) sowie Unmut (was muß man noch alles können - Aussage!). Zudem ist der eigentliche Sinn des Ganzen hin (durch die "automatische Bestelllistenerzeugung" wird beim Ändern eine etwaiges manuelles Ändern der Bestellliste nicht nötig (zudem sind auch Ersatzteil- und Wartungslisten damit verknüpft). Auch müssen diese "leeren Zeilen" erhalten bleiben, da evtl. Nachbearbeitungen sonst an falscher Stelle kopiert werden.
Darum meine Frage: gibts eine Möglichkeit, diese "leeren Zeilen" auszublenden durch eine Funktion, welche sagt: wenn in der Spalte ... (könnte z. B. die Spalte Pos. sein, bzw. wird) kein Eintrag dann blende diese Zeile aus.
Gruß Harald

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Harald,

> stimmt eigentlich nicht, sind ja die Funktionen fürs Kopieren
> hinterlegt, man sieht nur nichts aufŽm Ausdruck

Okay, dann gehe ich jetzt mal davon aus, dass der Code nix bringt.

Wenns Dir nur wegen ausdrucken ist, versuch mal einen Autofilter zu setzen, da hast Du relativ viele Möglichkeiten die 'Ansicht' zu organisieren. zB Zeile1 markieren --> Daten --> Autofilter
Den Blattschutz musst vorher aber auch aufheben.

Ansonsten noch mal melden 

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Nancy,
habe Hilfe bekommen über www.spotlight.de und da durch Verweis auf www.herber.de.
Chris von Herber schrieb ein Makro mit zwei Button für ein- und ausblenden von leeren Zeilen, welche dem Layout der Bestellliste zugeordnet wurde.
Funktioniert wunderbar!
Dir aber auch Dank und UŽs für deine Hilfe.
Gruß Harald

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP