Bei bestimmter Bedingung Zeile kopieren

[Jockel]

Theoretisch ja, Jörg!
Hier soll aber ja ein "gefiltertes" Ergebnis generiert werden.
...
Jetzt bin ich aber trotzdem zickig  :21: und bleibe bei meiner Filterlösung nebst vorherigem Sortieren.

Gruß Ralf

Moin zickiger Ralf, (scheinst du schon ne Weile zu sein - zickig... - is mir aber aber lieber, als aalglatt), das mit dem  gefilterten Ergebnis habe ich nicht gelesen. Was meinst du damit? Kannst du mir (und) einen Tabellenausschnitt posten wo das zu sehen ist, was du meinst..? Ich komme auf das selbe Ergebnis wie F. mit seinem AGGREGAT()...

P.S.: Wo oder wie willst du denn in der geposteten Datei filtern..?

[RPP63]

Aus der Threaderöffnung, Jörg:

Wenn in Tabelle2 in Spalte B ein "nein" steht möchte ich ein Makro haben, das die entsprechende Zeile (von Spalte E bis N) in Tabelle1 kopiert.

Deshalb würde ich

• Spalte B sortieren
  
• Tabelle2 Spalte B nach nein filtern
  
• die sichtbaren Zellen im Bereich E:N nach Tabelle1!A:J kopieren
  
• den Filter rausnehmen und wieder sortieren
  

Mit VBA geht das in einem Wimpernschlag.

Gruß Ralf

[RPP63]

P.S.: Wo oder wie willst du denn in der geposteten Datei filtern..?

Ich bitte Dich!
Beliebige Zelle A2:B6 auswählen und beherzt Strg+Umschalt+L drücken …

[Jockel]

Und dann bleibt mein Formelergebnis doch bestehen..?! Aber ist ja auch egal... Tschüß...

[Kuwer]

Deshalb würde ich

• Spalte B sortieren
  

Heißer Tipp, den Du aber genauer erklären solltest!

Gruß Uwe

[RPP63]

Ich gehe natürlich davon aus, dass C:D in Tabelle2 des Originals gefüllt ist.

[Rabe]

Hi,

zum Code

Code:

Sheets("Tabelle1").Range("A" & erste & ":Z" & erste).Value = .Range("E" & i & ":Z" & i).Value

eine Frage:
reicht es da nicht, wenn es nur so gemacht wird?

Code:

Sheets("Tabelle1").Range("A" & erste).Value = .Range("E" & i & ":Z" & i).Value

werden dann nicht trotzdem die auf A nach rechts folgenden Spalten gefüllt?

[schauan]

Hallöchen,

nein. Das geht nur beim Kopieren, dass die erste Zielzelle reicht.