Zeilen/Zellen ohne Werte ausblenden mit VBA

[harye]

:15: :15: :15: :15: :15: :15: :15: :15: :15: :15: :15: :15: :15: :15:

Ich mach für euch n Sekt mit auf!!!!!!

DANKE DAFÜR - LÄUFT PRIMA!

Ich empfehle euch weiter .

Nu muss ich erstmal ein wenig "rumspielen"

[harye]

Eine Frage noch:

Wenn jetzt in "Ziel" noch den übertragenen Spalten, Spalten befüllt werden, können diese dann fest der Zeien ID zugeschrieben werden?

Warum?

Wenn ich erst Bedingung "Kleiner 2" habe, dies sich aber nachträglich ändert, dann stimmen ja die Spalten ab "J" nicht mehr überein.

Könnt Ihr mir folgen?

Im Anhang noch mal die veränderte Übung3.

Sprich:

Wie kann man/ich dies lösen, dass alle Zeileninhalte, auch wenn Zeillen von B -J neu hinzukommen, gleich zugeordnet bleiben?

Nochmals vielen Dank.

[atilla]

Hallo,

ich verstehe nicht, warum Edgar hier nicht eine Formellösung bevorzugt.  (Ok, ich sehe gerade, ich habe das Thema verfehlt, welches VBA fordert)

Ich würde es mit Formeln lösen.
In Tabelle Start eine Hilfsspalte so aufbauen:

Arbeitsblatt mit dem Namen 'Start'
	M	N	O	P	Q	R	S
1	Bedingungen
2	1	erfüllt	2	erfüllt	3	erfüllt
3		2		0		0	1
4		1		1		1
5		1		1		1
6		0		0		2	2

Zelle	Formel
S3	=WENN(ODER(N3=2;P3=2;R3=2);MAX($S$2:S2)+1;"")

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Und in Ziel dann so:

Arbeitsblatt mit dem Namen 'Ziel'

A

B

C

D

E

F

G

H

I

J

K

L

M

1

Überschrift 2

Nach AutoÜbertragung hinzugefügt

2

ID

Termin

Merkmal 1

Merkmal 2

Typ 1

Typ 2

Typ 3

Typ 4

1

2

x

y

z

3

1

20.04.2016

Mann

groß

A

A

A

A

X

Merkmal

Merkmal

Merkmal

4

2

20.04.2016

Frau

klein

A

A

A

A

X

Merkmal

Merkmal

Merkmal

5

3

6

4

Zelle	Formel
B3	=WENNFEHLER(WENN(INDEX(Start!B$3:B$6;VERGLEICH(ZEILE($A1);Start!$S$3:$S$6;0))=0;"";INDEX(Start!B$3:B$6;VERGLEICH(ZEILE($A1);Start!$S$3:$S$6;0)));"")

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

oder so:

Arbeitsblatt mit dem Namen 'Ziel'

A

B

C

D

E

F

G

H

I

J

K

L

M

2

ID

Termin

Merkmal 1

Merkmal 2

Typ 1

Typ 2

Typ 3

Typ 4

1

2

x

y

z

3

1

20.04.2016

Mann

groß

A

A

A

A

X

Merkmal

Merkmal

Merkmal

4

4

20.04.2016

Frau

klein

A

A

A

A

X

Merkmal

Merkmal

Merkmal

5

6

Zelle	Formel
A3	=WENNFEHLER(INDEX(Start!A$3:A$6;VERGLEICH(ZEILE($A1);Start!$S$3:$S$6;0));"")
B3	=WENN($A3="";"";WENN(SVERWEIS($A3;Start!$A$3:$J$6;SPALTE();0)=0;"";SVERWEIS($A3;Start!$A$3:$J$6;SPALTE();0)))

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Bei einer VBA Lösung würde ich, wenn die ID  eindeutig einem Datensatz zugeordnet wird diese dann mit in Ziel übertragen.
Dann kann geprüft werde, ob diese schon vorhanden. Ansonsten sollte aus den Werten der Zeilen eine eindeutige Id generiert werden, auf die dann immer Bezug genommen wird.