Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2024 17:36:21
Überprüfung des Datenformates der Zwischenablage
14.05.2024 15:50:45
Megensum pro Lieferant aufgrund Datum An- und Auslieferung
14.05.2024 15:38:40
Makro und Formeln zusammenführen
14.05.2024 15:23:59
VBA Dateiname
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1868to1872
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

in gefilt. DS kopieren

in gefilt. DS kopieren
30.01.2022 17:36:48
Fred
Hallo Excel Profis,
ich habe eine Frage zu dem kopieren in eine gefilterte Tabelle.
Ich filtere DS ab Zeile 14 (Titel Zeile 13)
Das filtern ergibt stets nur 1 DS
____________________
Ich möchte den Wert von "BJ4" nun in Spalte "X" des gefilterten Datensatzes kopieren.
Kann mir bitte ein Profi entspechendes Makro schreiben?!
Gruss
Fred

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
in gefilt. DS kopieren / Lösung
30.01.2022 18:38:27
Fred
.. so kopiere ich den Wert aus Zelle "BJ4" in meine gefilterte Daten,- Spalte "X"

Dim rngF As Range
Set rngF = ActiveSheet.AutoFilter.Range
Set rngF = rngF.Offset(1).Resize(rngF.Rows.Count - 1)
Application.Intersect(ActiveSheet.Columns(24), rngF) = Sheets("Zeit").Range("BJ4")
Gruss
Fred
AW: in gefilt. DS kopieren / Lösung
31.01.2022 15:40:30
Yal
Hallo Fred,
ich musste deine Frage mehrmals lesen, um zu verstehen, worum es geht. Was Du schreibst, versteht -fast- nur Du.
Also: Du hast einen Bereich, der gefiltert wird. Diese Filterung ergibt immer nur eine gefilterte/sichtbare Zeile. Wie greift man mit VBA in dieser sichtbare Zeile die Zelle in Spalte X?
Sicher, dass es immer nur eine Zeile gibt? Oder könnte es sein, dass keine Zeile gibt? Folgende Lösung geht auf "letzte Zelle". Bei einer Filterung ohne Ergebnis, ist dann diese Zelle im Header der Filterbereich!

Sub LetzteGefilterteZeile_finden()
Dim Rng
Set Rng = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeLastCell).EntireRow.Range("X1")
Debug.Print Rng.Address, Iif(Rng.Row = ActiveSheet.AutoFilter.Row, "Achtung: Filter ohne Treffer", "")
End Sub
VG
Yal
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige