Thema Datum  Von Nutzer Rating
Antwort
21.10.2020 13:07:12 Schmidt
*****
Solved
Blau Ausblenden von Zeilen auf anderem Blatt mit mehreren Möglichkeiten
 21.10.2020 18:56:51 Gast16432
NotSolved
21.10.2020 20:51:23 AlterDresdner
NotSolved
22.10.2020 10:13:35 Schmidt
NotSolved
22.10.2020 12:31:04 AlterDresdner
NotSolved

Ansicht des Beitrags:
Von:
Gast16432		 Datum:
21.10.2020 18:56:51		 Views:
949		 Rating:
     
Antwort:
  Ja
Thema:
Ausblenden von Zeilen auf anderem Blatt mit mehreren Möglichkeiten

Hallo Schmidt,

so ganz verstanden hab eich es nicht, aber vielleicht bringt Dich folgende Idee zur Realisierung Deines Projektes weiter:

Hierbei wird eine Adresse übergeben (z.B. auch durch das Event Change) und je nach Wert in dieser Zelle die entsprechenden Zeilen aus/eingebendet.

Falls immer alle Zellen abgearbeitet werden sollen, müsste man noch eine kleine Schleife drumrumprogrammieren.

Außerdem werden zunächst alle Zeilen eingeblendet (kann man ja auch rausnehmen)

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
 
Sub Test()
  EinAusBlenden Sheets("Tabelle1").Range("A13")
End Sub
 
Sub EinAusBlenden(Target As Range)
'Blendet wechselweise Zeilen aus
 Dim sBer As String, sAdr As String
 Dim Wsh As Worksheet, bWie As Boolean
 Dim i As Integer
  
 sAdr = Target.Address
 If Target.Value Like "x" Then bWie = True
  
 Set Wsh = ThisWorkbook.Sheets("Tabelle2")
  
 For i = 1 To 2
   sBer = "A15:A78,A100:A104"
 
'Erst alle einblenden
   Wsh.Range(sBer).EntireRow.Hidden = False
   Select Case sAdr
   Case "$A$13": sBer = "A15:A20"
   Case "$A$14": sBer = "A15:A20,A24:A28"
   Case "$A$15": sBer = "A15:A22,A23:A37"
   Case "$A$16": sBer = "A12:A20,A23:A78,A100:A104"
   Case Else:    sBer = ""
   End Select
'Jetzt teilweise ausblenden
   If sBer <> "" Then
      Wsh.Range(sBer).EntireRow.Hidden = bWie
   End If
    
   Set Wsh = ThisWorkbook.Sheets("Tabelle3")
 Next i
 
End Sub

viele Grüße

Karl-Heinz

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
21.10.2020 13:07:12 Schmidt
*****
Solved
Blau Ausblenden von Zeilen auf anderem Blatt mit mehreren Möglichkeiten
 21.10.2020 18:56:51 Gast16432
NotSolved
21.10.2020 20:51:23 AlterDresdner
NotSolved
22.10.2020 10:13:35 Schmidt
NotSolved
22.10.2020 12:31:04 AlterDresdner
NotSolved