Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1904to1908
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
1904to1908
1904to1908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler beim Tabellen Kopieren und einfüg

Fehler beim Tabellen Kopieren und einfüg
30.10.2022 14:19:40
Eleftherios
Hallo liebe Herber Comunity,
ich bin endlich wieder an eine Hürde gestoßen und freue mich diese mit euch zu überwinden.
Der Fehler liegt im Modul Abrechnung und zwar im Abschnitt Tabelle Formatieren.
Wen bei der Datumseingabe das Journal manipuliert wird, z.B. 1.10.22 bis 31.10.22, funktioniert das Makro da die Tabelle nicht als intelligente Tabelle kopiert wird und somit vom Makro geändert werden kann.
Gibt man allerdings einen Zeitraum außerhalb der im Journal vorhandenen Daten ein, z.B. 1.10.22 bis 31.12.22, wird eine intelligente Tabelle eingefügt und das Makro stoppt bei der Zeile:

Tabelle10.UsedRange.SpecialCells(xlCellTypeVisible).Copy Destination:=Tabelle13.Cells(26, 4)
da er keine Tabelle überschreiben kann.
Und zu guter Letzt noch ein Schönheitsfehler den ich nicht weg bekomme, bei mir fügt er ans ende der eingefügten Tabelle eine Leere Zeile hinzu die nicht da hin gehört.
Hier die abgespeckte Mappe zum besseren Verständnis:
https://www.herber.de/bbs/user/155931.xlsm
Vielen Dank im Voraus für eure Hilfe und Anregungen.
VG Lefty

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

Betreff
Datum
Anwender
Anzeige
AW: Fehler beim Tabellen Kopieren und einfüg
30.10.2022 15:16:36
GerdL
Hallo Lefty,
übertrage mal nur die Werte ohne den Autofilter.

'....................................................
'Teil von Sub Abrechnungen
Range("D10:M10").ClearContents
Tabelle10.Range("A1").AutoFilter
Tabelle10.Range("A1").AutoFilter Field:=2, Criteria1:=">=" & CDbl(Datum1), _
Operator:=xlAnd, Criteria2:="
Beim Listobject kannst du die Ergebniszeile abschalten, die eine Leerzeile bei fehlenden Werten jedoch nicht.
Dies ist ein Feature vom Excel.
Gruß Gerd
AW: Ergänzung
30.10.2022 15:31:05
GerdL
Allerdings kannst du für die überflüssige Leerzeile am Schluß den Usedrange vom "Journal" verkleinern. (Erst Schutz aufheben,)

Sub u()
Worksheets("Journal").EntireRow.Resize(Worksheets("Journal").Rows.Count - 197).Clear
End Sub
Gruß Gerd
Anzeige
AW: Ergänzung
30.10.2022 15:46:22
Eleftherios
Hallo Gerd,
Vielen Dank für deine Antwort und Hilfe, jetzt schein alles zu Funktionieren.
Kannst du mir vllt noch Verraten wie ich die Formate mit übernehmen kann? Also % und €.
Die leere Zeile ist, wie gesagt, nur ein Schönheitsfehler der nicht weiter Stört aber ich versuche mal die von dir Vorgeschlagene Lösung...ansonsten sag ich es ist gewollt^^.
VG Lefty
AW: Ergänzung
30.10.2022 15:57:37
Eleftherios
Und nochmal Hallo,
hab es grad gefunden.
Statt xlPasteValues
xlPasteValuesAndNumberFormats eingeben dann übernimmt er auch die Formate mit.
Ein großes Dankeschön Gerd und auf bald.
VG Lefty

234 Forumthreads zu ähnlichen Themen

ans Tabellenende mit Leerzeilen kopieren
Robert-M

Grüß´ Euch im Forum,
in einer Tabelle „MASTER“ will ich die Daten anderer Arbeitsmappen „DETAIL 1, -2, -3“ untereinander auflisten.
Der Vorgang ist simpel:
per Makro
kopiere ich nacheinander jeweils den Inhalt von „DETAIL 1 ...“,
gehe in die Tabelle MASTER,
suche hier di...
08.09.2008 21:49:00
Thread-ID: 1008257
10 Beiträge
Anzeige
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Tabelle mit eingebetteten Makro kopieren
köhler

Hallo!
Wenn ich in der Tabelle ein Makro eingebettet habe, dann wird beim Kopieren zu einer neuen Datei das Makro nicht mehr mit dem Button angesteuert. Das Makro wurde mitkopiert aber der Button hat dann ein Bezug auf die "alte" Datei, von der ich das Tabellenblatt kopiert habe.
Wie k...
08.01.2009 12:33:58
Thread-ID: 1037865
6 Beiträge
Anzeige
Arbeitsblatt kopieren ohne Quellcode
Oliver

Hallo zusammen,
ich habe gerade in mühsamer Arbeit folgenden Code zum Ablegen von Sheets in Workbooks zusammengeschustert:
Dim strDatei As String
strDatei = "Ablage.xls"
Set wksMappeZ = Workbooks.Open(strDatei)
Set wksMappeQ = ThisWorkbook
wksMappeQ.Sheets("Kalkulation")...
24.02.2009 14:58:21
Thread-ID: 1053533
4 Beiträge
Blatt kopieren mit VBA
Torsten

Hallo beisammen,
wie muß der Code vervollständigt werden, wenn ich das gerade aktive Blatt kopieren und immer an die letzte Position einfügen möchte?
Vielen Dank für Eure Tipps.
Gruß
Torsten
06.03.2009 16:36:27
Thread-ID: 1057377
5 Beiträge
Tabelle mit var. Inhalt kopieren
Robbie

Hallo zusammen, ich mal wieder ein Problemchen.
Ich habe ein Makro laufen das mit Excel 2003 erstellt wurde. Der Tabelleninhalt sol kopiert werden, der aber unterschiedlich lang ist. Nun hatte ich dies immer mit dem folgenden Code markiert:
Range("A2", Range("p65536").End(xlUp)).Select<...
20.03.2009 10:06:08
Thread-ID: 1062062
5 Beiträge
Tabellenblatt Kopieren, mit anderem Name speichern
Mandy

Hi,
Hoffe mal wieder auf Eure Hilfe: Wie kann ich denn per Makro in meiner XLS das Sheet "Ablage" kopieren und im gleichen sheet unter dem Name "Data" wieder einfügen ?
Danke
mandy
24.03.2009 14:35:27
Thread-ID: 1063343
3 Beiträge
Blatt Kopieren ohne Shapes
ptonka

Hallo zusammen,
ich kopiere den Inhalt eines gesamten Blattes (Tabelle1) auf ein 2. Blatt (Tabelle2) um die Daten dort weiter zu verarbeiten. Nun habe ich auf Tabelle1 mehrere Schaltflächen, um Makros zu starten.
Diese werden beim kopieren (per VBA) auch mit auf das 2. Blatt kopiert.
22.07.2009 10:53:00
Thread-ID: 1090452
16 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
4
3
5
7
3
4
4
2
15
5
3
5
7
4
2
5
2
4
6
2
1
6
2
7