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

Beim Kopieren (mit VBA) bleiben 'Reste'?

Forumthread: Beim Kopieren (mit VBA) bleiben 'Reste'?

Beim Kopieren (mit VBA) bleiben 'Reste'?
26.09.2024 12:44:06
Andrea
Hallo an die VBA-Profis,
ich habe folgendes Problem (s. Anhang):

ich habe verschiedene Tabellenblätter, die alle einen vergleichbaren Aufbau haben. Darin kommt u.a. eine intelligente Tabelle vor, die unterschiedliche Zeilenanzahlen haben können. Nach bestimmten Zeitabschnitten möchte ich alle Tabellenblätter auf den Stand des TB 'Muster' bringen.

Hier die Datei: https://www.herber.de/bbs/user/172420.xlsm

Mit Hilfe des Forums habe ich den Code zusammen gestellt, der eigentlich funktioniert - bis auf: bei TB, die länger als das Muster sind bleibt beim Aufruf des Makros unter den Tabelle noch ein 'Rest'.

Wie kann - nach Anpassung des Codes - dieser 'Rest' auch noch gelöscht werden?

Vielen Dank schon mal
Liebe Grüße
Andrea
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bezogen auf deine...
26.09.2024 13:13:50
Andrea
Hallo Case,

vielen Dank für die schnelle und super Lösung. Funktioniert prima.
Nun war die Datei nur ein Beispiel. Wenn der Bereich der intelligenten Tabelle nun von B13:AU40 reicht?
Wo bzw. was müsste geändert werden? (Entschuldigung, hätte ich ja auch gleich so schreiben können ;-( )

Viele Grüße
Andrea
Anzeige
Ja war einfach...
26.09.2024 13:50:59
Case
Moin, :-)

... nur schnell hingeschrieben von mir. ;-)

Nimm den Columns.Count:
https://learn.microsoft.com/de-de/office/vba/api/excel.listcolumns.count 
ThisWorkbook.Worksheets("Muster").ListObjects(1).ListColumns(1).DataBodyRange.Resize(, .ListColumns.Count).Copy .DataBodyRange(1, 1)

Wenn du öfters mit ListObjects arbeitest, dann schau mal hier: ;-)
https://www.thespreadsheetguru.com/listobject-tables-vba/

Servus
Case
Anzeige
AW: Ja war einfach...
26.09.2024 13:55:45
Andrea
Hallo Case,

Danke nochmals. Alles Bestens.
Super auch der Link für die intelligenten Tabellen. Die nutze ich tatsächlich häufig.

Liebe Grüße
Andrea
AW: Bezogen auf deine...
26.09.2024 13:32:40
Yal
Hmm... komme auf die gleiche Idee, nur das Übertragen der Daten hatte ich mir leichter vorgestellt.
Die wesentliche unterschied ist, dass ich alle Zeile lösche und dementsprechend eine Zeile wieder erzeugen muss (ListRows.Add) 

Sub KopiereUndLoescheBereich_ab_TB7()

Dim M As ListObject



    Set M = Worksheets("Muster").ListObjects(1)

    For Each ws In Worksheets

        If ws.Name > M.Parent.Name Then

            With ws.ListObjects(1)

                Do While .ListRows.Count

                    .ListRows(1).Delete

                Loop

                .ListRows.Add

                M.ListColumns(1).DataBodyRange.Resize(, M.ListColumns.Count).Copy .DataBodyRange(1, 1)

            End With

        End If

    Next

End Sub


@Andrea: ggü Cases Code gibt es hier keine Fixierung auf 6 Spalten. Es wird die Anzahl von Spalten von Muster übernommen.

VG
Yal
Anzeige
Einfacher geht doch
26.09.2024 13:39:32
Yal
dachte ich mir, dass es doch einfacher gehen muss (Tückisch, der Objektmodell von ListObject) 

Sub KopiereUndLoescheBereich_ab_TB7()

Dim M As ListObject



    Set M = Worksheets("Muster").ListObjects(1)

    For Each ws In Worksheets

        If ws.Name > M.Parent.Name Then

            With ws.ListObjects(1)

                Do While .ListRows.Count > 1

                    .ListRows(1).Delete

                Loop

                M.DataBodyRange.Copy .DataBodyRange(1, 1)

            End With

        End If

    Next

End Sub


VG
Yal
Anzeige
AW: Einfacher geht doch
26.09.2024 13:52:30
Andrea
Hallo Yal,

vielen Dank auch für deine Lösung.
Funktioniert (natürlich) ebenso, mit der tollen Möglichkeit der Spaltenanzahlunabhängigkeit.

Liebe Grüße
Andrea

Forumthreads zu verwandten Themen

Zellbezug beim Kopieren
Andreas

