Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: bei Filter letzte zelle ermitteln

bei Filter letzte zelle ermitteln
Frank
Hallo Excel Profis,
bräuchte mal eure Hilfe. Hab ein Filter in Tabelle1 und möchte nun mit einem Makro die letzten beiden Zellen ermitteln z.B. F40:G40 (Zellen änder sich ständig bei Filter funktion) in Tabelle2 kopieren. In Tabelle2 soll aber auch die letzte Zelle ermittelt werden so das alle kopierten Werte unter einander geschrieben werden.
Vielen Dank schon mal im voraus und ein schönes WE
Gruß Frank
https://www.herber.de/bbs/user/81761.xls

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: bei Filter letzte zelle ermitteln
08.09.2012 09:52:01
Hajo_Zi
Hallo Frank,
warum nicht nur den sichtbaren Bereich kopieren?

AW: bei Filter letzte zelle ermitteln
08.09.2012 10:05:18
Frank
Hallo, das habe ich mit
ActiveSheet.Range("W6:AT" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Copy
hinbekommen. Das Problem ist, er kopiert mir alle 6 zeilen in neues Blatt ich möchte aber nur zb W6:W7 und das geht nicht.

Anzeige
AW: frage
08.09.2012 10:09:01
hary
Hallo
in deiner Bsp.Tabelle sind es zwei Zellen. jetzt schreibst Du:
 zb W6:W7 

das sind zwei Zeilen.
gruss hary

AW: bei Filter letzte zelle ermitteln
08.09.2012 10:05:32
hary
hallo Frank
Teste mal.

Sub rueber()
Dim a As Long
Dim filterzeile As Long
With Worksheets("Tabelle2")
a = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
filterzeile = ActiveCell.SpecialCells(xlLastCell).Row
.Cells(a, 1).Resize(, 2).Value = Cells(filterzeile, 6).Resize(, 2).Value
End With
End Sub

gruss hary
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige