Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1072to1076
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
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Anzahl Zeilen kopieren

Bestimmte Anzahl Zeilen kopieren
30.04.2009 10:02:16
paul
Hallo
auch nach intensiver Durchsicht des Forum finde ich keinen Deckel auf meinen Exceltopf.
Ich möchte Zeilen kopieren. Und zwar keine bestimmte Anzahl sonderen eine variable Anzahl.
Im Forum habe ich viele Beiträge gefunden die Zeilen kopieren oder einfügen, aber meist handelt es sich um eine fixe Anzahl von Zahlen.
Beispiel vorher
SpA SpB
1 Schumacher
2 Neumann
1 Flohe
6 Müller
Beispiel nachher
SpA SpB
1 Schumacher
2 Neumann
2 Neumann
1 Flohe
6 Müller
6 Müller
6 Müller
6 Müller
6 Müller
6 Müller
Ich möchte also abhängig von dem Wert, der in der Spalte A steht, die entsprechende Anzahl (Wert -1 ) von Zeilen kopieren.
Steht dort eine 1 soll (1-1=0) keine Zeile kopiert werden.
Steht dort eine 2 soll (2-1=1) eine Zeile kopiert werden.
....
Und zwar soll immer die Zeile kopiert und darunter eingefügt werden aus der der Wert ausgelesen wurde.
Ich hoffe Ihr könnt mir weiterhelfen!
Vielen Dank!!
Paul

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Anzahl Zeilen kopieren
30.04.2009 10:18:38
Hajo_Zi
Hallo Paul,

Option Explicit
Sub Paul()
Dim LoLetzte As Long
Dim LoI As Long
Application.ScreenUpdating = False
'   letzte belegte Zeile unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For LoI = LoLetzte To 1 Step -1
Cells(LoI, 2).Copy
If Cells(LoI, 1) > 1 Then
Range(Cells(LoI, 2), Cells(LoI + Cells(LoI, 1) - 2, 2)).Insert Shift:=xlDown
End If
Next LoI
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub



