Dynamischer Tabellenaufbau
10.10.2016 16:01:24
stro
bin ganz neu hier, weil ich absolut nicht weiterkomme. Ich möchte einen dynamischen Tilgungsplan in Excel machen, den ich soweit auch einigermaßen hinbekommen habe.
Das Problem:
Dadurch, dass die Laufzeit (je nach Eingabe Laufzeitbeginn und Ende) zwischen ein paar Monaten und 15 Jahren variieren kann erzeuge ich bei kurzen Laufzeiten viele leere Zeilen. Am Ende des Plans kommen aber noch jeweils die Summen und ein allgemeiner Hinweis. Für die Anzeige ist das unproblematisch, aber der Plan soll auch gedruckt werden und genau da sollen diese Leerzeilen nicht mit angedruckt werden.
Ziel: Direkt nach der Laufzeit sollen die Summen und der Hinweis erscheinen und zwar ohne viele Leerzeilen dazwischen.
Ansatz: Ich kopiere alle Zellen, die auch gedruckt werden sollen in ein weiteres Tabellenblatt und sortiere dabei die leeren Zeilen bzw. Zellen aus.
Ich habe das mal hiermit versucht:
Dim i As Long, j As Long
j = 19
For i = 19 To 200
If Cells(i, 2) "" Then
Cells(i, 2).Copy Sheets(2).Cells(j, 2)
j = j + 1
End If
Next i
Frage:
-Kann ich das für jede Spalte, für die ich das machen möchte einfach kopieren?
-Der Code fügt (verständlicherweise) die Formel (und nicht den Wert) ein. Mit den "Paste"-Funktionen bekomme ich es nicht hin, dass der Wert eingefügt wird...an welcher Stelle und wie muss das denn rein?
Wenn es mit dieser Beschreibung nicht funktioniert kann ich auch gerne die Datei hochladen. Vielen Dank schon mal für Eure Unterstützung!