Makro (Excel) gesucht - bitte helfen...
27.08.2007 15:50:00
Dennis
Reinhard, Chaos - danke für Euer Engagement. Bis auf ein paar Kleinigkeiten klappt auch alles soweit, deshalb nochmals eine Anfrage...
Was bisher geschah:
Gesucht ist ein Makro, das jede einzelne Zeile kopiert und insgesamt drei Mal nachfolgend einfügt (die erste Zeile steht letztlich also 4 mal untereinander...) Zudem sollte der Wert eines bestimmten Feldes (Spalte AZ) um "1" erhöht werden (bis "4", da dies der maximalen Anzahl des Datensatzes entspricht). Standardmässig steht der Wert "1" in besagtem Feld.
Aber zum Problem:
Die erste Zeile der Tabelle wird ebenso kopiert und eingefügt. Ist es möglich, diese Zeile "aussen vor" zu lassen, da Überschriften in ihr stehen? Sonst stehen letztlich "falsche Werte" in der Tabelle. Zudem wird der Zähler, der eingebaut wurde, in die erste Spalte geschrieben und überschreibt bestehende Inhalte - kann man den Zähler einem ganz bestimmten Feld zuweisen (in diesem Fall die Zellen der Splate AZ)?
Hier das Makro (Merci Reinhard):
Option Explicit
Sub tt()
Dim Zei As Long, N As Byte, Ende As Long
Ende = Cells(Rows.Count, 1).End(xlUp).Row
For Zei = (Ende) * 4 To 4 Step -4
Range(Cells(Zei - 3, 1), Cells(Zei, 1)) = Cells(Ende, 1)
Ende = Ende - 1
Next Zei
For N = 1 To 4
Cells(N, 2) = N
Next N
Ende = Cells(Rows.Count, 1).End(xlUp).Row
Range("B1:B4").Copy Destination:=Range(Cells(5, 2), Cells(Ende, 2))
End Sub
Anbei findet ihr Ausschnitte der Tabelle (Ist- Zustand, Soll- Zustand, Zustand nach durchlaufen des Makros)
Anzeige