Historie aufbauen; Dateien von Tab1 auf Tab2

Bild

Betrifft: Historie aufbauen; Dateien von Tab1 auf Tab2
von: Michael
Geschrieben am: 09.12.2003 11:42:46

Hallo,

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

Bild


Betrifft: AW: Historie aufbauen; Dateien von Tab1 auf Tab2
von: Nike
Geschrieben am: 09.12.2003 11:49:19

Hi,
ich hatte unten auf deinen ersten Thread geantwortet.

Bye

Nike


Bild

Beiträge aus den Excel-Beispielen zum Thema " Historie aufbauen; Dateien von Tab1 auf Tab2"