Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2000to2004
2000to2004
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Von intelligente Tabelle nur sichtbare Zeilen kopieren

Forumthread: Von intelligente Tabelle nur sichtbare Zeilen kopieren

Von intelligente Tabelle nur sichtbare Zeilen kopieren
03.01.2025 09:54:19
Lordy
Hallo und Frohes Neues!

Ich verzweifel grad :(
Folgende Aufgabe...Ich möchte von einer intelligenten Tabelle auf einem Arbeitsblatt, in ein anderes Blatt und intelligente Tabelle die Werte kopieren, aber nur wenn Bestand größer 0.

Also setz ich ja ein der QuellTabelle ein Autofilter, und dann soll nur die sichtbaren Zeilen in die andere Tabelle kopiert werden kopiert werden.

Aber egal wie ich es verusche, entweder passiert gar nix oder immer der ganze Inhalt der Tabelle.

Habs mit tblQuelle.DataBodyRange.SpecialCells(xlCellTypeVisible) probiert, aber er erkennt die Zeilen anscheinend nicht...

Jemand vlt andere Lösung?

Danke

Grüße
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Von intelligente Tabelle nur sichtbare Zeilen kopieren
03.01.2025 10:33:44
hary
Moin
Versuch es mal so. Blattnamen muss du anpassen und evtl. tblZiel 
Worksheets("Tabelle1").ListObjects("tblQuelle").DataBodyRange.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle2").ListObjects("tblZiel").Range.Offset(1, 0)

gruss hary
Anzeige
AW: Von intelligente Tabelle nur sichtbare Zeilen kopieren
03.01.2025 11:26:31
GerdL
Frohes Neues! 
Sub Unit()

    

    Dim C As Range, rngQuelle As Range, rngZiel As Range

    

    Set rngQuelle = Tabelle1.ListObjects(1).DataBodyRange

    Set rngZiel = Tabelle2.ListObjects(1).DataBodyRange

    

    rngZiel.ClearContents



    For Each C In rngQuelle.Rows

        If C.RowHeight > 0 Then

            i = i + 1

            C.Copy rngZiel.Cells(i, 1)

        End If

    Next



End Sub

Gruß Gerd
Anzeige
AW: Von intelligente Tabelle nur sichtbare Zeilen kopieren
03.01.2025 10:46:06
Lordy
Hallo Hary

Habs inzwischen geschafft, aber Danke für die Hilfe!!!

Forumthreads zu verwandten Themen

Import aus Word
Ron
Hallo,
wer kann mir helfen und ggf. den Code optimieren.
Ich möchte den Inhalt von großen Word-Dateien einlesen und verarbeiten.
Leider ist die Verarbeitungsgeschwindigkeit nicht sehr gut.
Kann jemand Hand anlegen?
Option Explicit Sub Datei_auswählen() Dim Dateiname As Var...
24.04.2023 14:08:24
Thread-ID: 1928590
11 Beiträge
Makro für Datum
lemmy
Hallo liebes Forum,
ich stehe vor folgendem Problem. Ich muss regelmäßig Excel und CSV Datei aus dem WWW ziehen um diese in einem Bericht zusammenzufassen.
Soweit so gut.
Ich habe hier z.B. einen Datei "Test"
In dem ersten Arbeitsblatt sind Daten der EZB mit Wechselkursen als CSV Dat...
06.09.2022 13:22:47
Thread-ID: 1897407
2 Beiträge
Formatierung f. Druckbereich als neue Arbeitsmappe
Rainer

Hallo,
möchte aus einer Tabelle ein Arbeitsblatt kopieren und in einem Verzeichnis zum versenden speichern.
Dabei habe ich zwei weselntliche Punkte zu beachten:
Zum einen enthält das zu versendende Blatt im Bereich A-E Inhalte, welche das neue Blatt nicht enthalten soll
Zum and...
01.12.2009 22:13:42
Thread-ID: 1121291
7 Beiträge
Anzeige
zeile kopieren (VBA)
der

Hallo!
Ich möchte mit VBA die Tabelle eines Arbeitsblattes(A) in ein Arbeitsblatt(B) einer anderen Arbeitsmappe kopieren. Dabei soll der Tabelleninhalt (ohne die Spaltenbezeichner - erste Zeile) unter den bestehenden Inhalt der Tabelle B kopiert werden. Wie mache ich das am Besten?
Mein...
28.06.2004 15:55:03
Thread-ID: 446940
5 Beiträge
Bräuchte einmal Hilfe bitte
benny124aka

Hallo,
bin ein ziemlicher VBA Neuling und kann zwar schon einiges nachvollziehen beim selbst schreiben harperts aber noch ein wenig. Mit eurer Hilfe habe ich aber schon einiges hinbekommen. Vielen Dank an dieser Stelle nochmal dafür. (Und ja das geht bestimmt auch einfacher oder schöner/ i...
06.02.2019 22:30:37
Thread-ID: 1673847
2 Beiträge
Wert aus der Zwischenablage in einer Tabelle suchen
Ingo Siemon
Hallo

Ich habe folgenden VBA Code:
Sub AAA()

' Inhalt der aktiven Zelle in die Zwischenablage kopieren
Selection.Copy

' Wechsel zum Arbeitsblatt "Angebot"
Sheets("Angebot").Activate

End Sub

Nun befindet sich ja der kopierte Wer...
13.01.2024 00:02:45
Thread-ID: 1960380
1 Beitrag
Tabellen "geschwärzt" in excel 2003
Jutta

Hallo zusammen,
ich bin Newbie hier im Forum, und hoffe, ihr könnt mir bei einem seltsamen Problem helfen.
Bestimmten Dateien, die in älteren Excel-Formaten erstellt wurden und prima funktionierten, sehen in Excel 2003 sehr seltsam aus: Es sind mehrere formatierte Tabellen auf einem Arb...
30.01.2006 01:00:56
Thread-ID: 725627
15 Beiträge
Anzeige
Mittels Makro ein Formular an 2 Mails gleichz...
Holger

Hallo Leute,
mein Subject war ein bisserl lang, daher nochmal komplett:
Betreff: Mittels Makro ein Formular an 2 Mails gleichzeitig über Outlook 2003 senden.
*******************
IST - Zustand:
Ich bin Gitarrenlehrer und verschicke an meine Schüler sogenannte Nachbereitungen...
05.08.2010 19:19:16
Thread-ID: 1170674
2 Beiträge
Dropdown zum Öffnen von Tabellenblättern
Tabellenblättern
Hallo zusammen,
ich bin noch ganz neu in diesem Forum und hoffe ihr könnt mir bei meinem Anliegen helfen:
Ich würde gerne ein Dropdown Menü auf dem "Start" Arbeitsblatt erstellen, wo alle Titel der anderen erstellten Arbeitsblätter (Kurse) aufgelistet sind.
Dazu kommt, dass ich gerne be...
18.01.2023 17:49:16
Thread-ID: 1916315
7 Beiträge
BilderZellbereich kopieren(FCS) Hallo Franz,
Lemmi

"Zellbereich + Bilddatei nach Powerpoint II"
Hallo Franz,
ja das Makro funktioniert! Super!
Jedoch scheint es ausschließlich in meiner Originaldatei Probleme zu geben!
Nach einigen Test's (mit Excel 2007; Windows 7) habe ich folgende Fehler bei mir festgestellt.
Nehme ich me...
05.05.2013 11:37:29
Thread-ID: 1311682
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum