Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile Aus & Einblenden

Forumthread: Zeile Aus & Einblenden

Zeile Aus & Einblenden
Heinz
Hallo Leute im Forum
Ich möchte gerne wenn im Sheet"Jänner" zB.die Zeile 10 ausgeblendet wird,daß diese auch in Sheets ("Februar bis "Dezember") passiert.
Umgekehrt genauso. Wenn in Sheet "Jänner" die Zeile 10 eingeblendet wird,daß diese auch in Sheets ("Februar bis "Dezember") passiert.
Hätte hierzu bitte jemand eine Lösung?
Gruß
Heinz
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeile Aus & Einblenden
13.09.2010 10:03:14
Beverly
Hallo Heinz,
markiere alle Tabellen wenn du die Aktion ausführst und vergiss nicht, die Markierung anschließend wieder aufzuheben.

AW: Zeile Aus & Einblenden
13.09.2010 10:07:09
Heinz
Hallo Beverly
Danke für Deine Antwort & Hilfe.
Mittels VBA ist das nicht möglich ?
Danke & Gruß
Heinz
Anzeige
mit VBA nach diesem Motto ...
13.09.2010 10:17:24
Matthias
Hallo
evtl. Blattnamen benutzen statt BlattIndex
Sub Makro1()
Worksheets(1).Rows("10:10").EntireRow.Hidden = True
Worksheets(2).Rows("10:10").Hidden = Worksheets(1).Rows("10:10").Hidden
Worksheets(3).Rows("10:10").Hidden = Worksheets(1).Rows("10:10").Hidden
End Sub


Sub Makro2()
Worksheets(1).Rows("10:10").EntireRow.Hidden = False
Worksheets(2).Rows("10:10").Hidden = Worksheets(1).Rows("10:10").Hidden
Worksheets(3).Rows("10:10").Hidden = Worksheets(1).Rows("10:10").Hidden
End Sub
Ich glaube das Ausblenden selbst löst kein Ereignis aus, so musst Du das Makro manuell anstoßen
Gruß Matthias
Anzeige
AW: Zeile Aus & Einblenden
13.09.2010 10:14:33
JogyB
Hallo Heinz,
wenn es nur um die Anzeige geht (also nicht z.B. irgendwo TEILERGEBNIS verwendet wird), dann dieser Code in DieseArbeitsmappe. 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not TypeOf Sh Is Worksheet Then Exit Sub
Select Case Sh.Name
Case "Februar", "März", "April", "Mai", "Juni", "Juli", _
"August", "September", "Oktober", "November", "Dezember"
Sh.Rows(10).Hidden = Sheets("Jänner").Rows(10).Hidden
End Select
End Sub
Gruß, Jogy
Anzeige
AW: Zeile Aus & Einblenden
13.09.2010 10:25:18
Heinz
Hallo Matthias & Jogy
Das mit Zeile 10 war nur ein Beispiel.
Es geht um die Zeilen 3 bis 154
Allso es könnte auch die Zeile 128 ausgeblendet werden.
Gruß
Heinz
nimm eine Variable
13.09.2010 10:40:35
Matthias
Hallo
dann evtl so.
Option Explicit
Public LoRow As Long
Sub Aus()
Dim StrgZeile As String
StrgZeile = InputBox("Bitte Zeile angeben", "Zeile ausblenden", 10)
If StrPtr(StrgZeile) = 0 Or Not IsNumeric(StrgZeile) Or StrgZeile  154 Then  _
Exit Sub 'abbrechen
LoRow = StrgZeile
Worksheets(1).Rows(LoRow).EntireRow.Hidden = True
Worksheets(2).Rows(LoRow).Hidden = Worksheets(1).Rows(LoRow).Hidden
Worksheets(3).Rows(LoRow).Hidden = Worksheets(1).Rows(LoRow).Hidden
End Sub
Sub Ein()
Dim StrgZeile As String
StrgZeile = InputBox("Bitte Zeile angeben", "Zeile einblenden", 10)
If StrPtr(StrgZeile) = 0 Or Not IsNumeric(StrgZeile) Or StrgZeile  154 Then  _
Exit Sub 'abbrechen
LoRow = StrgZeile
Worksheets(1).Rows(LoRow).EntireRow.Hidden = False
Worksheets(2).Rows(LoRow).Hidden = Worksheets(1).Rows(LoRow).Hidden
Worksheets(3).Rows(LoRow).Hidden = Worksheets(1).Rows(LoRow).Hidden
End Sub
Gruß Matthias
Anzeige
AW: nimm eine Variable
13.09.2010 10:45:28
Heinz
Hallo Matthias
So funkt. es.
Recht herzlichen DANK.
Gruß
Heinz
kl. Verbesserung
13.09.2010 10:50:37
Matthias
Hallo Heinz
Option Explicit
Public LoRow As Long
Sub Aus()
Dim StrgZeile As String
StrgZeile = InputBox("Bitte Zeile angeben", "Zeile ausblenden", ActiveCell.Row)
If StrPtr(StrgZeile) = 0 Or Not IsNumeric(StrgZeile) Or StrgZeile  154 Then  _
Exit Sub 'abbrechen
LoRow = StrgZeile
Worksheets(1).Rows(LoRow).EntireRow.Hidden = True
Worksheets(2).Rows(LoRow).Hidden = Worksheets(1).Rows(LoRow).Hidden
Worksheets(3).Rows(LoRow).Hidden = Worksheets(1).Rows(LoRow).Hidden
End Sub
Sub Ein()
Dim StrgZeile As String
StrgZeile = InputBox("Bitte Zeile angeben", "Zeile einblenden", LoRow)
If StrPtr(StrgZeile) = 0 Or Not IsNumeric(StrgZeile) Or StrgZeile  154 Then  _
Exit Sub 'abbrechen
LoRow = StrgZeile
Worksheets(1).Rows(LoRow).EntireRow.Hidden = False
Worksheets(2).Rows(LoRow).Hidden = Worksheets(1).Rows(LoRow).Hidden
Worksheets(3).Rows(LoRow).Hidden = Worksheets(1).Rows(LoRow).Hidden
End Sub
Hier wird fürs Ausblenden schon die Zeile der aktiven Zelle vorgeschlagen
Beim Einblenden steht dann als Default-Wert die Variable
Gruß Matthias
Anzeige
AW: Zeile Aus & Einblenden
13.09.2010 10:45:32
JogyB
Hallo Heinz,
bitte beschreibe Dein Problem so, wie es auch ist. Ich kann nicht wissen, dass das nur ein Beispiel ist. 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim zeiLe As Long
Dim ausblRng As Range
If Not TypeOf Sh Is Worksheet Then Exit Sub
Select Case Sh.Name
Case "Februar", "März", "April", "Mai", "Juni", "Juli", _
"August", "September", "Oktober", "November", "Dezember"
Application.ScreenUpdating = False
With Sh
' Zuerst alles einblenden
Range(.Cells(3, 1), .Cells(154, 1)).EntireRow.Hidden = False
' Schauen was ausgeblendet werden muss
For zeiLe = 3 To 154
If Sheets("Jänner").Rows(zeiLe).Hidden Then
If ausblRng Is Nothing Then
Set ausblRng = .Cells(zeiLe, 1)
Else
Set ausblRng = Union(ausblRng, .Cells(zeiLe, 1))
End If
End If
Next
End With
' Ausblenden
ausblRng.EntireRow.Hidden = True
Application.ScreenUpdating = True
End Select
End Sub

Gruß, Jogy
Anzeige
AW: Zeile Aus & Einblenden
13.09.2010 10:49:19
Heinz
Hallo Jogy
Sei mir bitte nicht böse,aber ich hatte geschrieben:
zB.die Zeile 10
Aber recht herzlichen Dank,für Deine Lösung
Gruß
Heinz
hast recht, sorry - kwT
13.09.2010 10:51:53
JogyB
;

Forumthreads zu verwandten Themen

Zeilen aus- / einblenden
Thomas

Hallo,
ich möchte folgendes machen:
Entprechend dem Wert im Feld B3 sollen verschieden Zeilen ein- bzw. aus-geblendet werden.
Steht zum Beispiel im Feld B3 der Wert 1 sollen die Zeilen "B7:B15" ausgeblendet werden
Steht im Feld B3 der Wet 2 sollen die Zeilen "B8:B15" ausgeblende...
11.09.2008 18:24:56
Thread-ID: 1009202
8 Beiträge
Anzeige
Combobox ausgeblendete Zeilen nicht anzeigen
helena

Schönen Guten Morgen
Kleines Problem ich verstecke Zeilen wenn in Spalte C Begriff nicht vorhanden dies klappt auch
aber via Combobox suche ich Namen (Adressvergabe) aber es werden mir immer alle aufgelistet auch wenn Zeilen ausgeblendet sind, ich Blende aus ob ich nur G_kunden oder P_...
28.12.2008 09:10:32
Thread-ID: 1035521
12 Beiträge
Wiedergabe von Werten aus einer Spalte
Werten

Hallo zusammen,
ich habe in einem Tabellenblatt in einer Spalte ca. 16000 Werte stehen (Form: Buchstaben+Zahlenkombinationen (Auftragsnummern)) die beliebig häufig vorkommen können. Es sind aber nur ca. 30 verschiedene Werte. Nun möchte ich in einer automatisierten Ausgabe in einer neuen Sp...
16.01.2009 10:27:00
Thread-ID: 1040456
6 Beiträge
Kann Zeilen, die DA SIND, nicht mehr einblenden!!!
Stephan

Liebe Liste,
habe hier ein Problem, das mich fast verzweifeln läßt!
Ich habe 4 Zeilen am Anfang einer Datei, die sich partout nicht mehr einblenden lassen! Ich kann dort mit den Pfeiltasten der Tastatur hinlaufen, sehe oben in der Wertezeile auch den Wert der Zellen, in denen Inhalt ste...
25.01.2009 12:52:00
Thread-ID: 1043550
11 Beiträge
Spalten-Hintergrundfarbe wiederherstellen
Werner

VBA-Level: befriedigend
Hallo Freunde,
wenn ich in Excel 2007 Dubletten aussondere, erscheinen in mit einer Hintergrundfarbe gefaerbten
Spalten immer weiße Stellen, oft bis zum Ende der Tabelle, und zwar durch die Reihe in allen Spalten.
Dies kann auch bei der Anpassung eines zu...
03.02.2009 08:22:16
Thread-ID: 1046503
3 Beiträge
Anzeige
Zeile automatisch Einblenden
eliewsam

Hallo VBA-Experten,
ich bin auf der Suche nach einem Makro, das von einer beliebigen Zelle aus, die nächste Zeile einblendet, sofern diese ausgeblendet ist.
Vielleicht kann mir hierbei jemand weiterhelfen. Gruß Elie
08.02.2009 18:45:00
Thread-ID: 1048414
2 Beiträge
Spaltenwerte suchen und Info links davon wiedergeb
wiedergeb

Hallo Leute,
ich habe mal wieder eine komische Frage. Ich habe ein Tabellen Blatt indem Werte untereinander angezeigt werden sollen, die zuvor aus einem anderem Blatt in einer Spalte gefunden wurden, die aus Nullwerten und manchmal aus richtigen Zahlen besteht. Die Bedingung ist hier größer...
13.02.2009 10:57:00
Thread-ID: 1050402
4 Beiträge
Excel beim Öffnen nicht sichtbar
Dirk

Hallo Excelgemeinde!
Ich habe mal eine Frage und hoffe mal wieder auf euch!
Ich möchte einen Code beim Öffnen der Datei starten, ohne dass Excel auf dem Desktop erscheint.
Mit folgendem Code wird Excel kurz sichtbar und wird dann ausgeblendet.
Private Sub Workbook_Open() Appli...
06.05.2009 19:28:53
Thread-ID: 1073466
6 Beiträge
Anzeige
kleinster, resp grösster nicht ausgeblendeter Wert
Peter

Guten Abend
Ich möchte aus einem Spaltenbererich den grössten, resp. den kleinsten Wert ermitteln. Dabei dürfen nur Werte aus nicht ausgeblendeten Zeilen berücksichtigt werden.
Wie kann ich das anstellen?
Danke für eine Antwort.
Gruss, Peter
16.06.2009 20:38:45
Thread-ID: 1082045
2 Beiträge
Spalte vor Druck ausblenden/nach Druck einblenden
Gesa

Hallo,
habe nachfolgendes Makro und möchte gerne, dass es erweitert wird und zwar dass bei anwählen des Markos die Spalte D ausgeblendet wird und nach verlassen der Seitenansicht wieder eingeblendet wird.
Geht das?
Für Hilfe bin ich wie immer :-) dankbar..
Sub Druck_KlasseA()...
27.06.2009 15:48:42
Thread-ID: 1084819
4 Beiträge
Anzeige
Spalte lässt sich nicht formatieren
Joachim

Hi,
habe hier ein ganz komisches Problem. Es geht um ein Template, welches von einem Notes-System mit Daten gefüllt wird. In dem Template gibt es eine Spalte mit Datum. (Es steht zumindest das Datum drin)
Wenn ich das Format anschaue, steht es auf Standard.
Diese Spalte wollte ich i...
23.11.2009 10:46:38
Thread-ID: 1119390
3 Beiträge
VBA: Wiederholung von Zahlengruppen in Spalte
Zahlengruppen

Hallo,
ich quäle mich hier mit einem Problem herum, bei dem ich wahrscheinlich eine bessere VBA-Ausbildung
brauchen würde, um es selber lösen zu können. Ich glaube, die Lösung hängt irgendwie mit einem
Array zusammen:
Ich habe eine Spalte mit Zahlen zwischen 0 und 100 und es kom...
28.11.2009 12:47:57
Thread-ID: 1120665
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige