Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
248to252
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
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen kopieren

Zeilen kopieren
23.04.2003 16:55:17
Remo
Hallo

Mein Problem: Habe eine Liste mit
Produkten. Momentan sieht es so aus:
Anlage Anzahl
Tische 3
Stühle 2
Computer 1
Fahrzeuge 2


So sollte es sein, wenn möglich mit Makro:

Anlage Anzahl

Tische 3
Tische 3
Tische 3
Stühle 2
Stühle 2
Computer 1
Fahrzeuge 2
Fahrzeuge 2

Besten Dank im Voraus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zeilen kopieren
23.04.2003 17:05:43
ChrisL

Hallo Remo

Anlage und Anzahl stehen in Spalte A + B, Ausgabe in Spalte C + D.

Option Explicit

Sub Kopiervorgang()
Dim i As Long, AnzahlZeilen As Long

For i = 1 To Range("A65536").End(xlUp).Row
AnzahlZeilen = Range("C65536").End(xlUp).Row + 1
If AnzahlZeilen = 2 And Range("C1") = "" Then AnzahlZeilen = 1
Range(Cells(i, 1), Cells(i, 2)).Copy Range(Cells(AnzahlZeilen, 3), Cells(AnzahlZeilen + Cells(i, 2) - 1, 4))
Next i
End Sub


Gruss
Chris

Re: Zeilen kopieren
23.04.2003 17:20:30
PeterW

Hallo Remo,

es könnte auch so gehen:

Die Werte stehen in den Spalten A und B, Ausgabe erfolgt in C und D.

Gruß
Peter

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige