Clever-Excel-Forum - VBA - Code für Zeilen erweitern und ausblenden

:20:
Hallo,
versiche gerade meine Angebotsdatei (Ausgabeblatt für Kunden) so zu gestalten, dass die mit Formeln gefüllten Zeilen um eine Leerzeile erweitert werden, wenn das Ergebnis ungleich "" ist und in diesem Fall auch aus dem Tabellenblatt ausgeblendet werden. Ein weiterer Hinweis dazu steht in der Tabelle. Wer kann helfen? Bin noch ziemlich unerfahren mit VBA - Codes.
In der Anlage füge ich ein Tabellenblatt mit der Ansicht der genannten Tabellen bei.
Danke im Voraus
Grüße
NobX

Hi

Versuch es mal so.

Formatiere B5:B35 so das Text oben in der Zelle angezeigt wird. Wenn wirklich zum Ausdruck nötig dann hänge an die Formeln in Spalte B den Zusatz an. DeinFormelteil derdenTextanzeigt&Zeichen(10)

Und der Code für Ausblenden und Zeilenhöhe.

Code:
Sub AusblendenundHöhe()

Dim c

Application.ScreenUpdating = False

For Each c In Range("B5:B35").Cells

  If c.Value = "" Then

     c.EntireRow.Hidden = True

  Else

     c.EntireRow.AutoFit

  End If

Next c

Application.ScreenUpdating = True

End Sub

Gruß Elex

Hallo Elex,
danke erst einmal für Deine Mühe. Ich probier es morgen gleich aus und melde mich, wenn ich noch Hilfe brauch.
Grüße
NobX

Hallo Elex,

Dein Code funktioniert beim Ausblenden der Zeilen perfekt. Das mit dem Erweitern der Zeilen bekomme ich leider nicht hin, auch nicht mit dem Formelanhang "&Zeichen(10)".
Die Formel wird zwar akzeptiert, sie bleibt jedoch ohne Wirkung. Hast Du noch eine andere Idee? Danke für Deine Mühe.
Grüße
NobX

Hi

Evtl. kommst du mit der Datei weiter. Wenn nicht beschreibe noch mal was dir noch fehlt.

Gruß Elex

Hi Elex,

jetzt hat es funktioniert. Ich habe zwar schon zuvor die Funktion &Zeile(10) eingefügt und die Formatierung oben in der Zelle angegeben, - hat eben beim ersten Versuch noch nicht geklappt. Nund läuft es so, wie ich es mir vorgestellt habe. Vielen Dank und herzliche Grüße an alle Helfer im Forum!
NobX