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

Forumthread: Letzten 10 Zellen mit Inhalt kopieren

Letzten 10 Zellen mit Inhalt kopieren
21.02.2020 19:36:38
Manuel
Hallo Leute,
Ich benötige bitte ein Makro, welches die letzten 10 Zellen mit Inhalt von Spalte A in Spalte B kopiert. ( zwischen Inhalte sind leere Zellen in Spalte A vorhanden).
Vielen lieben Dank im Voraus
Manuel
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mach's per Formel
21.02.2020 20:27:16
WF
Hi,
in B1 die Arrayformel:
{=INDEX(A:A;KGRÖSSTE((A$1:A$99"")*ZEILE(X$1:X$99);ZEILE(X1)))}
bis B10 kopieren
bzw. mit Index-Verlängerung (ohne Arrayabschluss:
=INDEX(A:A;KGRÖSSTE(INDEX((A$1:A$99"")*ZEILE(X$1:X$99);0);ZEILE(X1)))
WF
AW: mit Beibehaltung der urspr. Reihenfolge ...
21.02.2020 21:06:51
neopa
Hallo Manuel,
... würde ich es so vorschlagen:
Arbeitsblatt mit dem Namen 'Tabelle1'
 AB
1TextText6
2Text1Text7
3Text2Text8
4Text3Text9
5 Text10
6Text4Text11
7Text5Text12
8Text6Text13
9 Text14
10Text7Text15
11Text8 
12Text9 
13  
14  
15Text10 
16Text11 
17Text12 
18  
19  
20Text13 
21Text14 
22Text15 
23  
24  
25  

ZelleFormel
B1=INDEX(A:A;AGGREGAT(14;6;ZEILE(A$1:A$999)/(A$1:A$999>"");11-ZEILE(A1)))
Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Gruß Werner
.. , - ...
Anzeige
und hier als Makro . . .
22.02.2020 00:51:12
Matthias
Hallo
Option Explicit
Sub die_letzte_zehn()
Dim i&, x&, LoLetzte&
Columns("B:B").ClearContents
i = 10
LoLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For x = LoLetzte To 1 Step -1
If Cells(x, 1)  "" Then
Cells(i, 2) = Cells(x, 1): i = i - 1
End If
If i 
Gruß Matthias
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige