Hallo Excel Profis,
ich stehe mal wieder auf dem Schlauch und brauche Unterstützung.
Ich kopiere folgend 2 Bereiche aus einer gefilterten Tabelle:
LZ_Auswahl1 = ThisWorkbook.Sheets("Auswahl1").Cells(Rows.count, 1).End(xlUp).Row
Sheets("Auswahl1").Range("F11:I" & LZ_Auswahl1).SpecialCells(xlCellTypeVisible).Copy Sheets("Scalping").Range("A8")
Sheets("Auswahl1").Range("FL11:IW" & LZ_Auswahl1).SpecialCells(xlCellTypeVisible).Copy Sheets("Scalping").Range("G8")
Nun würde ich gerne nur die ersten 40 Zeilen aus den 2 Bereichen kopieren.
Aber wie?
Ich habe bereits u.a. "2 Hilfsspalten"
Spalte IX, zeigt die Zeilennummer an.
=WENN(TEILERGEBNIS(103;A48);ZEILE();"")
Spalte IV, ergibt den Wert "1", wenn diese Zeile sichtbar ist.
=WENN([@HOME]=$A$1;1;WENN([@AWAY]=$B$1;1;0))
Kann ein Experte bitte oberes Makro dahin ergänzen, das nicht komplett alle gefilterten Zeilen sondern nur die ersten 40 sichtbaren Zeilen kopiert werden?!
Die DS beginnen ab Zeile 11
Gruss
Fred