Zeilen ein Abhängigkeit von Eingabe einblenden

Hallo Ihr Excel-Profis,
ich habe eine Excel-Tabelle, die durch Daten befüllt werden soll.
Ich gebe die Daten in ein Tabellenblatt "Eingabe" ein, die in das Tabellenblatt "Ausdruck" übertragen werden sollen.
Jetzt zu meinem(n) Problem(en).
1.
Die nächste Zeile im Eingabeblatt soll in Abhängigkeit von einer Eingabe in der Spalte "F" eingeblendet werden. D.h wenn eine Eingabe in der Zelle(F;Zeile) eingegeben wird, soll die nächste Zeile eingeblendet werden.
2.
Ich möchte gerne das Sheet "Ausdruck" drucken. Daher möchte ich den Druckbutton eine Sub zuordnen, der im "Ausdruck" alle Zeilen zwischen 5 und 25 ausblendet, wenn keine Werte von dem Sheet "Eingabe" übernommen worden sind.
Ich habe eine Datei gebastelt, die das Problem hoffentlich besser erklärt.

Die Datei https://www.herber.de/bbs/user/31406.xls wurde aus Datenschutzgründen gelöscht

Vielen Dank im Voraus
Grüße
Andy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andy,
warum machst du es dir unbedingt schwerer als notwendig?
Schreib doch die Summe oberhalb der Beschriftung in diesem Stil

Eingabe

	A	B	C	D	E	F
1	Überschrift
2
3
4
5	Name				Gesamt	0
6	Nr.	Name	Vorname	Daten1	Daten2	Summe
7
8

Formeln der Tabelle

F5 : =SUMME(F7:F27)
A7 : =WENN(B7="";"";1)
A8 : =WENN(B8="";"";A7+1)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
und alles ist erledigt.
zu 2.

Ausdruck

	A	B	C	D	E	F	G	H	I
1	Überschrift							Hilfsspalte	Hilfsspalte
2								frei ab Zeile	10
3	Name
4	Nr.	Name	Vorname	Daten1	Daten2	Summe
5	1	ddd
6	2	ddd
7	3	ddd
8	4	ddd
9	5	ddd
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

Formeln der Tabelle

A5 : =WENN(B5="";"";1)
A6 : =WENN(B6="";"";A5+1)
A7 : =WENN(B7="";"";A6+1)
A8 : =WENN(B8="";"";A7+1)
A9 : =WENN(B9="";"";A8+1)
A10 : =WENN(B10="";"";A9+1)
A11 : =WENN(B11="";"";A10+1)
A12 : =WENN(B12="";"";A11+1)
A13 : =WENN(B13="";"";A12+1)
A14 : =WENN(B14="";"";A13+1)
A15 : =WENN(B15="";"";A14+1)
A16 : =WENN(B16="";"";A15+1)
A17 : =WENN(B17="";"";A16+1)
A18 : =WENN(B18="";"";A17+1)
A19 : =WENN(B19="";"";A18+1)
A20 : =WENN(B20="";"";A19+1)
A21 : =WENN(B21="";"";A20+1)
A22 : =WENN(B22="";"";A21+1)
A23 : =WENN(B23="";"";A22+1)
A24 : =WENN(B24="";"";A23+1)
A25 : =WENN(B25="";"";A24+1)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Mit dem Code werden nun die restlichen freien Zeilen ausgeblendet.
Sub Aus() ' Aus Makro ' Makro am 25.02.2006 von Heinz Ulm aufgezeichnet Dim LZeile As Integer LZeile = Range("I2").Value Range("A5:F" & LZeile).Select Selection.EntireRow.Hidden = True End Sub
Gruß Heinz

Beliebteste Forumthreads (12 Monate)

Zeilen ein Abhängigkeit von Eingabe einblenden

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen ein Abhängigkeit von Eingabe einblenden

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread