Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1816to1820
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
1816to1820
1816to1820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile einfüg. u. best. Zeile kopieren

Zeile einfüg. u. best. Zeile kopieren
07.03.2021 07:22:59
Michael
https://www.herber.de/bbs/user/144532.xlsm
Guten Tag allerseits
Folgendes möchte ich im Excel tun, schaffe ich jedoch nicht:
Ich habe einen Artikellstamm (pro Zeile einen Artikel). Um ein neuen Artikel zu erfassen möchte ich auf einen Knopf drücken können wie z. B. so:
Rows("19:19").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("18:18").Select
Selection.Copy
Rows("19:19").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("B21").Select
Application.CutCopyMode = False
End Sub
Grundsätzlich funktioniert dies. Nur möchte ich vorab den Cursor auf derjenigen Zeile platzieren können, deren Inhalt dann in die neue leere Zeile kopieren werden soll.
Also: Cursor auf Zeile meiner Wahl platzieren - z. B. darunter eine neue Zeile einfügen - Inhalt der Zeile meines Cursors kopieren und in die neue Zeile einfügen. (hier die zweite Einfügeoption verwenden, damit bedingte Formatierung und Formeln auch mitkommen)
Ich hoffe dies ist verständlich. Nun bin ich gespannt :-), vielen Danke im Voraus

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile einfüg. u. best. Zeile kopieren
07.03.2021 07:59:24
Hajo_Zi
wähle die Zeile aus bevor das Makro gestartet wird.
Select, Activate usw. ist in VBA zu 99,8% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Hajo-Excel.de
Hinweise zu select usw. Online-Excel.de
Hinweise zu select usw. Online-Excel.de
Der Cursor ist kein Hund, der überall rum geführt werden muss.
Falls Link nicht ausgeführt wird:
1. Link kopieren
2. rechte Maustaste neues Fenter.
3. Umschaltstaste drücken und Klick auf den Link
4. STRG+ Link mit Maus aktivieren
Option Explicit
Sub kopieren()
Rows("19:19").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("18:18").Copy
Rows("19:19").PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
End Sub


Anzeige
angepasster Code
07.03.2021 08:08:09
Hajo_Zi 

Option Explicit
Sub kopieren()
Dim LoZeile As Long
LoZeile = ActiveCell.Row
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(LoZeile - 1).Copy
Rows(LoZeile).PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
End Sub
Gruß Hajo

AW: angepasster Code
07.03.2021 08:16:52
Michael
Wow, danke Hajo!!!
... mit dem angepassten Code funktioniert es tadellos.
Herzlichen DANK!

AW: angepasster Code
07.03.2021 09:16:45
Hajo_Zi
mit Inputbox
Option Explicit
Sub kopieren()
Dim LoZeile As Long
Dim RaZelle As Range
Set RaZelle = Application.InputBox("Bitte Zeile wählen", "Zeilenauswahl", , Type:=8)
LoZeile = RaZelle.Row
Rows(RaZelle).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(LoZeile - 1).Copy
Rows(LoZeile).PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
End Sub
Gruß Hajo

Anzeige
AW: angepasster Code
07.03.2021 09:23:07
Michael
Funktioniert leider nicht. nach Eingabe der Zeilennummer folgt eine Fehlermeldung ... der Bezug ist ungültig...
Lieber wäre mir sowieso, wenn es wie vorher funktionieren würde ... ohne Inputbox.

AW: angepasster Code
07.03.2021 09:24:51
Hajo_Zi
es steht im Text "Bitte Zeile wählen" mache das also.
Gruß Hajo

AW: angepasster Code
07.03.2021 09:32:20
Michael
ok, jetzt habe ich es begriffen.
Lieder stimmt etwas noch nicht:
Wenn ich zeile 60 auswähle, kopiert es die Zeile 58 und überschreibt damit Zeile 59.
Es sollte aber eine NEUE Zeile einfügen und die Zeile 60 dort reinkopieren.

Anzeige
AW: angepasster Code
07.03.2021 09:43:29
Hajo_Zi
jetzt nochmal ausführlich getestet.
Option Explicit
Sub kopieren()
Dim RaZelle As Range
Set RaZelle = Application.InputBox("Bitte Zeile wählen", "Zeilenauswahl", , Type:=8)
Rows(RaZelle.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(RaZelle.Row).Copy
Rows(RaZelle.Row - 1).PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
Set RaZelle = Nothing
End Sub
Gruß Hajo

AW: angepasster Code
07.03.2021 09:46:16
Michael
Jetzt ist es perfekt. Danke für den prompten Support!

Anzeige
AW: angepasster Code
07.03.2021 09:13:02
Michael
Ein kleines Detail würde ich trotzdem gerne noch anpassen:
Ich möchte dass es genau die Zeile kopiert wo ich mich mit dem Cursor befinde. Zur Zeit kopiert es die obere Zeile in die neue.
Kannst du mir nochmals Helfen?

AW: angepasster Code
07.03.2021 09:22:02
Hajo_Zi
Rows(LoZeile).Copy
siehe auch meine Code mit Inputbox.
Gruß Hajo

AW: Zeile einfüg. u. best. Zeile kopieren
07.03.2021 07:59:41
Herbert_Grom
Hallo Michael,
mach das doch mit einer "INPUTBOX"!
Servus

AW: Zeile einfüg. u. best. Zeile kopieren
07.03.2021 08:19:08
Michael
Danke Herbert auch dir für den Tipp, werde dies auch noch ausprobieren.

AW: Gerne geschehen und danke für die Rückmeldung!
07.03.2021 09:03:18
Herbert_Grom
,,,

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige