Daten für Wert in andere Tabelle speichern
02.03.2005 12:10:11
Egger
hab ein Problem mit folgendem Makro:
Sub GetData_BeiKlick()
Dim wksOrder As Worksheet, WksData As Worksheet
Dim var As Variant
Dim iRow As Integer, iRowL As Integer
Set wksOrder = Worksheets("Tabelle1")
Set WksData = Worksheets("Tabelle2")
Set wksTrue = Worksheets("Tabelle3")
iRow = 2
Do Until IsEmpty(wksOrder.Cells(iRow, 1))
var = Application.Match(wksOrder.Cells(iRow, 1), WksData.Columns(1), 0)
If IsError(var) Then
MsgBox "nicht gefunden"
Else
iRowL = wksTrue.Cells(Rows.Count, 1).End(xlUp).Row + 1
wksTrue.Rows(iRowL).Value = WksData.Rows(iRow).Value
End If
iRow = iRow + 1
Loop
End Sub
Es soll die Werte aus Spalte A (Tabelle1) in Spalte A (Tabelle2) suchen und die komplette Zeile in Tabelle3 schreiben.
Er macht dies auch aber er nimmt nicht die Zeile der zugehörigen Werte aus Tabelle 2 sonder nur von oben angefangen (soviele wie in Tabelle 1 sind)
Wäre echt nett wenn jemand den Fehler finden würde.
Thx for help