Datum

Titel

20.04.2024 00:49:19

Excel Sheet in einen Excel Kalender einfügen

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

19.04.2024 19:41:34

Bei VBA Ausführung Anzeige einfrieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

240to244

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Neue Zeilen in Range

Forumthread: Neue Zeilen in Range
8 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
Top 100 Forumthreads

09.04.2003 15:06:11

Michi Schnyder

Ich habe mehrere Zeilen mit verschiedenen Werten in der Spalte A, B, usw.. Ich möchte mit einem Makro zu jeder markierten Zeile eine weitere Zeile direkt unter der alten einfügen. Die Daten sollten bis auf die der Spalte A übernommen werden.
Ich krieg das einfach nicht hin, Excel bleibt immer in einer Endlosschleife hängen.

Hat vieleicht jemand einen Lösungsvorschlag?
Vielen Dank!

Gruss Michi

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Neue Zeilen in Range

09.04.2003 15:17:35

Andi_H
Re: Neue Zeilen in Range

09.04.2003 15:42:23

Michi Schnyder
Re: Neue Zeilen in Range

09.04.2003 15:47:31

Andi_H
Re: Neue Zeilen in Range

09.04.2003 16:22:57

Michi Schnyder
Re: Neue Zeilen in Range

09.04.2003 16:47:49

Andi_H
Re: Neue Zeilen in Range

09.04.2003 17:01:57

Michi Schnyder
Re: Neue Zeilen in Range

09.04.2003 17:32:42

Andi_H
Re: Neue Zeilen in Range

10.04.2003 08:07:09

Michi Schnyder

Re: Neue Zeilen in Range

09.04.2003 15:17:35

Andi_H

hi michi,

poste mal deinen Code

gruß andi

Re: Neue Zeilen in Range

09.04.2003 15:42:23

Michi Schnyder

Ich habe leider meinen Code schon fast zu stark verändert, einen Teil war aber noch zu rekonstruieren.

For Each Cell In Selection
If Cell.Column = 1 Then

Rows(Cell.Row).Copy 'Zeile kopieren
Rows(Cell.Row).Insert 'Neue Zeile weiter unten einfügen

end if
Next Cell

Ich hoffe du kannst noch etwas damit anfangen

Gruess Michi

Re: Neue Zeilen in Range

09.04.2003 15:47:31

Andi_H

ok, wenn ich das richtig verstanden habe willst du unter jeder markierten Zelle eine neue Zeile darunter haben.
Markierst du diese Zellen manuel? Welchen Inhalt soll de neue Zeile haben?
Des habe ich noch nicht verstanden, leider ist aus deinem Code nicht viel ersichtlich.

Re: Neue Zeilen in Range

09.04.2003 16:22:57

Michi Schnyder

Genau, die Zeilen werden mauell markiert. Die neue Zeile sollte genau den gleichen Inhalt wie die obige Zeile haben bis auf die Spalte A. Zudem sollte die neue Zeile eine rote Schriftfarbe haben. Doch im Moment müssste ich nur wissen, wie ich genau unter jeder Zelle eine neue machen kann. Alles andere, denke ich, kriege ich auch noch selber hin..

Gruss Michi

Re: Neue Zeilen in Range

09.04.2003 16:47:49

Andi_H

hi,
versuch mal diesen Code
Sub rows_add()
Dim zelle As Range
For Each zelle In Selection
zelle.EntireRow.Select
Selection.Insert Shift:=xlDown
Next
End Sub

gruß andi

Re: Neue Zeilen in Range

09.04.2003 17:01:57

Michi Schnyder

Funktioniert leider nicht.
Es wird zuerst eine Zeile vor der ersten eingefügt, danach mit einer Endlosschleife zwischen der ersten und der Zweiten.

Gruss Michi

Re: Neue Zeilen in Range

09.04.2003 17:32:42

Andi_H

Sorry, war ein Denkfehler meinerseits, versuch mal das hier, wenn des nicht geht weiß ich leider auch nicht mehr weiter

Sub rows_add()
Dim zelle As Range
For Each zelle In Selection
If Not IsEmpty(Cells(zelle.Row, zelle.Column)) Then
zelle.Offset(1, 0).EntireRow.Select
Selection.Insert Shift:=xlUp
End If
Next
End Sub