Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
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

Zeilen ein und aus blenden

Zeilen ein und aus blenden
Jochen
Hallo Freunde,
ich habe mal wieder ein Problem.
Wenn ich in Tabelle1, Zelle A1 einen Text oder Wert eingebe dann soll in Tabelle2, Zeile 22 eingeblendet werden und den Wert eintragen.
Wenn ich nun den Wert ( Tabelle1, Zelle A1 ) wieder entferne soll auch die Zeile ( Tabelle2, Zeile 22 ) wieder ausgeblendet werden.
Diese Funktion soll dann auf mehrere Zeilen angewendet werden.
Hintergrund ist: Wenn ich die Tabelle2 ausdrucke möchte nicht immer die leeren Zeilen händisch ausblenden muß.
Wer kann mir da helfen?
Danke im voraus,
Jochen

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilen ein und aus blenden
23.09.2010 10:26:11
hary
Hallo Jochen
Teste mal.
hier werrden nach Eintrag in Tabelle1 A1 in Tabelle2 A22 und 25 aus/eingeblendet und eingetragen aus A1.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("Tabelle2")
If Target.Address = "$A$1" And Target.Value  "" Then
.Range("A22,A25").EntireRow.Hidden = False    'fuer Zeile A22 und A25
.Range("A22,A25") = Target.Value
Else
.Range("A22,A25").EntireRow.Hidden = True
.Range("A22,A25") = ""
End If
End With
End Sub


gruss hary
AW: Zeilen ein und aus blenden
23.09.2010 10:43:00
Jochen
Hallo Hary,
so weit so gut.
Nur möchte ich in
$A$1 einen Eintrag und A22 ein/ausblenden
$A$2 einen Eintrag und A23 ein/ausblenden
$A$3 einen Eintrag und A24 ein/ausblenden
usw.
Kann man das mit einer Schleife bewerkstellingen?
Gruß
Jochen
Anzeige
AW: Zeilen ein und aus blenden
23.09.2010 11:02:44
hary
Hallo Jochen
dann este mal so. 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("Tabelle2")
If Target.Column = 1 And Target.Value  "" Then
.Cells(Target.Offset(21, 0).Row, 1).EntireRow.Hidden = False
.Cells(Target.Offset(21, 0).Row, 1) = Target.Value
Else
.Cells(Target.Offset(21, 0).Row, 1).EntireRow.Hidden = True
.Cells(Target.Offset(21, 0).Row, 1) = ""
End If
End With
End Sub

gruss hary
AW: korrektur Fehler abfangen
23.09.2010 11:06:29
hary
Hallo Jochen
vergass Fehler abzufangen. 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
With Worksheets("Tabelle2")
If Target.Column = 1 And Target.Value  "" Then
.Cells(Target.Offset(21, 0).Row, 1).EntireRow.Hidden = False
.Cells(Target.Offset(21, 0).Row, 1) = Target.Value
Else
.Cells(Target.Offset(21, 0).Row, 1).EntireRow.Hidden = True
.Cells(Target.Offset(21, 0).Row, 1) = ""
End If
End With
End Sub

gruss hary
Anzeige
AW: Zeilen ein und aus blenden
23.09.2010 11:29:59
Jochen
Hallo Hary,
danke, das so genau das was ich gebraucht habe;-))
Gruß
Jochen
AW: Zeilen ein und aus blenden
24.09.2010 07:59:11
Jochen
Hallo Hary,
doch noch ein kleiner Fehler.
Ich möchte gerne dass die Zeilen in Tabelle2 nur ausgeblendet werden wenn die Werte aus Tabelle1, Spalte A gelöscht werden.
Hintergrund: In Tabelle1 werden in den Spalten B - U Datumswerte eingegeben die dann auch einzeln wieder lösche können. Wenn ich jetzt aus diesem Bereich etwas lösche wird die Zeile mit ausgeblendet.
Sorry, habe denn Fehler erst jetzt mitbekommen.
Gruß
Jochen
AW: Zeilen ein und aus blenden
24.09.2010 08:16:32
hary
Hallo Jochen
dann teste mal so. 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
With Worksheets("Tabelle2")
If Target.Column = 1 Then
If Target.Value  "" Then
.Cells(Target.Offset(21, 0).Row, 1).EntireRow.Hidden = False
.Cells(Target.Offset(21, 0).Row, 1) = Target.Value
Else
.Cells(Target.Offset(21, 0).Row, 1).EntireRow.Hidden = True
.Cells(Target.Offset(21, 0).Row, 1) = ""
End If
End If
End With
End Sub

gruss hary
Anzeige
AW: Zeilen ein und aus blenden
24.09.2010 08:25:01
Jochen
Hallo Hary,
danke, so fuktioniert es richtig;-))
Gruß
Jochen

299 Forumthreads zu ähnlichen Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
ausgeblendete Zeilen auf Blattkopie auch ausblende
Thomas

Hallo,
ich habe folgendes Problem:
Mittels VBA und der Funktion PastSpecial kopiere ich ein Tabellenblatt, welches ausgeblendete Zeilen enthält.
Zum Einfügen des zu kopierenden Inhaltes verwende ich die o.a. Funktion zwei mal:
Zielblatt.Range(Quellenblatt.UsedRange.Address).Past...
20.11.2008 09:18:00
Thread-ID: 1026312
3 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Ausgeblendete Zeilen werden ausgedruckt
Josef

Hallo Profis,
Wenn in bestimmten Zellen eine 0 steht soll der definierte Bereich (Zeilen) ausgeblendet werden.
Das funktioniert aber nur im ersten Bereich, bei weiteren werden in der Seitenansicht nur leere Seiten angezeigt und dann auch ausgedruckt, was nicht gewünscht ist.
Zum bes...
09.12.2008 12:39:59
Thread-ID: 1031348
5 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Anzeige

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
2
4
4
3
5
2
1
4
7
4
5
3
7
8
4
2
3
5
5
1
6
7
8
2
3