Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 09:54:17
Durchschnittswerte zwischen Tagen berechnen
16.04.2024 09:51:15
Frage: KPI - Logistik Dashboard
16.04.2024 09:22:11
Wenn Istleer über mehrere Blätter
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1624to1628
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
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle mit Formeln erweitern

Tabelle mit Formeln erweitern
07.06.2018 17:20:48
Torsten
Hallo wieder einmal.
Mein Projekt schreitet voran. Nun begegne ich einem neuen Problem.
Um das besser zu verdeutlichen, werde ich die Date mal hochladen.
Zur Erklaerung.
In Sheet "Main Sheet" sind die Daten in einer Tabelle, die mit Einfuegen - Tabelle angelegt wird. Deren Range erweitert sich normalerweise automatisch, wenn neue Zeilen angefuegt werden. Ich habe diese Loesung bevorzugt, da in den Spalten Q-Y Formeln hinterlegt sind, die automatisch in die naechsten angefuegten Zeilen uebernommen werden sollen. Dies funktioniert auch super, wenn man die neuen Zeilen manuell anfuegt per copy/paste. Jetzt habe ich aber einen Code, der dieses Sheet mit dem 2. Sheet "Daily" vergleicht, und dementsprechend neue Zeilen in "Main Sheet" anfuegt. In dem Fall wird aber die Range der Tabelle in "Main Sheet" nicht automatisch erweitert. Kann mir jemand verraten, warum das nicht funktioniert?
Wie gesagt, werde ich die Beispieldatei hochladen. Bitte helft mir. Oder vielleicht habt ihr eine andere Idee, wie ich die Formeln in die angefuegten Zeilen uebernehmen kann.
Vielen Dank wieder mal im Voraus.
Gruss Torsten
Datei:
https://www.herber.de/bbs/user/122008.xlsm

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle mit Formeln erweitern
07.06.2018 21:32:08
Robert
Hallo Torsten,
in Deiner Datei habe ich das Makro zum Kopieren nicht gefunden. Deshalb weiß ich nicht, wie Du das gemacht hast. Ich vermute mal, dass Du die komplette Zeile kopierst. Wenn Du nur die betroffenen Spalten A bis J wie in nachstehendem Makro (zum Testen habe ich nur mal die Zeile 2 genommen) von der Tabelle "Daily" in die Tabelle "Main Sheet" kopierst, müssten die Formeln in den Spalten Q - Y automatisch übernommen werden. 
Sub Kopie()
Dim WS1 As Worksheet: Set WS1 = Worksheets("Daily")
Dim WS2 As Worksheet: Set WS2 = Worksheets("Main Sheet")
Dim lngRow As Long
lngRow = WS2.Range("A" & Rows.Count).End(xlUp).Row + 1
WS2.Unprotect "?"
WS1.Range("A2:J2").Copy Destination:=WS2.Range("A" & lngRow)
WS2.Protect "?"
Set WS1 = Nothing
Set WS2 = Nothing
End Sub
Gruß
Robert
Anzeige
AW: Tabelle mit Formeln erweitern
08.06.2018 10:10:46
Torsten
Hi Robert. Danke fuer deine Antwort.
Der Code zum Kopieren ist in Modul 1 in der 2. For Schleife.
For lngRow = 2 To WS1.Cells(Rows.Count, 6).End(xlUp).Row
If WorksheetFunction.CountIfs(WS2.Columns(6), WS1.Cells(lngRow, 6), _
WS2.Columns(7), WS1.Cells(lngRow, 7)) = 0 Then _
WS1.Rows(lngRow).Copy WS2.Rows(WorksheetFunction.CountA(WS2.Columns(6)) + 1)
WS2.Cells(WorksheetFunction.CountA(WS2.Columns(6)), "O") = Date
Next lngRow
Hier werden erst die Zeilen in den Spalten F und G verglichen und nur neue Zeilen in WS 2 einkopiert. Aber mit diesem Code wird die Tabelle nicht automatisch erweitert und somit werden auch die Formeln in Q-Y nicht uebernommen. Der Code funktioniert super, bis auf dieses kleine Problem
Anzeige
AW: Tabelle mit Formeln erweitern
08.06.2018 10:44:52
Robert
Hallo Torsten
sorry, habe ich glatt übersehen. Aber es ist wie vermutet, Du kopierst die komplette Zeile, also auch die Spalten Q-Y aus der Tabelle Daily und da sind keine Formeln drin. Ändere die Copy-Anweisung in der If-Abfrage wie folgt, dann müsste es klappen: 
If WorksheetFunction.CountIfs(WS2.Columns(6), WS1.Cells(lngRow, 6), WS2.Columns(7), WS1.Cells( _
lngRow, 7)) = 0 Then WS1.Range("A" & lngRow & ":J" & lngRow).Copy WS2.Range("A" & WorksheetFunction.CountA(WS2.Columns(6)) + 1)
Gruß
Robert
Anzeige
AW: Tabelle mit Formeln erweitern
08.06.2018 10:49:00
Torsten
OK. Kann ich auch nochmal versuchen. Dann brauch ich vielleicht die listobject.resize Methode nicht.
Danke nochmals.
AW: Tabelle mit Formeln erweitern
08.06.2018 10:45:16
Torsten
Hi nochmal Robert.
Habs rausgefunden. Muss das hier mit der listobject.resize Methode machen.
Hier der Code dazu, den ich nach der Kopierschleife eingefuegt habe. Klappt.
Dim tbl As ListObject
Dim Lrow1 As Long
Lrow1 = WS2.Cells(Rows.Count, "A").End(xlUp).Row
Set tbl = WS2.ListObjects("Table1")
tbl.Resize tbl.Range.Resize(Lrow1)
Habe hier zum check Spalte A gewaehlt, da dort immer was drin steht.

300 Forumthreads zu ähnlichen Themen

Tabellen mit Formeln drucken
ing.grohn

Hallo Forum,
hat jemand ne gescheite Idee, wie man eine Tabelle mit "sehr langen" Formeln "formatiert" ausdrucken kann? (ich meine damit eine handhabbare und lesbare Form)
Für eine Antwort bedanke ich mich.
Mit freundlichen Grüßen
Allbrecht Grohn
14.12.2009 19:46:39
Thread-ID: 1123878
9 Beiträge
Anzeige
Tabelle mit Formaten, Formeln, Werten kopieren...
Ina

Ein hoffnungsvolles Hallo und guten Morgen an das Forum,
ich möchte aus einer Mappe verschiedene Tabellenblätter aussuchen und komplett mit Formeln, Werten uns allen Formaten (auch Zellfärbung) in eine neue Mappe kopieren (Codeschnipsel weiter unten).
Das funktioniert auch fast... Nur d...
08.10.2012 10:26:27
Thread-ID: 1280917
5 Beiträge
Tabelle mit Formeln neu sortieren
Marcel

Guten Tag,
ich habe eine Exceltabelle vorliegen, in der in einer Spalte 6 (z. B. Spalte A) Verkäufer eingetragen sind, allerdings kommen die 6 Verkäufer jeweils mehrfach vor. In der Spalte rechts davon (Spalte B) Stehen Verkaufszahlen (da jeder Verkäufer nur für ein Produkt zuständig ist un...
27.05.2014 08:15:47
Thread-ID: 1363579
7 Beiträge
Anzeige
Tabelle automatisch erweitern.. brauche Hilfe!!
Felix

Moin zusammen,
ich habe da ein Problem und komme irgendwie nicht weiter.. Bitte helft mir!
Und zwar habe ich mal eine kleine Beispieltabelle erstellt um mein Problem besser erklären zu können.
Hier die Tabelle: https://www.herber.de/bbs/user/95207.xlsm
Wenn jemand ein anderes...
23.01.2015 13:26:31
Thread-ID: 1404674
6 Beiträge
Formeln mit anderen Tabellen finden
erichm

Hallo,
über die Recherche im Forum habe ich folgendes Makro entdeckt:
https://www.herber.de/forum/archiv/1408to1412/t1408474.htm
Damit werden alle Formeln mit Bezügen zu externen EXCEL-Dateien wunderbar aufgelistet.
Ich suche allerdings eine "Übersicht" anhand derer ich erkenne...
19.06.2015 09:13:59
Thread-ID: 1431836
7 Beiträge
Dynamische Tabelle erweitern nach rechts
Dave

Hallo Leute,
ich versuche mich seit Tagen an einem Problem und hoffe dass ihr mich helfen könnt.
Das Problem sieht so aus dass ich eine dynamische Tabelle erstellen möchte wobei der Datenbereich sich nach rechts erweitert.
Ich habe von D20 bis D31 Werte die sich nicht verändern.
21.09.2015 09:46:58
Thread-ID: 1448410
2 Beiträge
AlphabetischesSortieren einer Tabelle mit Formeln
Andreas

Hallo alle zusammen,
ich weiß, es ist wahrscheinlich sehr einfach, allerdings habe ich es immer noch nicht geschafft, deshalb muss ich hier so naiv fragen.
Ich möchte mit einer Formel eine bestehende Tabelle in einem neuen Arbeitsblatt alphabetisch Sortiert ausgeben. Dies soll mit Form...
13.04.2016 22:33:43
Thread-ID: 1487892
2 Beiträge
Auslesen von Tabelle mit Matrixformeln
Tabelle

Hallo Spezialisten,
ich bin leider nicht der Experte für Matrixformeln und würde mich über eine Hilfe zu diesem Thema sehr freuen.
Ich habe Daten in einer Tabelle von H14 bis U56. Im Kopf dieser Tabelle von H14 bis U14 werden Begriffe genannt z.B Auto, Fahrrad, LKW, Motorrad usw., welch...
07.01.2018 23:29:58
Thread-ID: 1600808
5 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
8
5
4
6
3
5
6
1
1
4
17
8
3
2
38
2
1
7
2
1
1
4
6
4
8