Historie aufbauen; Dateien von Tab1 auf Tab2
09.12.2003 11:42:46
Michael
möchte zu Wertpapieren laufend eine Kurshistorie aufbauen und komme mit dem VBA nicht so weit wie ich gerne möchte:
Die Kursdatendaten sollen von Tabelle 1 auf Tabelle 2 übertragen werden. Sind in der Tabelle 2 noch keine WKN vorhanden, soll die WKN und der dazugehörige Kurs ergänzt werden.
Beispiel:
Tabelle 1:
WKN Kurs
1 10
2 20
5 50
Tabelle 2:
WKN 1 5
Kurs 10 50
In Tabelle 2 müßte dann in Zelle D1 der Wert 2 und in Zelle D2 der Wert 20 ergänzt werden, usw. je nach Umfang in Tabelle 1.
Folgender VBA-Code bingt mich nicht ganz dahin (für Verbesserungsvorschläge bin ich auch jederzeit dankbar).
Vielen Dank schon mal vorweg
Michael
Sub Historie()
Dim n As Integer
Dim WKN
Dim Kurs
Dim Zeile As Integer
Tabelle1.Select
n = 2
Range("A" & n).Select
Do Until ActiveCell.Value = ""
Range("A" & n).Select
WKN = ActiveCell.Value
Kurs = ActiveCell.Offset(0, 1).Value
Tabelle2.Select
Range("A200").End(xlUp).Select
Zeile = ActiveCell.Row
For Spalte = 2 To 250
Cells(Zeile, Spalte).Select
If Cells(1, Spalte).Value = WKN Then
Cells(Zeile, Spalte).Value = Kurs
GoTo A:
End If
If Cells(1, Spalte).Value = "" Then
Cells(1, Spalte).Value = WKN
Cells(Zeile, Spalte).Value = Kurs
GoTo B:
End If
A:
Next Spalte
B:
Tabelle1.Select
n = n + 1
Loop
Range("A1").Select
End Sub