VBA Problem

04/10/2007 - 08:17 von Daniel Fellner | Report spam
Hallo NG,

weiß jemand warum das Listing nicht funktioniert?

KDNR = Worksheets(2).Cells(2, 2).Value


For x = 2 To 62000

If KDNR = Worksheets(3).Cells(x, 1) Then


KDSB = Worksheets(3).Cells(x, 3).Value
KD = Worksheets(3).Cells(x, 2).Value
Str = Worksheets(3).Cells(x, 4).Value
L = Worksheets(3).Cells(x, 5).Value
PLZ = Worksheets(3).Cells(x, 6).Value
Ort = Worksheets(3).Cells(x, 7).Value
Gebiet = Worksheets(3).Cells(x, 8).Value

Worksheets(2).Cells(3, 2).Value = KD
Worksheets(2).Cells(4, 2).Value = KDSB
Worksheets(2).Cells(5, 2).Value = Str
Worksheets(2).Cells(6, 2).Value = L
Worksheets(2).Cells(7, 2).Value = Ort
Worksheets(2).Cells(8, 2).Value = Gebiet

Exit For

End If

Next x

Ich will damit wenn in die Zelle B2 ein bestimmter Wert eingetragen
wird, Daten die diesem Wert in einem anderen Tabellenblatt zugeordnet
sind, auf das Tabellenblatt auf dem sich Zelle B2 befindet übertragen.
Eigentlich müßte es gehen, warum tuts trotzdem nicht?

Gruß

Daniel
 

Lesen sie die antworten

#1 stefan onken
04/10/2007 - 09:25 | Warnen spam
hallo Daniel,
probier mal, ob es mit
If KDNR = Worksheets(3).Cells(x, 1).Value Then
geht. Stimmen ansonsten die Indices der Tabellen?

x=2 To 62000 das dürfte ja ne Weile dauern. Schneller geht es mit der
Find-Methode oder ohne VBA mit der Funktion SVERWEIS.

Gruß
stefan

On 4 Okt., 08:17, Daniel Fellner wrote:
Hallo NG,

weiß jemand warum das Listing nicht funktioniert?

KDNR = Worksheets(2).Cells(2, 2).Value

For x = 2 To 62000

If KDNR = Worksheets(3).Cells(x, 1) Then

KDSB = Worksheets(3).Cells(x, 3).Value
KD = Worksheets(3).Cells(x, 2).Value
Str = Worksheets(3).Cells(x, 4).Value
L = Worksheets(3).Cells(x, 5).Value
PLZ = Worksheets(3).Cells(x, 6).Value
Ort = Worksheets(3).Cells(x, 7).Value
Gebiet = Worksheets(3).Cells(x, 8).Value

Worksheets(2).Cells(3, 2).Value = KD
Worksheets(2).Cells(4, 2).Value = KDSB
Worksheets(2).Cells(5, 2).Value = Str
Worksheets(2).Cells(6, 2).Value = L
Worksheets(2).Cells(7, 2).Value = Ort
Worksheets(2).Cells(8, 2).Value = Gebiet

Exit For

End If

Next x

Ich will damit wenn in die Zelle B2 ein bestimmter Wert eingetragen
wird, Daten die diesem Wert in einem anderen Tabellenblatt zugeordnet
sind, auf das Tabellenblatt auf dem sich Zelle B2 befindet übertragen.
Eigentlich müßte es gehen, warum tuts trotzdem nicht?

Gruß

Daniel

Ähnliche fragen