Guten Abend!
Ich habe da ein kleines Excel-Problem, vllt. könnt ihr mir helfen.
Also ich habe eine Tabelle (bestehend aus 2 Spalten), die ungefähr so aussieht:
RUS 4
NOR 4
ENG 3
GER 3
usw.
Ich möchte erreichen, dass wenn in der Spalte zwei eine 4 steht, diese Zeile insgesamt 4 x auftauscht, sprich noch 3 zusätzliche Zeilen zu der bereits bestehenden erzeugt werden. Dies soll automatisch bzw. per „runterziehen“ geschehen.
Gibt es da eine Lösung?
Vielen Dank im Vorraus!
Gruß
Thomas Becker
RUS 4
NOR 4
ENG 3
GER 3
usw.
Ich möchte erreichen, dass wenn in der Spalte zwei eine 4
steht, diese Zeile insgesamt 4 x auftauscht, sprich noch 3
zusätzliche Zeilen zu der bereits bestehenden erzeugt werden.
Dies soll automatisch bzw. per „runterziehen“ geschehen.
Hi Thomas,
Alt+F11,Einfügen–Modul,Code reinkopieren, Editor schliessen.
Starten mit Extras–Makro–Makro–tt—Ausführen
Option Explicit
Option Base 1
Sub tt()
Dim Werte(), zei, ws1, pos, zei2
For zei = 1 To Range("A65536").End(xlUp).Row
ReDim Preserve Werte(2, zei)
Werte(1, zei) = Cells(zei, 1)
Werte(2, zei) = Cells(zei, 2)
Next zei
For zei = 1 To zei - 1
For pos = 1 To Werte(2, zei)
zei2 = zei2 + 1
Cells(zei2, 1) = Werte(1, zei)
Cells(zei2, 2) = Werte(2, zei)
Next pos
Next zei
End Sub
Gruß
Reinhard
Hallo Reinhard,
vielen lieben Dank für das Makro, das funktioniert einwandfrei und hast mir somit sehr viel Zeit und viele Klicks erspart!!! Danke dafür!
Gruß
Thomas