Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen wiederholen

Zeilen wiederholen
17.08.2006 12:24:06
Holger
Hallo,
ich bastel gerade an einer Datenbank für Serienbriefe (Etiketten). Da sich einzelne Etiketten unterschiedlich häufig wiederholen möchte ich in einer Zelle der entsprechenden Zeile die Anzahl der Wiederholungen eintragen. Die Zeile soll dann entsprechend oft hinzugefügt werden.
Kann mir da jemand weiterhelfen?
Danke
Holger

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen wiederholen
17.08.2006 12:40:08
Werner
Hi Holger,
kannst Du mal ein Beispiel hochladen?
Gruß Werner.
AW: Zeilen wiederholen
17.08.2006 13:08:46
Holger
Hallo Werner,
hier die Beispieldatei:
https://www.herber.de/bbs/user/35891.xls
Die Zeilen sollen wie in der Spalte D angegeben wiederholt werden.
Gruß
Holger
AW: Zeilen wiederholen
17.08.2006 13:56:08
Eule
Hi Holger
vielleicht hilft dir dies:

Sub rein_damit()
Dim z As Integer
Dim y As Integer
Dim lRow As Integer
lRow = Cells(1, 1).CurrentRegion.Rows.Count
For z = lRow To 2 Step -1
If Cells(z, 4) > 1 Then
For y = Cells(z, 4).Value - 1 To 1 Step -1
Range(Cells(z, 1), Cells(z, 4)).Copy
Range(Cells(z, 1), Cells(z, 4)).Insert Shift:=xlDown
Next y
Application.CutCopyMode = False
End If
Next
End Sub

Gruss Eule
Anzeige
AW: Zeilen wiederholen
17.08.2006 14:05:08
Holger
Hallo Eule,
Danke, das klappt schon mal. Ich bekomme aber am Ende die Fehlermeldung "Typen unverträglich".
Kannst du mir sagen woran das liegt=
Danke & Gruß
Holger
AW: Zeilen wiederholen
17.08.2006 14:27:37
Holger
Naja bei dir kommt die Fehlermeldung nicht. Ich nehme dann einfach deine Liste und schon klappt es.
Danke!!
Gruß
Holger

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige