Wert in Zeile suchen und X-mal kopieren

Guten morgen Excelexperten,
ich versuche gerade einen Cash-flow mit Hilfe von VBA zu automatisieren.
Ich habe einen Input-Sheet, wo der Wert einmal eingetragen wird. Z.B. 1000 Gewinn pro Jahr. Zudem wird der Startwert z.B. das Jahr 2020 und die Laufzeit angegeben z.B. 20 Jahre.
Was ich schon geschafft habe:
Mit Hilfe von einem WVerweis in VBA, den Wert in der Tabelle zu suchen und mir in mein Kalkulations-Sheet in einem Zeitstrahl(2000-2100) einzutragen.
Jetzt müsste ich die Zeile absuchen lassen. Wenn die Zelle nicht leer ist, soll der Wert makiert werden und X-mal (die variable Laufzeit)nach rechts kopiert werden. Leider reichen meine VBA Kenntnisse nicht aus um das umzusetzten.
Ich hoffe ich versteht was suche und könnt mir helfen :)
LG Stephan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Mach() Dim WS1 As Worksheet, WS2 As Worksheet Dim iSpalte As Long, iiSpalte As Long Dim letzteZeile As Long Set WS1 = Worksheets("Tabelle1") Set WS2 = Worksheets("Tabelle2") WS2.Rows("2:10000").Delete For iSpalte = 2 To WS1.Cells(1, WS1.Columns.Count).End(xlToLeft).Column letzteZeile = WS2.Cells(WS2.Rows.Count, 1).End(xlUp).Row + 1 WS2.Cells(letzteZeile, 1) = WS1.Cells(1, iSpalte) For iiSpalte = 2 To WS2.Cells(1, WS2.Columns.Count).End(xlToLeft).Column If WS2.Cells(1, iiSpalte) >= WS1.Cells(2, iSpalte) And _ WS2.Cells(1, iiSpalte)

Hallo Chris,
jetzt klappt alles wunderbar bis auf eine Sache. Ich habe mich komplett reingearbeitet und konnte alles bis auf eine kleine Sache lösen. Nämlich soll der Zeitstrahl in Zeile 4 sein und die Daten erst in Zeile 37 bis 66 reingeschrieben werden. Leider verspringt mir das immer, da ich die letzte Zeile mit dem Rows.Count definiere. Gibt es da auch eine andere Lösung?
So sieht jetzt mein Code aus.

Sub Datenübertragung()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iSpalte As Long, iiSpalte As Long
Dim letzteZeile As Long
Set WS1 = Worksheets("Input")
Set WS2 = Worksheets("Monte Carlo Simulation")
For iSpalte = 4 To WS1.Cells(10, WS1.Columns.Count).End(xlToLeft).Column
letzteZeile = WS2.Cells(WS2.Rows.Count, 2).End(xlUp).Row + 1
For iiSpalte = 2 To WS2.Cells(4, WS2.Columns.Count).End(xlToLeft).Column
If WS2.Cells(4, iiSpalte) >= WS1.Cells(12, iSpalte) And _
WS2.Cells(4, iiSpalte)

LG
Stephan

Sub Datenübertragung() Dim WS1 As Worksheet, WS2 As Worksheet Dim iSpalte As Long, iiSpalte As Long Dim letzteZeile As Long Set WS1 = Worksheets("Tabelle1") Set WS2 = Worksheets("Tabelle2") letzteZeile = 36 For iSpalte = 4 To WS1.Cells(10, WS1.Columns.Count).End(xlToLeft).Column letzteZeile = letzteZeile + 1 For iiSpalte = 2 To WS2.Cells(4, WS2.Columns.Count).End(xlToLeft).Column If WS2.Cells(4, iiSpalte) >= WS1.Cells(12, iSpalte) And _ WS2.Cells(4, iiSpalte)

Beliebteste Forumthreads (12 Monate)

Wert in Zeile suchen und X-mal kopieren

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wert in Zeile suchen und X-mal kopieren

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread