|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.06.2019 15:44:27 |
Laura |
|
|
|
17.06.2019 16:21:27 |
Gast97850 |
|
|
|
18.06.2019 08:05:05 |
Gast60157 |
|
|
 Makros: Leere Zeilen ausblenden |
18.06.2019 12:41:38 |
Gast97850 |
|
|
|
18.06.2019 13:31:06 |
Gast24216 |
|
|
|
17.06.2019 17:57:07 |
Gast8345 |
|
|
Von:
Gast97850 |
Datum:
18.06.2019 12:41:38 |
Views:
524 |
Rating:
|
Antwort:
|
Thema:
Makros: Leere Zeilen ausblenden |
|
< in den "leeren Zeilen" trotzdem Formeln
> eine Zelle mit Formel / Funktion ist nicht leer
< Verknüpfungen stehen
> eine Verknüpfung (terminus technicus Microsoft) liefert immer einen Wert, die Zelle ist nicht sichtbar leer
Das Thermometer zeigt 29 Grad im Schatten, daher nur Popelcode
Sub Würg()
Dim Bereich As Range, rngF As Range, lg As Long
Rows.Hidden = False
'letzte Zelle Spalte 6 (F) um 4 erweitert bis (I)
Set Bereich = Cells(Cells.Find("*", Cells(1), -4123, 2, 1, 2, False).Row, 4).Resize(, 4)
Do
On Error Resume Next
Set rngF = Bereich.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not rngF Is Nothing Then
For Each rngF In Bereich.Cells
lg = lg + Len(rngF.Value)
Next rngF
If lg = 0 Then Bereich.EntireRow.Hidden = True
Set rngF = Nothing: lg = 0: GoTo Weiter
End If
Nix:
If WorksheetFunction.CountA(Bereich) = 0 Then Bereich.EntireRow.Hidden = True
Weiter:
Set Bereich = Bereich.Offset(-1)
Loop Until Bereich.Row = 1
End Sub
LG
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.06.2019 15:44:27 |
Laura |
|
|
|
17.06.2019 16:21:27 |
Gast97850 |
|
|
|
18.06.2019 08:05:05 |
Gast60157 |
|
|
Makros: Leere Zeilen ausblenden |
18.06.2019 12:41:38 |
Gast97850 |
|
|
|
18.06.2019 13:31:06 |
Gast24216 |
|
|
|
17.06.2019 17:57:07 |
Gast8345 |
|
|