Sverweis auf zellen anwenden bis leer
17.09.2013 18:33:12
Markus
ich versuch mich schon seit meheren Stunden wieder an einem Makro, doch leider klappt das nicht so wie ich mir das vorstelle:
Ausgangslage:
In Tabelle 1 stehen in Spalte 5, ab Zeile 25 bis x verschiedene Nummern. (Kommen ständig neue Nummern hinzu.) Nun möchte ich das jede Nummer aus Tabelle 1 in Tabelle 2 (Spalte 1 ab Zeile 2)abgefragt wird und den Wert, der in der Zelle daneben steht in Tabelle 1 Spalte 4 in entsprechende Zeile schreibt. Das ganze soll so lange laufen, bis in Tabelle 1 keine Werte mehr vorhanden sind.
Es handelt sich quasi um einen Sverweis der in VBA umgesetzt werden soll und so lange läuft bis es keine Werte mehr zu suchen gibt. Anbei mein bisheriger Code, der leider nicht läuft. Es hakt an ".Cells(j, 4) = "=SVERWEIS('Tabelle1!j;'Tabelle2'!A2:C10001;3;FALSCH)"", glaub ich zumindest.
Danke schon einmal
Sub Finden
With Sheets("Tabelle1")
.Unprotect Password:="XXX"
Dim z As Integer
Dim j As Integer
Dim leer As Integer
z = 25
j = 25
Do
If .Cells(z, 5) "" Then
leer = False
Else
leer = True
End If
Do
.Cells(j, 4) = "=SVERWEIS('Tabelle1!j;'Tabelle2'!A2:C10001;3;FALSCH)"
z = z + 1
j = j + 1
Loop Until leer = True
End With
.Protect Password:="XXX"
End Sub
Anzeige