Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
Anzeige
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

302 Forumthreads zu ähnlichen 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
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
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
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

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
11
5
10
2
1
3
5
1
3
2
8
1
18
6
5
1
3
4
4
1
4
2
7
3