Zelle durchestrichen, dann die Zeile ausblenden...

Hi Leute,
ich habe wieder zwei Fragen:
1) Wenn in meinem Tabellenblatt "Konzept 1" eine Zelle in irgendeine Zeile durchgestrichen
dargestellt ist, soll diese Zeile in der mindestens eine durchgestrichene Zelle
auftaucht, per Makro versteckt (ausgeblendet) werden.
Bsp.
E15, E17 sind durchestrichen, dann die Zeile 15 und 17 ausblenden
...
P10, P20 sind durchestrichen, dann die Zeile 10 und 20 ausblenden
2) Wenn in meinem Tabellenblatt "Konzept 2" nur in Spalte C (ab Zeile 10) eine Zelle durchgestrichen
dargestellt ist, soll diese Zeile per Makro versteckt (ausgeblendet) werden.
Bsp.
C9 ist durchestrichen, die Zeile soll nicht ausblendet werden
C10 ist durchestrichen, dann die Zeile 10 ausblenden
...
C20 ist durchestrichen, dann die Zeile 20 ausblenden
...
Bei erneutem ausführen des Makros sollen alle Zeilen eingeblendet werden.
Makro sollte so sein, daß man hin und her schalten kann (Ausblenden / Einblenden).
Beim Verlassen der Datei sollen die in o.g. Bsp. die Zellen ausgeblendet bleiben.
Wie mache ich das?
Dankeschön im Voraus...
Gruß
Selma

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Selma1() Dim c As Range Dim zu As Long, i As Long Dim sr As Integer Application.ScreenUpdating = False Sheets("Konzept 1").Select zu = ActiveSheet.Cells.SpecialCells(xlLastCell).Row sr = ActiveSheet.Cells.SpecialCells(xlLastCell).Column For i = zu To 1 Step -1 For Each c In Range(Cells(i, 1), Cells(i, sr)) If c.Borders(xlDiagonalUp).LineStyle <> xlNone Then Rows(i).EntireRow.Hidden = True Exit For End If Next c Next i Application.ScreenUpdating = True End Sub

Sub Selma2() Dim c As Range Dim zu As Long, i As Long Dim Pruef As Boolean Application.ScreenUpdating = False Sheets("Konzept 2").Select zu = ActiveSheet.Cells.SpecialCells(xlLastCell).Row For i = 1 To zu If Rows(i).Hidden = True Then Pruef = True Exit For End If Next i If Pruef = True Then Cells.EntireRow.Hidden = False Else For Each c In Range("C1:C" & zu) If c.Borders(xlDiagonalUp).LineStyle <> xlNone Then c.Rows.EntireRow.Hidden = True End If Next c End If Application.ScreenUpdating = True End Sub

Hallo Selma,
es ist eben ein kleiner Unterschied, ob eine Zelle oder der Zellwert durchgestrichen ist.
So sollte es jetzt aber klappen:
Option Explicit


Sub Selma1()
Dim c As Range
Dim laR As Long, i As Long
Dim laC As Integer
Dim Pruef As Boolean
Application.ScreenUpdating = False
Sheets("Konzept 1").Select
laR = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
laC = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
For i = 1 To laR
If Rows(i).Hidden = True Then
Pruef = True
Exit For
End If
Next i
If Pruef = True Then
Cells.EntireRow.Hidden = False
Else
For i = 1 To laR
For Each c In Range(Cells(i, 1), Cells(i, laC))
If c.Font.Strikethrough = True Then
Rows(i).EntireRow.Hidden = True
Exit For
End If
Next c
Next i
End If
Application.ScreenUpdating = True
End Sub


Sub Selma2()
Dim c As Range
Dim laR As Long, i As Long
Dim Pruef As Boolean
Application.ScreenUpdating = False
Sheets("Konzept 2").Select
laR = Cells(Rows.Count, 3).End(xlUp).Row
If laR < 10 Then Exit Sub
For i = 10 To laR
If Rows(i).Hidden = True Then
Pruef = True
Exit For
End If
Next i
If Pruef = True Then
Cells.EntireRow.Hidden = False
Else
For Each c In Range("C10:C" & laR)
If c.Font.Strikethrough = True Then
c.Rows.EntireRow.Hidden = True
End If
Next c
End If
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

Beliebteste Forumthreads (12 Monate)

Zelle durchestrichen, dann die Zeile ausblenden...

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle durchestrichen, dann die Zeile ausblenden...

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread