Im Datenbereich Ctrl-T und fertig. Tab (Ctrl-I) auf der letzten Tabellenzelle fügt automatisch eine neu Zeile ein! Gruess Hansueli Betrifft: AW: zum testen von: Bernd Geschrieben am: 13. 2015 11:51:36 Hi! nicht getestet, aber das hier habe ich gefunden: Private Sub Worksheet_Change(ByVal Target As Range) Dim Zeile As Long ' nur beim Ändern einer Zelle If > 1 Then Exit Sub Zeile = 'nur bei Änderungen in Spalte 12(L) If = 12 Then Application. EnableEvents = False Range(Cells(Zeile, 1), Cells(Zeile, 11)) Range(Cells(Zeile + 1, 1), Cells(Zeile + 1, 11)) xlDown With Application. CutCopyMode = False. EnableEvents = True End With End If End Sub sollte bei jedem Eintrag in L funktionieren, aber ob es so passt, kann ich auch nicht recht sagen. Excel vba zeile kopieren und darunter einfügen 2016. mfg Bernd Betrifft: AW: zum testen - Nachtrag Geschrieben am: 13. 2015 11:57:36 für A-I so: Private Sub Worksheet_Change(ByVal Target As Range) Range(Cells(Zeile, 1), Cells(Zeile, 9)) Range(Cells(Zeile + 1, 1), Cells(Zeile + 1, 9)) xlDown lg Bernd Geschrieben am: 13.
2015 12:09:24 Danke, Mit diesem Code wird bei jeder Änderung eine Zeile unterhalb eingefügt. Jedoch werden alle Zelleninhalte nicht nur A bis I kopiert und es ist wie gesagt bei jeder Änderung. Wie muss ich den code abändern, sodass dies ausschließlich bei einem "x" geschieht? Geschrieben am: 13. 2015 12:12:07 Hi, für A-I musst Du meinen 2 Code verwenden. Wie das mit einem X funktioniert, da muss ein VBA Profi ran, ich hab den Code nur mal als Ansatz reingestellt um diesen eventuell dementsprechend zu erweitern. Geschrieben am: 13. 2015 12:29:51 Hallo nochmals, mit der Hilfe von Hansueli geht es bei mir so: Private Sub Worksheet_Change(ByVal Target As Range) If = 12 And (1, 1) = "x" Then Betrifft:.. dann... Geschrieben am: 13. 2015 12:21:43 Wer nicht hören will muss fühlen, mikr8;-) Option Explicit If = 12 And = 1 And _ IsEmpty((1, -11)) And (1, 1) = "x" Then Range(Cells(, 1), Cells(, 10)) _ Cells(, 1)(1) Application. EnableEvents = True Betrifft: AW:.. VBA - Tabellenblatt nach Wert aus Zelle ein oder ausblenden - MS-Office-Forum. 2015 13:49:23 Danke! die Mischung war genau das was ich gesucht habe!
14. 2018, 13:36 # 3 Threadstarter Hallo Beverly Ich danke dir, dein Code ist wirklich klasse und macht was ich gesucht habe. Er ist viel viel kürzer als meiner und dazu noch besser. Ich danke dir. Leider gibt es da noch ein Problem der Code funktioniert nicht mehr sobald ich den Blattschutz aktiviere. Alle Zellen in denen eine Formel steht soll für den Anwender gesperrt und die Formel ausgeblendet werden. Vielleicht gibt es dafür noch eine Lösung?! Danke dir:-) 14. 2018, 14:00 # 4 hebe den Blattschutz zu Beginn des Kopierens auf und setze ihn am Ende wieder: ActiveSheet. Unprotect otect 14. 2018, 14:13 # 5 Ah super, danke es funktioniert. Jetzt geht das Problem leider weiter. Ich denke aber das kann man nicht lösen. Der Code wird nicht ausgeführt, da ich die Arbeitsmappe für mehrere Benutzer freigeben möchte. 14. 2018, 14:15 # 6 Codes funktionieren auch in freigegebenen Arbeitsmappen, nur ändern kann man ihn nicht so lange die Mappe freigegeben ist. 14. VBA - Zeile kopieren und darunter einfügen. 2018, 14:21 # 7 Wenn ich die Arbeitsmappe freigegeben habe, und eine Zahl in D6 eingeben, erhalte ich die Fehlermeldung Laufzeitfehler 1004 Die Unprotect-Methode des Worksheet-Objektes konnte nicht ausgeführt werde.
Hallo Forumsmitglieder, ich hatte versucht etwas ber die Suche zu finden - aber dort war alles ein wenig zu speziell - falls ich hier trotzdem eine Frage stelle die schon 1000mal beantwortet worden ist tut es mir leid. Begre aber jede Hilfe Jetzt zu meinem kleinen Problemchen: Ich brauche ein Makro, dass mir eine gesamte Zeile kopiert und darunter einfgt. Wenn mglich soll jetzt einer der Zellenwerte (z. B. Zelle J in der Zeile) leer gelassen werden, stattdessen ein anderer konstanter Wert eingefgt werden. Excel vba zeile kopieren und darunter einfügen e. Sollte das mit der einzelnen Zelle nicht zustzlich funktionieren oder zu umstndlich sein, knnte ich dies bestimmt ber einen Filter irgendwie lsen und dann die konstante eingeben, msste ich nochmal tfteln. Besser wre es wenn das Makro dies "miterledigt" vielen dank im voraus gre MagB
Discussion: bereich kopieren und 2 zweilen darunter einfügen (zu alt für eine Antwort) hi, ich habe einen kasten (A10:O26), den ich auf knopfdruck kopieren will und dann 2 zweilen darunter also zb A28 wieder einfügen will... alles was unter dem kasten noch ist, soll automatisch nach unten rutschen - d. h. es soll als neue zeilen eingefügt werden und nicht überschreiben oder so. Zeilen Kopieren und darunter X mal einfügen. wie kann ich das lösen? Danke schonmal, Johnny Post by Johnny Hartmannsgruber ich habe einen kasten (A10:O26), den ich auf knopfdruck kopieren will und dann 2 zweilen darunter also zb A28 wieder einfügen will... Da Du nicht sagst, ob manuell oder automatisiert, hier manuell: Markiere A10:O27 Einfügen Zeilen (oder Zellen / Zeilen nach unten verschieben) Strg-C, gehe zu A28, Eingabe Anmerkung: Deine Anweisungen lassen nur EINE Zeile frei. -- Moin+Gruss Alexander - MVP for MS Excel - - mso2000sp3 --7-2 Post by Alexander Wolff Markiere A10:O27 Einfügen Zeilen (oder Zellen / Zeilen nach unten verschieben) Strg-C, gehe zu A28, Eingabe Oh, das war etwas gefährlich.
vielen dank im voraus grüße MagB Sub Leerzeilen() Set wksTemp = ActiveSheet Menge = Titel = InputBox("Wie viele Zeilen ist die Überschrift hoch? ") For i = Menge To Titel + 2 Step -1 Menge1 = i & ":" & i Rows(Menge1) Shift:=xlDown Next End Sub Hallo! Dieser Code fügt unter der Zeile, in der sich gerade die aktive Zelle befindet, eine weitere hinzu und kopiert Werte der Zeile. In Spalte J wird "irgendwas" eingetragen. Sub test() Dim Zeile As Long Zeile = Rows(Zeile + 1) (xlShiftDown) Rows(Zeile) Rows(Zeile + 1) Cells(Zeile + 1, 10) = "irgendwas" Hi Schatzi, vielen Dank - jetzt fehlt nur noch, dass das Makro durch gesamte Dokument läuft. Ich möchte ziemlich ungern ein paar tausend mal die Zeile anklicken und dann das Makro ausführen:roll: Ansonsten hätte ich es wahrscheinlich auch mit Zeile kopieren und einfügen machen können, oder?? Wenn du ne Idee hast - wäre nett wenn du helfen könntest. Wie gesagt, vielleicht hilft der Code, den ich mitgegeben habe. Excel vba zeile kopieren und darunter einfügen folder. Dort geht das Makro durch komplette Dokument und fügt ab der Zeile, die ich manuell eingeben (Wie viele Zeilen ist die Überschrift hoch? )