Anzeige
AW: Bestimmte Anzahl Zeilen kopieren
30.04.2009 11:00:21
paul
Hallo Hajo
Vielen Dank!
Die Anzahl ist richtig erkannt worden, aber leider hat das Marko keine Zeilen eingefügt, sondern nur Zellen.
D.h. die Namen aus SpB wurden in der gewollten Anzahl kopiert und eingefügt, aber der Rest der Zeilen ist stehen geblieben.
Es müsste ausgetauscht werden dass nicht Zellen sondern Zeilen kopiert werden.
Ich habe ein paar Versuche gemacht Cells gegen Rows auszutauschen, muss aber gestehen, das ich zur Zeit die einzelnen Funktionen in VB noch nicht endgültig kapiert habe :-(
Geht das mit dem Tausch Zelle gegen Zeile?
Gruß paul
AW: Bestimmte Anzahl Zeilen kopieren
30.04.2009 12:14:20
Hajo_Zi
Hallo Paul,

Option Explicit
Sub Paul()
Dim LoLetzte As Long
Dim LoI As Long
Application.ScreenUpdating = False
'   letzte belegte Zeile unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For LoI = LoLetzte To 1 Step -1
Rows(LoI).Copy
If Cells(LoI, 1) > 1 Then
Rows(LoI & ":" & LoI + Cells(LoI, 1) - 2).Insert Shift:=xlDown
End If
Next LoI
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


Gruß Hajo

Anzeige
AW: Bestimmte Anzahl Zeilen kopieren
30.04.2009 13:07:17
paul
SUPERBINGO!!!!!!!!!!!!
Vielen Dank!
Klappt hervoragend!!!!!!!
Schönes Maiwochende!
Gruß
Paul

306 Forumthreads zu ähnlichen Themen

Nur bestimmten Zellbereich kopieren u. exportieren
Bernd

Hallo Freaks,
ich habe diesen Code für das Exportieren bestimmter Tabellenblätter aus dem Forum-Archiv.
Wer wäre bitte so nett und würde den Code dahingehend anpassen, dass nur die Zellen A1:P36 des Sheets "Export" kopiert werden?
Wenn es nicht zu unverschämt ist, wäre ich an nachs...
17.03.2009 16:11:25
Thread-ID: 1061150
2 Beiträge
Anzeige
Zeilen in anderes Arbeitsblatt kopieren
Alex

Hallo @ all
ich habe folgendes Problem:
Tabelle 1 enthält eine Vielzahl von Daten. Diese will ich nun filtern und die jeweilige Zeile, die in N "TGA" enthält in Tabelle 2 kopieren.
Ich weiß, dass das Ganze mit wenn(summe... funktioniert, aber vermute, man muss hier feste Zahlen ange...
06.07.2009 11:29:58
Thread-ID: 1086570
7 Beiträge
Spalten in neues Tabellenblatt kopieren
Doreen

Ich arbeite seit langem mal wieder mit Excel und hab alles vergessen :-(
Ich habe ein Tabellenblatt in dem ich alle meine Informationen pflege. Einfach verschiedene Daten (z.B. Liefertage, Lieferdateinname, Land, etc.) in Spalten runter geschrieben, ohne Bezüge - nichts, einfach nur ne Lis...
22.07.2009 11:53:21
Thread-ID: 1090482
2 Beiträge
Anzeige
Combobox soll nur bestimmte Zeilen zeigen
Jörg-HH

Guten Abend zusammen
habe in einem Thread mit Franz neulich viel über Listboxen gelernt und wollte das nun auf ein ähnliches Problem mit einer Combobox übertragen - aber da hapert es noch etwas ;-)) Ich hab versucht, einiges von dem Code, den Franz mir gesendet hat, zu verwenden
In dies...
23.09.2009 20:23:50
Thread-ID: 1105056
30 Beiträge
Nur bis zu einem Bestimmten Zeichen kopieren
Excellent

Hallo,
ich habe z.B. in einer Zelle in Excel diesen Dateipfad stehen: C:\Ordner1\UnterordnerXY\Ordner0815
Nun möchte ich, wenn ich auf einen Button drücke nur noch folgendes in der Zelle stehen haben:
C:\Ordner1\UnterordnerXY\
Es könnte auch sein, dass der Pfad lediglich so auss...
24.09.2009 11:29:13
Thread-ID: 1105207
8 Beiträge
Spalten H & I in ein neues Tabellenblatt kopieren
Henning

Hallo zusammen,
wie man schon an meinem Level erkenne kann, bin ich ein Anfänger was VBA angeht.
Nun zu meinem Problem.
Ich habe ein Tabellenblatt mit dem Namen "Stammdaten" in diesem fängt
ab der 18 Zeile in den Spalten H und I folgende Tabelle an. Es folgen noch weitere Spalt...
23.11.2009 22:01:03
Thread-ID: 1119606
7 Beiträge
variables kopieren in ein anderes Tabellenblatt | Herbers Excel-Forum
Space
Hallo Community
Ich suche einen VBA Code um folgendes Problem mittels Button zu lösen:
ich würde gerne aus einem Tabellenblatt "Tabelle1" von Zeile 14 bis Spalte Q bis zum letzen vorhandenen Eintrag alles koperen und das ganze in das Tabellenblatt "Tabelle2" einfügen. In "Tabelle2" soll es...
15.01.2010 12:12:20
Thread-ID: 1130211
5 Beiträge
nur in bestimmte bereiche reinkopieren
thomas

hallo zusammen,
ich schreibe gerade ein makro, dass über eine inputbox abfrägt, in welchem bereich man zeilen einfügen möchte. das klappt auch super, aber ich will eigentlich nur bestimmte bereiche zulassen. also zum beispiel zwischen a14 und a20. sollte nun einer einen bereich zwischen a1 u...
11.04.2002 10:25:24
Thread-ID: 112349
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
6
1
9
29
7
6
4
2
7
2
6
8
9
4
3
5
8
2
2
1
2
4
7