Zeile kopieren und darunter einfügen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Zeile kopieren und darunter einfügen

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

Autor

Nachricht

magb
Newbie
Newbie

Anmeldedatum: 03.09.2008
Beiträge: 3

Verfasst am: 03.09.2008, 15:34

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.
Begrüße aber jede Hilfe

Jetzt zu meinem kleinen Problemchen:

Ich brauche ein Makro, dass mir eine gesamte Zeile kopiert und darunter einfügt.
Wenn möglich soll jetzt einer der Zellenwerte (z.B. Zelle J in der Zeile) leer gelassen werden, stattdessen ein anderer konstanter Wert eingefügt werden.

Ich habe bereits einen Code, der mir eine Leerzeile im gesamten Dokument einfügt, gefunden - jetzt sollte aber anstatt Leerzeile die dadrüber kopiert werden und wie gesagt - der Wert in Zelle J durch eine Konstante ersetzt werden.

vielen dank im voraus

grüße
MagB

Code:

Sub Leerzeilen()
Set wksTemp = ActiveSheet
Menge = wksTemp.UsedRange.Rows.Count
Titel = InputBox("Wie viele Zeilen ist die Überschrift hoch?")
For i = Menge To Titel + 2 Step -1
Menge1 = i & ":" & i
Rows(Menge1).Select
Selection.Insert Shift:=xlDown
Next
End Sub

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5748

Verfasst am: 03.09.2008, 16:13

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.

Code:

Sub test()
Dim Zeile As Long
Zeile = ActiveCell.Row
Rows(Zeile + 1).Insert (xlShiftDown)
Rows(Zeile).Copy Rows(Zeile + 1)
Cells(Zeile + 1, 10) = "irgendwas"
End Sub

_________________

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 und hilft sicher gerne weiter!

magb
Newbie
Newbie

Anmeldedatum: 03.09.2008
Beiträge: 3

Verfasst am: 03.09.2008, 16:36

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 Rolling Eyes

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. Dort geht das Makro durch komplette Dokument und fügt ab der Zeile, die ich manuell eingeben (Wie viele Zeilen ist die Überschrift hoch?) die Leerzeile ein.
Kann man das irgendwie kombinieren ??

Thanx a lot
MagB

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5748

Verfasst am: 03.09.2008, 16:51

Hallo!

Du sprachst immer von EINER Leerzeile, daher habe ich dich falsch verstanden...

Code:

Sub Leerzeilen()
Dim wkstemp As Worksheet, Menge As Long, Titel As Long, i As Long
Set wkstemp = ActiveSheet
Menge = wkstemp.UsedRange.Rows.Count
Titel = InputBox("Wie viele Zeilen ist die Überschrift hoch?")
For i = Menge To Titel + 2 Step -1
Rows(i).Insert Shift:=xlDown
Rows(i - 1).Copy Rows(i)
Cells(i, 10) = "irgendwas"
Next
End Sub

magb
Newbie
Newbie

Anmeldedatum: 03.09.2008
Beiträge: 3

Verfasst am: 03.09.2008, 17:20

Hast recht - shame on me ... Embarassed

vielen dank - klappt !!!
cheers
MagB

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
	Spaltenhöhen mit in anderes Tabellen...	TOMMY	Microsoft Excel Hilfe	2	03.01.2009, 21:12
	ich möchte in einem Arbeitsblatt Zell...	rolf3	Microsoft Excel Hilfe	1	02.01.2009, 21:54
	Wie kann ich eine Zeile als konstante...	RO1959UN	Microsoft Excel Hilfe	4	25.12.2008, 17:30
	Bilder einfügen, Fehlermeldung zur Ma...	Melanie Jump	Microsoft PowerPoint Hilfe	0	21.12.2008, 21:25
	VBA: Kopieren von Tabellenblättern in...	rene_koeln	Microsoft Excel Hilfe	15	15.12.2008, 15:01

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