Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon jockel01 vom 28.11.2020, 14:18 Options

Zeilen einfügen

Hallo.

Mit diesem Befehl "Selection.EntireRow.Insert" kann ich eine neue Zeile einfügen!

Jedoch fügt er die neue Zeile überhalb der ausgewählten Zeile ein. Wie mache ich es, dass die neue Zeile unterhalb der ausgewählten Zeile einfügt?

2te Frage: Wie geht es, dass er 2 Zeilen unterhalb der ausgewählten Zeile einfügt?

Gruß
Jockel

^{*Threadedit* 30.11.2008, 16:52:55
Admininfo: Führ bitte einen Thread nicht fort indem du Weitere eröffnest, und vermeide Mehrfachanfragen. Die Datenbank und User werden es dir danken. Siehe FAQ 2, #3.}

Antwort schreiben

Antwort 1 von nighty vom 28.11.2020, 14:41 Options

hi Jockel

das duerfte beide fragen beantworten

gruss nighty

Rows(Selection.Row+1).EntireRow.Insert

Antwort 2 von jockel01 vom 28.11.2020, 14:49 Options

Aber was muss ich eingeben, dass er zwei Zeilen einfügt.

Gruß
Jockel

Antwort 3 von jockel01 vom 28.11.2020, 14:54 Options

Noch was.

Was muss ich eingeben, damit der Inhalt mit kopiert wird?

Gruß
Johannes

Antwort 4 von nighty vom 28.11.2020, 14:58 Options

Hi Jockel

hier noch zwei beispiele

gruss nighty

geht eine zeile tiefer und fuegt zwei zeilen ein

Rows(Selection.Row + 1 & ":" & Selection.Row + 2).EntireRow.Insert

geht zwei zeilen tiefer und fuegt eine zeile ein

Rows(Selection.Row + 2).EntireRow.Insert

Antwort 5 von jockel01 vom 28.11.2020, 15:05 Options

Cool Danke.

Vieleicht kannst du mir noch was zu meiner Antwort 3 zum Thema "inhalt" schreiben.

Gruß
Johannes

Antwort 6 von nighty vom 28.11.2020, 15:05 Options

Hi Jockel

ein beispiel

gruss nighty

Sub SelectCopy()
Rows(Selection.Row + 1 & ":" & Selection.Row + 2).EntireRow.Insert
Rows(Selection.Row).Copy Rows(Selection.Row + 1 & ":" & Selection.Row + 2)
End Sub

Antwort 7 von jockel01 vom 28.11.2020, 15:10 Options

Jetzt ist nur das Problem, das die 2 Zeilen drunter überschrieben werden. Das ist aber nicht gut.

Gruß
Jockel

Antwort 8 von nighty vom 28.11.2020, 15:14 Options

Hi Jockel

ein weiteres beispiel fuer nur werte,altenativ paste spezial

gruss nighty

Sub SelectCopyWert()
Dim zeile As Variant
Rows(Selection.Row + 1 & ":" & Selection.Row + 2).EntireRow.Insert
zeile = Rows(Selection.Row)
Rows(Selection.Row + 1 & ":" & Selection.Row + 2) = zeile
End Sub

Antwort 9 von nighty vom 28.11.2020, 15:15 Options

Hi Jockel

ich schau nochmal,welches makro benutzt du jetzt ?

gruss nighty

Antwort 10 von jockel01 vom 28.11.2020, 15:18 Options

Hi Nighty

Hab eine Button generiert und ein normales Makro hinterlegt.

Oder was meinst du?

Gruß
Jockel

Antwort 11 von nighty vom 28.11.2020, 15:20 Options

Hi Jockel

welchen vorschlag von mir benutzt du jetzt ?
dann schau ich da nochmal

gruss nighty

Antwort 12 von jockel01 vom 28.11.2020, 15:25 Options

Hat sich alles geklärt. Danke nochmal.

Antwort 13 von jockel01 vom 28.11.2020, 15:36 Options

Hi nighty,

Jetzt hab ich doch noch ein Problem.

Arbeite mit deiner Antwort 8. Jetzt werden zwar die Inhalte kopiert, aber die Formeln in den Zellen werden nicht kopiert.
Kannst du mir da weiter helfen?

Gruß
Jockel

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..