Autor
|
Thema: Zeile schnell duplizieren (28778 / mal gelesen)
|
Heino Casper Mitglied CAD/PLM Administrator
Beiträge: 483 Registriert: 26.02.2001 Contact WSM 3.12 Creo 4.0 Catia V5 Acad 2015 Inventor 2020
|
erstellt am: 26. Mai. 2016 10:55 <-- editieren / zitieren --> Unities abgeben:
Guten Tag! Ich muß ständig in einer Tabelle eine komplette Zeile duplizieren. Im Moment markiere ich die gewünschte Zeile, halte ich die Tasten "strg" und "shift" gedrückt und ziehe diese dann direkt unter die zu kopierende Zeile. Als Ergebnis habe ich dann zweimal genau die gleiche Zeile untereinander. Kann man das auch per Tastendruck hinbekommen? Oder mit einer Tastendruck-Kombination? So dass ich die Maus nicht mehr in kombination mit der Tastatur verwenden nehmen muß? vorher: 1111 2222 3333 4444 5555 nachher: 1111 2222 2222 3333 4444 5555 Wäre für Tipps sehr dankbar. ------------------ Gruß, Heino
[Diese Nachricht wurde von Heino Casper am 26. Mai. 2016 editiert.] [Diese Nachricht wurde von Heino Casper am 26. Mai. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Heino Casper Mitglied CAD/PLM Administrator
Beiträge: 483 Registriert: 26.02.2001
|
erstellt am: 26. Mai. 2016 11:05 <-- editieren / zitieren --> Unities abgeben:
Man kann natürlich auch mit der Maus die gewünschte Zeile kopieren und dann die kopierte Zeile einführen, aber das ist mir auch noch zu "umständlich" ... ------------------ Gruß, Heino [Diese Nachricht wurde von Heino Casper am 26. Mai. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Rainer Schulze Ehrenmitglied V.I.P. h.c. Dipl.-Ing. im Ruhestand
Beiträge: 4419 Registriert: 24.09.2012
|
erstellt am: 26. Mai. 2016 11:37 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper
>>aber das ist mir auch noch zu "umständlich" Faulpelz! Wenn Du um zwei Mausklicks feilscht - ich kenne kein Programm, das Deine Absicht erraten kann. Und wie steht es mit Deinen Forumsbeiträgen - verwendest Du ein Programm für Spracheingabe? Wenn es sich aber um ständig wiederholte Aktionen handelt, kann man über einen Makro nachdenken. Das Problem dabei ist, saubere Bedingungen zu finden, die eine "Automatisierung" erlauben. ------------------ Rainer Schulze Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Heino Casper Mitglied CAD/PLM Administrator
Beiträge: 483 Registriert: 26.02.2001 Contact WSM 3.12 Creo 4.0 Catia V5 Acad 2015 Inventor 2020
|
erstellt am: 26. Mai. 2016 13:54 <-- editieren / zitieren --> Unities abgeben:
Faulpelz? Naja, geht so. Ich bearbeite hier gerade endlose Listen, die ich aus Kundenbestellungen generiert habe, damit ich diese in unsere Plasmaanlage übernehmen kann. Jede Zeile ein Bauteil, zu dem ich immer mal wieder ein zusätzliches Teil benötige. Ein Auftrag kann schon mal aus bis zu 200/300 Zeilen bestehen. Und wenn ich dann immer mal wieder eine Zeile einfüge, sagen wir mal 40 Stück pro Auftrag und das bei 7/8 St. pro Tag, da bin ich froh über jede Erleichterung. ------------------ Gruß, Heino Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 778 Registriert: 18.05.2005 SolidWorks 2020 x64 SP3.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 21H1 Microsoft Office 365 ProPlus Microsoft Visual Studio Enterprise 2022
|
erstellt am: 26. Mai. 2016 17:28 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper
|
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2624 Registriert: 02.05.2006 Office 2010; Office365 Visual Basic
|
erstellt am: 26. Mai. 2016 17:33 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper
Hallo, über ein Makro wäre das überhaupt kein Problem Code:
Sub Row_Dublicate() Dim t As Long t = ActiveCell.Row Rows(t & ":" & t).Select Selection.Copy Selection.Insert Shift:=xlDown End Sub
Das Makro mußt Du dann nur noch in eine Modul oder noch besser in eine AddIn - Mappe packen und einer Tastenfolge (z.B. Strg+Umschalt+D) zuweisen (Makros-Optionen) Grüße Klaus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Heino Casper Mitglied CAD/PLM Administrator
Beiträge: 483 Registriert: 26.02.2001
|
erstellt am: 27. Mai. 2016 08:09 <-- editieren / zitieren --> Unities abgeben:
|
Heino Casper Mitglied CAD/PLM Administrator
Beiträge: 483 Registriert: 26.02.2001 Contact WSM 3.12 Creo 4.0 Catia V5 Acad 2015 Inventor 2020
|
erstellt am: 27. Mai. 2016 08:11 <-- editieren / zitieren --> Unities abgeben:
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3358 Registriert: 07.06.2001
|
erstellt am: 27. Mai. 2016 08:52 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper
Hi, mit dem Code in die Tabelle startet er bei Doppelklick in die Zelle Row_Dublicate Code: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '' Doppelklick If Not Intersect(Target, Range("a11:a10000")) Is Nothing Then Row_Dublicate End If End Sub
------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. Wünsche: Tabllen (XLS,ODS) FDO nativ einbinden, FDO-WMTS, richtige Ebenen für Layer, Erweiterter Attribut-Editor "auffrischen", dyn. Xrefs, mehrere modell Bereiche, Halo4Texte, verschränkte Attribute, Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF Fehler: FDORasterdaten im Layout Richtigen Maßstab verwenden, funktionierende updates u. erweiterungen inkl. installationsroutinen, Fehler zwischen Normal MAP Civil beheben Schöne Grüsse aus der Steiermark Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Heino Casper Mitglied CAD/PLM Administrator
Beiträge: 483 Registriert: 26.02.2001 Contact WSM 3.12 Creo 4.0 Catia V5 Acad 2015 Inventor 2020
|
erstellt am: 27. Mai. 2016 10:10 <-- editieren / zitieren --> Unities abgeben:
Hallo Bernd! Dein Makro funktioniert in soweit, das das Makro Row_Dublicate aufgerufen wird. Es passiert dann nur leider nichts. Was kann ich falsch gemacht haben... ? ------------------ Gruß, Heino [Diese Nachricht wurde von Heino Casper am 27. Mai. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3358 Registriert: 07.06.2001
|
erstellt am: 27. Mai. 2016 10:43 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper
Servus, sind beide Makros in der selben Datei? Endung XLSM ------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. Wünsche: Tabllen (XLS,ODS) FDO nativ einbinden, FDO-WMTS, richtige Ebenen für Layer, Erweiterter Attribut-Editor "auffrischen", dyn. Xrefs, mehrere modell Bereiche, Halo4Texte, verschränkte Attribute, Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF Fehler: FDORasterdaten im Layout Richtigen Maßstab verwenden, funktionierende updates u. erweiterungen inkl. installationsroutinen, Fehler zwischen Normal MAP Civil beheben Schöne Grüsse aus der Steiermark Bernd P. [Diese Nachricht wurde von Bernd P am 27. Mai. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Heino Casper Mitglied CAD/PLM Administrator
Beiträge: 483 Registriert: 26.02.2001 Contact WSM 3.12 Creo 4.0 Catia V5 Acad 2015 Inventor 2020
|
erstellt am: 30. Mai. 2016 09:47 <-- editieren / zitieren --> Unities abgeben:
|