Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1368to1372
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
Inhaltsverzeichnis

Teile meiner Tabelle verfielfältigen

Teile meiner Tabelle verfielfältigen
12.07.2014 18:10:33
Jenny
Hallo an alle,
bitte helft mir. Ich suche für meine Tabelle eine Formel, die die Tabelle mit dem Namen 22-351 10.03.1997 wiedergibt, jedoch bestimmte Zeilen 10mal wiederholt und dann erst mit der nächsten Zeile fortfährt. und zwar nach folgendem Schema.
1. es geht um die Spalten A bis P.
2. die Zeilen 1 bis 646 sollen so wiedergegeben werden wie sie sind.
3. ab Zeile 647 sollen alle Zeilen, bei denen der Text in Spalte B NICHT mit einem " anfängt 10mal nacheinander ausgegeben werden, erst dann mit der nächsten Zeile fortgesetzt werden.
4. ab Zeile 647 sollen alle Zeilen, bei denen der Text in Spalte B MIT einem " anfängt, nur einmal ausgegeben werden.
Beispiel:
Zeilen 1-646 identisch zu Orginaltabelle, egal ob Zeilen mit " oder etwas anderem anfangen
B647 in der Originaltabelle fängt mit nicht mit einem " an, also sollen alle Zeilen von 647 bis 656 der Zieltabelle identisch sein mit Zeile 647 in der Originaltabelle.
B648 der Originaltabelle fängt mit einem J an, also auch nicht mit einem ", also soll diese Zeile 10mal, nämlich in die nächstfreien Zeilen also 657 bis 666 der Zieltabelle übertragen werden.
B649 der Originaltabelle fängt mit einem " an, also soll diese Zeile nur einmal in der Zieltabelle erscheinen, wieder in der nächstfreien Zeile der Zieltabelle, diesmal Zeile 667
und immer weiter nach diesem Schema, bis Zeile 1408 der Orignaltabelle erreicht ist.
Hoffe das war verständlich und jemand hat eine Idee.
Jenny

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

Betreff
Datum
Anwender
Anzeige
AW: Teile meiner Tabelle verfielfältigen
12.07.2014 21:25:26
Daniel
Hi
probier mal das, ggf Tabellenblattnamen in der ersten Zeile anpassen:
Sub test()
Dim Zeile As Long
With Sheets("Tabelle1")
With .UsedRange
With .Resize(, .Columns.Count + 1)
With .Columns(.Columns.Count)
.Formula = "=Row()"
.Formula = .Value
End With
With Range(.Rows(647), .Rows(.Rows.Count))
.Sort key1:=.Cells(1, 2), order1:=xlAscending, Header:=xlNo
Zeile = .Columns(2).Find(what:="""*", LookIn:=xlValues, _
lookat:=xlWhole, _
Searchdirection:=xlPrevious).Row
End With
With .Range(.Cells(Zeile + 1, 1), .Cells(.Rows.Count, .Columns.Count))
.Select
.Copy
.Offset(.Rows.Count, 0).Resize(.Rows.Count * 10).PasteSpecial xlPasteAll
End With
End With
End With
With .UsedRange
.Sort key1:=.Cells(1, .Columns.Count), order1:=xlAscending, Header:=xlNo
.Columns(.Columns.Count).ClearContents
End With
End With
End Sub
Gruß Daniel

Anzeige
AW: Teile meiner Tabelle verfielfältigen
13.07.2014 12:00:21
Jenny
Hallo Daniel,
das hat funktioniert. Danke
Gruß
Jenny

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige