@8:40 Wenn du dir die Zeile ansiehst: "Sheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues" wirst du feststellen, dass die Werte unter den letzten Wert aus Spalte A eingefügt werden. - nicht da wo du hinklickst…
Gibt es eine Möglichkeit eine exakte Zeile anzugeben, in der die Auflistung starten soll? Bzw was müsste ich eingeben? Also anstatt sie an etwas anderem auszurichten (z.B. dem letzten Wert aus Spalte A)
Hi Johannes, ich habe eigentlich immer nur mit den Standard-Sachen in Excel gearbeitet, habe aber jetzt einen großen mehrseitigen Katalog in eine Exceltabelle gepackt, nun wollte ich mit deiner Funktion einen bestimmten Produkttypen auf einer anderen Seite suchen. Die Seite wo es angezeigt werden soll heißt "Test" und die aus der gesucht werden soll "Preispflege Tanks". Mein Plan war, wie in einem Konfigurator oben Buttons anzulegen, welcher denselben Namen bekommt wie das Suchwort, damit ich bei der Auswahl des Types darunter die möglichen Ausführungen angezeigt bekomme. Plan ist sich eigentlich so durchzuklicken, erst Typ auswählen, dann die möglichen Durchmesser aus einer Spalte, welche dann angezeigt wird als buttons auszugeben und danach den inhalt zu wählen, falls sowas komplexes überhaupt möglich ist für jemand unerfahrenen wie mich. Mein Makro für den ersten Schritt lautet: Sub BO() Dim variable As String variable = [A1] With Sheets(variable).UsedRange .AutoFilter Field:=4, Criterial:="BO" .Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy End With Sheets("Test").Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).PasteSpecial xlPasteValues Sheets(variable).UsedRange.AutoFilter End Sub Liebe Grüße Michel
Servus, vielen Dank für die super Erklärung. Kannst Du mir auf die schnelle sagen was ich ergänzen müsste damit ich bei betätigen des Buttons folgendes ausführe: 1. Letztes Makro (wenn vorhanden) löschen 2. Makro erneut ausführen besten Dank im voraus
Hallo =) Möchte aus einem Register eine Zeile ausschneiden und in weiteren Register mit Makros einfügen. Mit den Makroaufnahme bekomme ich es hin. Wie kann ich die Makros auf die weiteren Zeilen Übertragen? Oder muss ich wirklich pro Zeile alles eingeben?
Eine Frage hab ich noch: Ich hab ebenfalls einen Button gemacht um die Daten zu aktualisieren. Solange der Button in dem Arbeitsblatt ist, wo die Daten aufscheinen, solange ist alles OK. Ich wollte den Button aber gerne in einem anderen Arbeitsblatt haben. Hier kommt mir die Fehlermeldung "Langzeitfehler 9". Wie bekomme ich hin, dass der Button z.B. im Arbeitsblatt A ist und im Arbeitsblatt B kommt das Ergebnis heraus? Hast du eine Idee?
Das liegt daran, dass dein Makro (hinter dem Button) nur im Arbeitsblatt A abgespeichert ist. Du müsstest das Makro in deine "persönliche Makro-Arbeitsmappe" kopieren. (Videos dazu sind am Kanal). Dann kannst du in jedem Arbeitsblatt das Makro ausführen.
Tolles Video, danke! Ich hätte eine Frage! Ich möchte nicht jedes Mal in A1 angeben, welche Arbeitsmappe ich durchsuchen möchte, sondern gleichzeitig alle Mappen durchsuchen, die mich interessieren (sie sind ca. 10). Womit muss ich variable = [A1] With Sheets(variable) im Code ersetzen, damit das zustande kommt?
Hi, danke für das tolle Video! Bitte um Hilfe: Ich habe eine Tabelle und möchte diese in ein anderes Tabellenblatt kopieren. Jedoch sollen Änderungen vom ersten Tabellenblatt auch in das zweite Tabellenblatt übernommen werden. Vielen recht herzlichen Dank! Liebe Grüße
Danke für die Hilfe TOP! Ein Problem hätte ich aber: Und zwar habe ich meine Werte die kopiert werden sollen aus einer intelligenten Tabelle und da funktioniert der .AutoFilter Field:=7, Criterial:="ja" leider nicht.... Gibt es eine andere Möglichkeit das zu lösen, als die intelligente Tabelle zu löschen und die Werte in eine "normale" Tabelle zu schreiben? MfG
Hallo, was passiert, wenn beispielsweise mehrere Zeilen bei "Bilanz 1" hinzugefügt werden? Beim kopieren rutschen alle Zeilen der "Übersicht" nach unten oder werden die betroffene Zeilen überschrieben? Vielen Dank!
Wie meinst Du? Es kann ja immer nur ein Tabellenblatt mit "Bilanz 1" geben? Aber grundsätzlich rutschen die Zeilen dort hin, wo Du deinen Maus Cursor hast :)
Der richtige Part mit "Zeilen in anderes Tabellenblatt kopieren wenn Bedingung erfüllt" beginnt erst ab 4:10 Hier der Code! Sub kopieren() Dim variable As String variable = [A1] With Sheets(variable).UsedRange .AutoFilter Field:=7, Criteria1:="ja" .Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy End With Sheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Sheets(variable).UsedRange.AutoFilter End Sub
Sub kopieren() Dim variable As String variable = [A1] With Sheets(variable).UsedRange .AutoFilter Field:=7, Criteria1:="ja" .Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy End With Sheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Sheets(variable).UsedRange.AutoFilter End Sub
Danke für das Video, verständlich und gut erklärt! Dazu noch eine Frage: Mit der Funktion werden meine gesuchten Zeilen in eine neue Arbeitsmappe kopiert, wenn ich diese nun in der neuen Arbeitsmappe bearbeite, soll die Änderung auch in der Quellarbeitsmappe automatisch geändert werden. Wie gehe ich hier vor?
Was für eine Excel Vorlage wünscht Du dir als Nächstes? Lass es uns wissen ... die Umfrage dauert nur 2 Minuten: form.typeform.com/to/YnQEMnvC?typeform-source=uob5nvb9stf.typeform.com Danke und frohes Excel'n Johannes
Danke dafür. Das hat mich einen Schritt näher zu meiner Lösung gebracht. Ich habe ein Tabellen Blatt, in dem ich die komplette Historie meines Fahrzeugs dokumentiere. Immer dann, wenn Kosten entstehen, erscheint in eine Zelle Ja. Nun möchte ich auf einem anderen Tabellen Blatt gerne nur die Zeilen kopiert und zusammengefasst sehen, die Kosten verursachen. Mit dem Makro klappt das schon super aber immer dann, wenn ich eine neue Zeile hinzugefügt habe und das Makro laufen lasse, kopiert mir das Makro alle Zeilen in das neue Tabellen Blatt. Wie kann ich das Makro so abändern, dass es inkrementell, also nur die neuen Einträge rüber kopiert?
Dieses Makro fügt die kopierten Felder nur im letzten freien Feld in Spalte A ein. Wie müsste das Makro aussehen, wenn die kopierten Daten im aktuellen ausgewählten Feld eingefügt werden sollen?
Gibt es eine Möglichkeit diesen Makro zu automatisieren so dass man nicht diesen Knopf drücken muss, sondern das automatisch passiert wenn etwas neues hinzukommt
Hallo ist es möglich einen Button hinzuzufügen, der alles aktualisiert? also falls in 1Bilanz ein neuer eintrag mit ja kommt damit der nach klick auf aktualiseren dann auch in der übersicht angezeigt wird?
Also einfach, dass das Makro nochmals ausgeführt wird? Das Makro "kopieren" kann ja zB in die Schnellzugriffsleiste hinzugefügt werden und immer wieder per Knopfdruck ausgeführt werden
Hey, bei mir hat alles wunderbar funktioniert. Nun habe ich jedoch meine Datenquelle durch eine sich automatisch aktualisierende Tabelle aus PowerQuery ersetzt, die sich automatisch mit denen sich in einem Ordner befindenden Daten ergänzt und bekomme plötzlich die Fehlermeldung "1004 - Anwendungs oder Objektdefinierter Fehler". Weißt du zufällig was es damit auf sich hat? Danke im Voraus!
Hallo zusammen. Ich Bekomme den Laufzeitfehler 1004: Die AutoFilter-Methode des Range-Objektes konnte nicht ausgeführt werden. Ich habe alle Anpassungen im Code gemacht und die Spalte ist bei mir 6. Kannst du mir da weiterhelfen? Danke für ein kurzes feedback
@@Excelpedia Hallo und Danke für deine schnelle Reaktion. Ich habe das Excel neu angelegt und den Code neu Kopiert, danach hat es geklappt. Danke für dein super Tutorial. Eine andere Frage: Ist es möglich von allen relevanten Tabellen gleichzeitig Inhalte mit den kriterien anzulegen ohne vorher jedesmal die Variable in A1 ändern zu müssen? Ziel soll es sein das ich mit dem Button Aktualisieren immer die Aktuelle kopien mit den Kriterien neu laden kann und die bisherigen die das Kriterium nicht mehr erfüllen, verschwinden. Danke für deine Antwort. Und Grüsse aus der Schweiz Hier noch der Kode und die Tabellen. Sub kopieren() Dim variable As String variable = [A1] With Sheets(variable).UsedRange .AutoFilter Field:=5, Criteria1:="z" .Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy End With Sheets("ZFRG").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Sheets(variable).UsedRange.AutoFilter End Sub Tabelle die ich gerne hätte: ZFRG Tabellen mit Kriterien: Firma1, Firma2, Firma3, Kunde A, Kunde B
Danke für dein Video! Hat alles bestens funktioniert, aber eine Frage bleibt :) Ich habe das Makro so angewendet, dass eine Liste entsteht, an welchen Tagen ich einen Termin habe. Jetzt ist es nur so, dass mir dadurch immer alle Termine aufgezählt werden. Ich hätte aber gerne, dass nur Termine, die entweder heute oder in der Zukunft stattfinden, erscheinen. Termine aus der Vergangenheit sollten nicht in der Liste auftauchen. Was kann ich da tun?
Du kannst ja eine Hilfsspalte einbauen. Mit dieser Spalte wird überprüft, ob das Datum => heute ist. Dann hast Du mal alle relevanten Daten und kannst für Diese dann das Makro anwenden. So würde ich es machen :-)
@@Excelpedia PERFEKT! Danke Eine Frage hab ich noch: Ich hab ebenfalls einen Button gemacht um die Daten zu aktualisieren. Solange der Button in dem Arbeitsblatt ist, wo die Daten aufscheinen, solange ist alles OK. Ich wollte den Button aber gerne in einem anderen Arbeitsblatt haben. Hier kommt mir die Fehlermeldung "Langzeitfehler 9". Wie bekomme ich hin, dass der Button z.B. im Arbeitsblatt A ist und im Arbeitsblatt B kommt das Ergebnis heraus? Hast du eine Idee? DANKE!!!
Super hilfreiches Video! Ich habe nur eine ergänzende Frage: Ist es möglich das Übersichtsblatt zu leeren, bevor die Zeilen Daten hineinkopiert werden? Wie sieht dann der Code aus?
Hi, vielen Dank für das Video. Wie kann ich die Formel denn erweitern, wenn ich auch Formeln und nicht nur Inhalte mit kopieren möchte. Ich habe in der Zeile Zellen, in denen Sverweise mit drin sind und diese benötige ich auch in der Übersicht wegen einer Aktualisierung. Vielen Dank
Wie Gollumfiech hängt es bei mir an der gleichen Stelle. Hatte mir viel von diesem Makro erhofft. Erhalte den Laufzeitfehler 9: Index außerhalb des gültigen Bereiches. Ich kopieren wie im Video das Makro über das Tabellenblatt in den Code Sub kopieren() Dim variable As String variable = [A1] With Sheets(variable).UsedRange .AutoFilter Field:=53, Criteria1:="1" .Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy End With Sheets("Arztuntersuchungen").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Sheets(variable).UsedRange.AutoFilter End Sub Ich seh kein Fehler :(
Hi und vielen Dank für dieses coole Makro, allerdings habe ich ein Problem: ich erhalte genau wie du bei min 5:49 diesen "Fehler". Ich komme einfach nicht dahinter :(, hättest du einen Tipp für mich?
@@Excelpedia danke für die Antwort! Ich habe es über die Persönliche Makroarbeitsmappe ausgewählt, wo ich es zuvor als neues Modul erstellt hatte....ergibt das Sinn?
@@Excelpedia jetzt gibt es einen Kaufzeitfehler....wäre es möglich dass du mir eine Tabelle mit installiertem Makro schickst? Das würde mir extrem weiterhelfen...Mfg
hallo, ich habe ein problem: habe zwei arbeitsblätter arbeitsblatt2: besteht aus 3 spalten bei dem jeweils immer der unterste wert in arbeitsblatt1 kopiert werden soll. im arbeitsblatt 1, spalte 2 soll nun nach bestimmten werden gesucht werden. sobald der wert x vorhanden ist, soll nun aus tabellenblatt 2 der letzte wert aus der spalte 1 in eine neue spalte ins tabellenblatt 1 rüber kopiert werden sobald der wert y in der spalte 2 vorhanden (im tabellenblatt 1), dann soll aus tabellenblatt 2, spalte 2 der unterste wert in eine neue spalte rüber kopiert werden wäre cool wenn da jemand ne lösung hätte danke
toll 1 Stunde bin ich am schrauben und nur immer Fehler 9 mmm das ist nicht wirklich toll ... leider habe ich es genau so im Code vom Blatt integriert ???
Warum will es nicht funktionieren? Sub kopieren() Dim variable As String variable = (Tabelle1) With Sheets(variable).UsedRange
.AutoFilter Field:=2, Criterial:="Hanfmehl"
.Offset(1, 0).SpecialCells(x1CellTypeVisible).Copy End With Sheets("Übersicht").Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).PasteSpecial xlPasteValues Sheets(variable).UsedRange.AutoFilter End Sub
@@Excelpedia Ja klar. Hab mir dein Video mehrmals angesehen. Hätt ja sein können das ich was übersehen habe. Allerdings nahm ich nicht Zelle A1 sondern D2.
@@henrykrieger151 Kopier einfach mal den Code und versuch es bitte nochmal: Sub kopieren() Dim variable As String variable = [A1] With Sheets(variable).UsedRange .AutoFilter Field:=7, Criteria1:="ja" .Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy End With Sheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Sheets(variable).UsedRange.AutoFilter End Sub
@@fontner Habe ich gemacht. Das gleiche problem. Zeigt: "Fehler beim Kompilieren", "Datei oder Bibliothek nicht gefunden" Könnte dir ein Screenshot senden.
Hi, vielen Dank für die Hilfe. Ich finde Makros recht hilfreich, jedoch werden diese immer zerschlagen, sobald eine neue Office-Version rauskommt. Gibt es auch eine Möglichkeit dies ohne zu machen? z.B. Suchkriterium ist ein Wort in der Spalte "E". Wenn vorhanden kopiere (verknüpfe) mir die komplette Zeile auf ein neues Blatt Vielen Dank vorab schon mal !!!!!!
Grundsätzlich sollte man alles machen, was mit den internen Excel Fkt. möglich ist. Alles geht aber nicht - dafür gibt es dann Makros. Normalerweise sind neue Office Versionen abwärtskompatibel, dh Makros die in alten Versionen erstellt wurden gehen auch in der neuen Version, aber nicht umgekehrt.
Sub AuswahlEinfügen() Dim variable As String variable = [A2] With Sheets(variable).UsedRange .AutoFilter Field:=8, Criterial:="ja" .Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy End With Sheets("Zusammenfassung").Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).PasteSpecial x1PasteValues Sheets(variable).UsedRange.AutoFilter End Sub Hey ich hab die Spalte F mit ja und nein belegt, die Tabelle aus welcher ich übertragen will heißt Rohbau welches ich in Feld A2 stehen habe. falls du mir den Fehler erklären kannst wäre ich dir sehr dankbar. Gruß Felix
Die verwendete Arbeitsmappe findet ihr auf der Excelpedia Seite: www.excelpedia.at/products/bestimmte-zeilen-in-anderes-tabellenblatt-kopieren
@8:40 Wenn du dir die Zeile ansiehst: "Sheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues" wirst du feststellen, dass die Werte unter den letzten Wert aus Spalte A eingefügt werden. - nicht da wo du hinklickst…
Gibt es eine Möglichkeit eine exakte Zeile anzugeben, in der die Auflistung starten soll? Bzw was müsste ich eingeben? Also anstatt sie an etwas anderem auszurichten (z.B. dem letzten Wert aus Spalte A)
Raphael Beldzik Nicht so einfach. Vielleicht wäre es einfacher vor deiner gewünschten Zeile ein Leerzeichen zu machen?
@@dafont Hat sich erledigt, danke dir!
Unterstützt den Kanal mit einem Abo und positiven Bewertung. Wir freuen uns über Rückmeldungen :-)
Hi Johannes,
ich habe eigentlich immer nur mit den Standard-Sachen in Excel gearbeitet, habe aber jetzt einen großen mehrseitigen Katalog in eine Exceltabelle gepackt, nun wollte ich mit deiner Funktion einen bestimmten Produkttypen auf einer anderen Seite suchen.
Die Seite wo es angezeigt werden soll heißt "Test" und die aus der gesucht werden soll "Preispflege Tanks".
Mein Plan war, wie in einem Konfigurator oben Buttons anzulegen, welcher denselben Namen bekommt wie das Suchwort, damit ich bei der Auswahl des Types darunter die möglichen Ausführungen angezeigt bekomme.
Plan ist sich eigentlich so durchzuklicken, erst Typ auswählen, dann die möglichen Durchmesser aus einer Spalte, welche dann angezeigt wird als buttons auszugeben und danach den inhalt zu wählen, falls sowas komplexes überhaupt möglich ist für jemand unerfahrenen wie mich.
Mein Makro für den ersten Schritt lautet:
Sub BO()
Dim variable As String
variable = [A1]
With Sheets(variable).UsedRange
.AutoFilter Field:=4, Criterial:="BO"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("Test").Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Liebe Grüße Michel
Servus,
vielen Dank für die super Erklärung.
Kannst Du mir auf die schnelle sagen was ich ergänzen müsste damit ich bei betätigen des Buttons folgendes ausführe:
1. Letztes Makro (wenn vorhanden) löschen
2. Makro erneut ausführen
besten Dank im voraus
Hallo, ich hätte gerne gewusst, ob und wie die Zusammenfassung der Zeilen, wenn Bedingung erfüllt ist, ohne Makros funktioniert. Vielen Dank
Hallo =) Möchte aus einem Register eine Zeile ausschneiden und in weiteren Register mit Makros einfügen. Mit den Makroaufnahme bekomme ich es hin. Wie kann ich die Makros auf die weiteren Zeilen Übertragen? Oder muss ich wirklich pro Zeile alles eingeben?
Eine Frage hab ich noch: Ich hab ebenfalls einen Button gemacht um die Daten zu aktualisieren. Solange der Button in dem Arbeitsblatt ist, wo die Daten aufscheinen, solange ist alles OK. Ich wollte den Button aber gerne in einem anderen Arbeitsblatt haben. Hier kommt mir die Fehlermeldung "Langzeitfehler 9".
Wie bekomme ich hin, dass der Button z.B. im Arbeitsblatt A ist und im Arbeitsblatt B kommt das Ergebnis heraus? Hast du eine Idee?
Das liegt daran, dass dein Makro (hinter dem Button) nur im Arbeitsblatt A abgespeichert ist. Du müsstest das Makro in deine "persönliche Makro-Arbeitsmappe" kopieren. (Videos dazu sind am Kanal). Dann kannst du in jedem Arbeitsblatt das Makro ausführen.
Gutes Video! Ist die Programmierung auch über Funktionen möglich? Wenn ja wie?
Tolles Video, danke! Ich hätte eine Frage! Ich möchte nicht jedes Mal in A1 angeben, welche Arbeitsmappe ich durchsuchen möchte, sondern gleichzeitig alle Mappen durchsuchen, die mich interessieren (sie sind ca. 10). Womit muss ich variable = [A1]
With Sheets(variable) im Code ersetzen, damit das zustande kommt?
Hi, danke für das tolle Video! Bitte um Hilfe: Ich habe eine Tabelle und möchte diese in ein anderes Tabellenblatt kopieren. Jedoch sollen Änderungen vom ersten Tabellenblatt auch in das zweite Tabellenblatt übernommen werden.
Vielen recht herzlichen Dank!
Liebe Grüße
Danke für die Hilfe TOP!
Ein Problem hätte ich aber: Und zwar habe ich meine Werte die kopiert werden sollen aus einer intelligenten Tabelle und da funktioniert der .AutoFilter Field:=7, Criterial:="ja" leider nicht....
Gibt es eine andere Möglichkeit das zu lösen, als die intelligente Tabelle zu löschen und die Werte in eine "normale" Tabelle zu schreiben?
MfG
Hab da noch ein Paar andere Videos am Channel wo das erklärt ist :)
Du kannst auch einfach mit Makros aufzeichnen dein eigenes Makro bauen :)
Hallo, was passiert, wenn beispielsweise mehrere Zeilen bei "Bilanz 1" hinzugefügt werden? Beim kopieren rutschen alle Zeilen der "Übersicht" nach unten oder werden die betroffene Zeilen überschrieben? Vielen Dank!
Wie meinst Du? Es kann ja immer nur ein Tabellenblatt mit "Bilanz 1" geben? Aber grundsätzlich rutschen die Zeilen dort hin, wo Du deinen Maus Cursor hast :)
Der richtige Part mit "Zeilen in anderes Tabellenblatt kopieren wenn Bedingung erfüllt" beginnt erst ab 4:10
Hier der Code!
Sub kopieren()
Dim variable As String
variable = [A1]
With Sheets(variable).UsedRange
.AutoFilter Field:=7, Criteria1:="ja"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Hallo,
ich kann den VBA Code leider nicht finden...
Sub kopieren()
Dim variable As String
variable = [A1]
With Sheets(variable).UsedRange
.AutoFilter Field:=7, Criteria1:="ja"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Danke für das Video, verständlich und gut erklärt! Dazu noch eine Frage: Mit der Funktion werden meine gesuchten Zeilen in eine neue Arbeitsmappe kopiert, wenn ich diese nun in der neuen Arbeitsmappe bearbeite, soll die Änderung auch in der Quellarbeitsmappe automatisch geändert werden. Wie gehe ich hier vor?
hallo,wie muss ich den Code erweitern, wenn ich beim Rüberkopieren nur z.B. Spalte A,B und E haben will und nicht alle?MfG
Hallo!
Ich würde es mit Makro-Aufzeichnen versuchen, das geht am Einfachsten.. :-) LG
Was für eine Excel Vorlage wünscht Du dir als Nächstes? Lass es uns wissen ... die Umfrage dauert nur 2 Minuten: form.typeform.com/to/YnQEMnvC?typeform-source=uob5nvb9stf.typeform.com
Danke und frohes Excel'n
Johannes
Danke dafür. Das hat mich einen Schritt näher zu meiner Lösung gebracht. Ich habe ein Tabellen Blatt, in dem ich die komplette Historie meines Fahrzeugs dokumentiere. Immer dann, wenn Kosten entstehen, erscheint in eine Zelle Ja. Nun möchte ich auf einem anderen Tabellen Blatt gerne nur die Zeilen kopiert und zusammengefasst sehen, die Kosten verursachen.
Mit dem Makro klappt das schon super aber immer dann, wenn ich eine neue Zeile hinzugefügt habe und das Makro laufen lasse, kopiert mir das Makro alle Zeilen in das neue Tabellen Blatt. Wie kann ich das Makro so abändern, dass es inkrementell, also nur die neuen Einträge rüber kopiert?
Macht theoretisch keinen Unterschied, oder? Nur dauert das Makro denn zu lange ?
Dieses Makro fügt die kopierten Felder nur im letzten freien Feld in Spalte A ein. Wie müsste das Makro aussehen, wenn die kopierten Daten im aktuellen ausgewählten Feld eingefügt werden sollen?
Am Einfachsten ist es, wenn man mit dem Makro-Aufzeichnen arbeitet!
Danke Mann, versuche seit Stunden das Problem mit der Offset Funktion zu lösen :)
Freut mich, wenn die Videos helfen :-)
Gibt es eine Möglichkeit diesen Makro zu automatisieren so dass man nicht diesen Knopf drücken muss, sondern das automatisch passiert wenn etwas neues hinzukommt
Ja, gibt es. Vllt hilft dir das Video weiter: Makros nach einer Änderung automatisch ausführen I Excelpedia - th-cam.com/video/FLSvI7QtklM/w-d-xo.html
Hallo ist es möglich einen Button hinzuzufügen, der alles aktualisiert? also falls in 1Bilanz ein neuer eintrag mit ja kommt damit der nach klick auf aktualiseren dann auch in der übersicht angezeigt wird?
Also einfach, dass das Makro nochmals ausgeführt wird?
Das Makro "kopieren" kann ja zB in die Schnellzugriffsleiste hinzugefügt werden und immer wieder per Knopfdruck ausgeführt werden
@@Excelpedia ja aber mit dem code muss man zuerst immer die alten daten löschen damit man nich doppelte, dreifache,... Einträge hat
Hey, bei mir hat alles wunderbar funktioniert. Nun habe ich jedoch meine Datenquelle durch eine sich automatisch aktualisierende Tabelle aus PowerQuery ersetzt, die sich automatisch mit denen sich in einem Ordner befindenden Daten ergänzt und bekomme plötzlich die Fehlermeldung "1004 - Anwendungs oder Objektdefinierter Fehler". Weißt du zufällig was es damit auf sich hat? Danke im Voraus!
Hallo!
Ad-Hoc, ohne die Arbeitsmappe zu sehen, hab ich spontan auch keine Lösung parat. Sorry!
Super erklärt leider kann ich den code in der Beschreibung nicht findne können sie diesen nochmal teilen vielen Dank
Hallo!
Auf excelpedia.at/downloads/ unter VBA Codes ist er zu finden.
LG
Hallo zusammen. Ich Bekomme den Laufzeitfehler 1004: Die AutoFilter-Methode des Range-Objektes konnte nicht ausgeführt werden.
Ich habe alle Anpassungen im Code gemacht und die Spalte ist bei mir 6. Kannst du mir da weiterhelfen?
Danke für ein kurzes feedback
Bitte poste mal deinen Ganzen Code. Sowei die Namen der deiner relevanten Tabellen. :-)
@@Excelpedia Hallo und Danke für deine schnelle Reaktion. Ich habe das Excel neu angelegt und den Code neu Kopiert, danach hat es geklappt. Danke für dein super Tutorial.
Eine andere Frage: Ist es möglich von allen relevanten Tabellen gleichzeitig Inhalte mit den kriterien anzulegen ohne vorher jedesmal die Variable in A1 ändern zu müssen?
Ziel soll es sein das ich mit dem Button Aktualisieren immer die Aktuelle kopien mit den Kriterien neu laden kann und die bisherigen die das Kriterium nicht mehr erfüllen, verschwinden.
Danke für deine Antwort.
Und Grüsse aus der Schweiz
Hier noch der Kode und die Tabellen.
Sub kopieren()
Dim variable As String
variable = [A1]
With Sheets(variable).UsedRange
.AutoFilter Field:=5, Criteria1:="z"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("ZFRG").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Tabelle die ich gerne hätte: ZFRG
Tabellen mit Kriterien: Firma1, Firma2, Firma3, Kunde A, Kunde B
Danke für dein Video! Hat alles bestens funktioniert, aber eine Frage bleibt :)
Ich habe das Makro so angewendet, dass eine Liste entsteht, an welchen Tagen ich einen Termin habe. Jetzt ist es nur so, dass mir dadurch immer alle Termine aufgezählt werden. Ich hätte aber gerne, dass nur Termine, die entweder heute oder in der Zukunft stattfinden, erscheinen. Termine aus der Vergangenheit sollten nicht in der Liste auftauchen. Was kann ich da tun?
Du kannst ja eine Hilfsspalte einbauen. Mit dieser Spalte wird überprüft, ob das Datum => heute ist. Dann hast Du mal alle relevanten Daten und kannst für Diese dann das Makro anwenden. So würde ich es machen :-)
@@Excelpedia PERFEKT! Danke
Eine Frage hab ich noch: Ich hab ebenfalls einen Button gemacht um die Daten zu aktualisieren. Solange der Button in dem Arbeitsblatt ist, wo die Daten aufscheinen, solange ist alles OK. Ich wollte den Button aber gerne in einem anderen Arbeitsblatt haben. Hier kommt mir die Fehlermeldung "Langzeitfehler 9".
Wie bekomme ich hin, dass der Button z.B. im Arbeitsblatt A ist und im Arbeitsblatt B kommt das Ergebnis heraus? Hast du eine Idee?
DANKE!!!
Super hilfreiches Video! Ich habe nur eine ergänzende Frage:
Ist es möglich das Übersichtsblatt zu leeren, bevor die Zeilen Daten hineinkopiert werden? Wie sieht dann der Code aus?
Hallo!
Einfach Range("B19:E66").ClearContents vor dem Kopieren-Code eintragen.
B19:E66 ist der relevante Bereich, der gelöscht werden soll
Hi, vielen Dank für das Video. Wie kann ich die Formel denn erweitern, wenn ich auch Formeln und nicht nur Inhalte mit kopieren möchte. Ich habe in der Zeile Zellen, in denen Sverweise mit drin sind und diese benötige ich auch in der Übersicht wegen einer Aktualisierung. Vielen Dank
Habs schon, einfach PasteValue rausnehmen, fertig.
@@MarcusKnechtges genau! Dann wird alles kopiert. Wenn man NUR die Formel will, dann: Paste:=xlPasteFormulas
Wie Gollumfiech hängt es bei mir an der gleichen Stelle. Hatte mir viel von diesem Makro erhofft. Erhalte den Laufzeitfehler 9: Index außerhalb des gültigen Bereiches. Ich kopieren wie im Video das Makro über das Tabellenblatt in den Code
Sub kopieren()
Dim variable As String
variable = [A1]
With Sheets(variable).UsedRange
.AutoFilter Field:=53, Criteria1:="1"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("Arztuntersuchungen").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Ich seh kein Fehler :(
hast du ne lösung gefunden?
@@candro29 Bitte beachtet, dass ihr ggf. die Zelle A1 anpassen müsst bzw. den Namen der Tabellenblätter!
Hi und vielen Dank für dieses coole Makro, allerdings habe ich ein Problem: ich erhalte genau wie du bei min 5:49 diesen "Fehler". Ich komme einfach nicht dahinter :(, hättest du einen Tipp für mich?
Hi, hast du ein neues Modul hinzugefügt und den Code dort reingeschrieben? Oder über die persönliche Makroarbeitsmappe?
@@Excelpedia danke für die Antwort! Ich habe es über die Persönliche Makroarbeitsmappe ausgewählt, wo ich es zuvor als neues Modul erstellt hatte....ergibt das Sinn?
@@Gollumfiech Versuch mal den Makro in der normalen Arbeitsmappe hinzuzufügen - sowie auch im Video, nachdem der Fehler erscheint
@@Excelpedia jetzt gibt es einen Kaufzeitfehler....wäre es möglich dass du mir eine Tabelle mit installiertem Makro schickst? Das würde mir extrem weiterhelfen...Mfg
@@Gollumfiech auch ich bekomme diesen Fehler :( komme einfach nicht dahinter. hast du bisher eine Lösung gefunden? MfG
hallo,
ich habe ein problem:
habe zwei arbeitsblätter
arbeitsblatt2: besteht aus 3 spalten bei dem jeweils immer der unterste wert in arbeitsblatt1 kopiert werden soll.
im arbeitsblatt 1, spalte 2 soll nun nach bestimmten werden gesucht werden.
sobald der wert x vorhanden ist, soll nun aus tabellenblatt 2 der letzte wert aus der spalte 1 in eine neue spalte ins tabellenblatt 1 rüber kopiert werden
sobald der wert y in der spalte 2 vorhanden (im tabellenblatt 1), dann soll aus tabellenblatt 2, spalte 2 der unterste wert in eine neue spalte rüber kopiert werden
wäre cool wenn da jemand ne lösung hätte
danke
So eine einfache Lösung mit ein paar Zeilen Code gibt es leider nicht. Für eine individuelle Lösung kannst du dich an johannes@fontner.com wenden
toll 1 Stunde bin ich am schrauben und nur immer Fehler 9 mmm das ist nicht wirklich toll ... leider habe ich es genau so im Code vom Blatt integriert ???
Hallo Andreas, das ist natürlich nicht ideal. Schick mir gerne eine E-Mail an office@excelpedia.at dann kann ich es mir gerne mal anschauen.
Warum will es nicht funktionieren?
Sub kopieren()
Dim variable As String
variable = (Tabelle1)
With Sheets(variable).UsedRange
.AutoFilter Field:=2, Criterial:="Hanfmehl"
.Offset(1, 0).SpecialCells(x1CellTypeVisible).Copy
End With
Sheets("Übersicht").Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Gibt es denn ein Tab mit "Übersicht"?
@@Excelpedia ja gibt es
@@candro29 Versuchmal in der ersten Zeile auf ("Tabelle1") zu ändern, anstatt Tabelle1
@@Excelpedia geht leider auch nicht
@@Excelpedia hab dir ne mail gemacht vielleicht kannst du es kurz anschauen
Sorry bei mir funzt der Code auch nicht. Bekomme jedesmal einen kompilierungsfehler bei [A1]
In A1 steht der Name für das Tabellenblatt, hast du das angepasst bei dir?
@@Excelpedia Ja klar. Hab mir dein Video mehrmals angesehen. Hätt ja sein können das ich was übersehen habe. Allerdings nahm ich nicht Zelle A1 sondern D2.
@@henrykrieger151 Kopier einfach mal den Code und versuch es bitte nochmal:
Sub kopieren()
Dim variable As String
variable = [A1]
With Sheets(variable).UsedRange
.AutoFilter Field:=7, Criteria1:="ja"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
@@fontner Habe ich gemacht. Das gleiche problem. Zeigt: "Fehler beim Kompilieren", "Datei oder Bibliothek nicht gefunden" Könnte dir ein Screenshot senden.
Hi, vielen Dank für die Hilfe. Ich finde Makros recht hilfreich, jedoch werden diese immer zerschlagen, sobald eine neue Office-Version rauskommt. Gibt es auch eine Möglichkeit dies ohne zu machen?
z.B. Suchkriterium ist ein Wort in der Spalte "E". Wenn vorhanden kopiere (verknüpfe) mir die komplette Zeile auf ein neues Blatt
Vielen Dank vorab schon mal !!!!!!
Grundsätzlich sollte man alles machen, was mit den internen Excel Fkt. möglich ist. Alles geht aber nicht - dafür gibt es dann Makros. Normalerweise sind neue Office Versionen abwärtskompatibel, dh Makros die in alten Versionen erstellt wurden gehen auch in der neuen Version, aber nicht umgekehrt.
Die verwendeten Excel Arbeitsmappen findest Du unter: excelpedia.at/downloads/
Sub AuswahlEinfügen()
Dim variable As String
variable = [A2]
With Sheets(variable).UsedRange
.AutoFilter Field:=8, Criterial:="ja"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("Zusammenfassung").Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).PasteSpecial x1PasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Hey ich hab die Spalte F mit ja und nein belegt, die Tabelle aus welcher ich übertragen will heißt Rohbau welches ich in Feld A2 stehen habe. falls du mir den Fehler erklären kannst wäre ich dir sehr dankbar.
Gruß Felix
Welche Fehlermeldung kommt denn?
Gehört bei paste nicht xlPasteValues (statt x1)?
Das liegt daran... ich bekomme den Fehler nicht weg!
Also sehr schlecht erzählt und unpassende Beispiele. zu kompliziert.. anstatt einfache Beispiele zu geben....