Makro gesucht Zeile kopieren und in jede x-te Zeile einfügen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Makro gesucht Zeile kopieren und in jede x-te Zeile einfügen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

philipp.geyer
Newbie
Newbie

Anmeldedatum: 05.09.2008
Beiträge: 3

Verfasst am: 05.09.2008, 14:59

Hallo,

ich habe lange in Eurem Forum gesucht. Konnte viele andere interessante Problemlösungen finden aber leider keine für mein Problem.

Wie kann man eine Zeile kopieren und in jede x-te Zeile darunter einfügen. Analog auch für Spalten?

Vielen Dank für Eure Hilfe.

Beste Grüße

Philipp

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 05.09.2008, 15:12

Hallo!

Dieser Code kopiert die aktive Zeile, fügt alle 5 Zeilen darunter eine weitere Zeile ein und kopiert die besagten Werte dorthin.

Code:

Sub test()
Dim z As Long, Quelle As Long, bisZeile As Long
bisZeile = 40
Quelle = ActiveCell.Row
Do Until z > bisZeile
z = z + 5
Rows(Quelle + z).Insert (xlShiftDown)
Rows(Quelle).Copy Rows(Quelle + z)
Loop
End Sub

Für Spalten analog mit "Columns" statt "Rows".

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

philipp.geyer
Newbie
Newbie

Anmeldedatum: 05.09.2008
Beiträge: 3

Verfasst am: 05.09.2008, 15:49

Vielen, vielen Dank...

philipp.geyer
Newbie
Newbie

Anmeldedatum: 05.09.2008
Beiträge: 3

Verfasst am: 05.09.2008, 15:58

Hallo,

das Makro macht alles richtig jedoch fügt das ding immer eine zeile ein.
Wenn ich also in einer bestehenden tabelle in welcher jede 5 Zeile noch frei bzw. zu beschriften ist (z.B. immer die Summe der 4 Zeilen darüber) funktioniert das nicht...

Danke schon mal im voraus

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 05.09.2008, 16:10

Hallo!

Dann lass einfach diese Zeile raus:
Rows(Quelle + z).Insert (xlShiftDown)

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Bei Änderung Datum automatisch einfügen	annewill1234	Microsoft Excel Hilfe	1	19.11.2008, 17:26
	Tabelle nach Seitenumbruch in 2. Zeile	OmaWetterwachs	Microsoft Word Hilfe	0	19.11.2008, 09:43
	komplette Zeile ausblenden, wenn Tabe...	enzo	Microsoft Excel Hilfe	16	18.11.2008, 12:17
	VBA-Makro: Kalendereintrag kopieren?	SvenZ	Microsoft Outlook Hilfe	9	18.11.2008, 10:16
	Formel gesucht	Manfred1	Microsoft Excel Hilfe	1	17.11.2008, 16:48

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de