Hallo zusammen,
...es gibt Tage, da scheitert es sogar beim simplen Kopieren ;o(
Ich habe in einem Arbeitsblatt Daten in einer Zeile stehen (d.h. z.B. 123 in Zelle A1, 345 in B1, 678 in C1, etc.). Diese Daten sollen (ebenfalls zeilenweise) in ein anderes Arbeitsblatt übernommen werden,...
28.08.2008 17:25:00
Thread-ID: 1005539
3 Beiträge
Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

Guten Abend
Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
Fehlermeldung beim Kopieren von Tabellenblättern
Tabellenblättern

Hallo!
Ich bekomme beim Kopieren von Tabellenblättern folgende Fehlermeldung.

Was bedeutet sie? Was kann ich dagegen tun? Kann man sie automatisch bestätigen lassen? (ich kopiere die Tabellenblätter mit Hilfe eines Makros)
Freu mich auf Eure Ideen!
Schöne Grüße
Peter
04.09.2008 13:16:00
Thread-ID: 1007383
7 Beiträge
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Durchlaufende numerierung beim kopieren bereich
Karel

Guten abend Forum,
habe letzte mal mit hilfe von euch ein bestimmtes bereich x mal Kopieren in anderes Tabelleblatt Etikett_print gemacht.
zusatz frage:
wie kan man noch eine durchlaufenden nummerierung machen beim Kopieren in Tabelleblat Etikett_print
anzahl durch eingabe in G3...
10.09.2008 20:31:33
Thread-ID: 1008914
5 Beiträge
Abfrage beim Kopieren von Zeilen
Zeilen

Hallo, das nachfolgende Makro (weiter unten) habe ich hier im Forum erhalten und benötige nach einigen Tests die Abfrage nach der Datei nicht mehr.
Ich benötige nur noch die Abfrage nach dem "Ziel"-Tabellenblatt. Dieser Name soll beim Start des Makros eingegeben werden. Bei erneutem Start...
03.10.2008 19:48:00
Thread-ID: 1014077
7 Beiträge
Anzeige
Excel schneidet beim Kopieren alles über 255 ab
Joachim

Hi,
ich möchte eine komplette Tabellen von einer Mappe in die andere kopieren. Dabei werden mir aber alle Zellen, die mehr als 255 Zeichen haben, auf 255 gestuzt.
Excel meint dazu, ich soll alle Zellen , die mehr als 255 haben, einzeln kopieren :-((((
Mache ich was falsch ?
Da...
10.10.2008 10:48:00
Thread-ID: 1015526
17 Beiträge
Überlauf beim Kopieren von Ranges
Ranges

Hallo zusammen,
ich bin neu hier im Forum und schreibe per VBA an einem Makro, um csv.Files aus vordefinierten Ordnern und nach Sparten geordnet in eine Übersicht zu schreiben und ordentlich zu formatieren. Hierzu kopiere ich sie in einen Arbeitsbereich und lege pro Sparte individuell fest...
24.10.2008 12:02:57
Thread-ID: 1018950
3 Beiträge
Anzeige
Namensverweise beim Kopieren
mknelles

Liebe Leute,
ein Problem mit dem ich kämpfe, seit dem ich weiß wie man Excel schreibt:
Ich möchte ein Sheet einer Quelldatei in eine fremde Zieldatei kopieren. Die in der Quelldatei verwendeten Namen sollen auch kopiert werden. Die Namensdefinition soll sich dabei allerdings auf die ord...
29.12.2008 19:48:59
Thread-ID: 1035857
5 Beiträge
Gültigkeit ausser Kraft beim Kopieren
Manu

HAllo
ich habe in einer Spalte Gültigkeitsbeschränkungen (nur Datum) und trotzdem kann man einen string hineinkopieren. So eintragen geht aber wie gewollt nicht. Wo muss ich noch was einstellen, dass vorm Kopieren der Inhalten die Gültigkeit überprüft wird.
Besten Dank und Gruss
Man...
08.01.2009 10:00:29
Thread-ID: 1037778
4 Beiträge
Daten beim kopieren bereits abschneiden
Joachim

Hi,
ich kopiere mit folgendem Code Daten von einer Spalte zur anderen:
Worksheets("Temp").Range("CW2:CW1000").Copy Worksheets("data").Range("B10")
Inhalte sehen etwar so aus:
AUTO000005003
AUTO000005002
AUTO000005009
MOFA000004001
MOFA000004002
MOFA000004003<...
19.01.2009 10:02:00
Thread-ID: 1041326
14 Beiträge
Datumsformat der ComboBox beim Kopieren ändern
Heinz

Hallo Leute
Ich habe in der Combobox1 das Format "DDD. DD MMMM YY"
Nur in E6 sollte das Format "DD MMMM YY"stehen.
Die Combobox darf das Format aber nicht abändern,
da ich es für weitere Berechnungen genau so brauche.
Könnte mir bitte jemand wieder weiterhelfen.
Danke...
20.01.2009 13:30:12
Thread-ID: 1041823
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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