Herbers Excel-Forum - das Archiv
suchen u. übertragen, Makro ändern
- suchen u. übertragen, Makro ändern von Stamereilers vom 16.12.2006 12:03:36
- AW: suchen u. übertragen, Makro ändern - von Daniel.Eisert am 16.12.2006 15:04:41
- AW: suchen u. übertragen, Makro ändern - von Stamereilers am 16.12.2006 15:17:27
- AW: suchen u. übertragen, Makro ändern - von Stamereilers am 16.12.2006 15:17:27
- AW: suchen u. übertragen, Makro ändern - von Stamereilers am 16.12.2006 15:14:51
 |
Betrifft: suchen u. übertragen, Makro ändern
von: Stamereilers
Hallo Excel Experten!
Ich möchte in Tabelle2 den Wert in Spalte 4 suchen und den Wert aus Spalte 5 nach Tabelle1 übertragen. Könnt ihr mir das Makro anpassen?
(Leider komme ich nicht dahinter wie es funkt)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Column <> 4 Then Exit Sub
With Application
var = .VLookup(Target.Value, _
Worksheets("Tabelle2").Columns("A:B"), 2, 0)
If Not IsError(var) Then
Target.Offset(0, 1) = .VLookup(Target.Value, _
Worksheets("Tabelle2").Columns("A:B"), 2, 0)
End If
End With
End SubVielen Dank für eure Hilfe!
Gruß
Rolf
 |
Betrifft: AW: suchen u. übertragen, Makro ändern
von: Daniel.Eisert
Geschrieben am: 16.12.2006 15:04:41
Hallo
der Befehl heißt Application.WORKSHEETFUNCTION.VLookUP(...)
wobei man das Application. auch weglassen kann.
Falls der Wert nicht vorhanden ist, wirst du den Fehler so auch nicht abfangen können.
ich machs dann immer so:
with worksheetfunction
if .countif(columns("A"), target.value)>0 then
Target.offset(0,1).value = .vlookup(target.value, columns("A:B"), 2,1)
end if
end with
Gruß, Daniel
|
Betrifft: AW: suchen u. übertragen, Makro ändern
von: Stamereilers
Geschrieben am: 16.12.2006 15:17:27
Hallo Daniel!
Vielen Dank für deine Hilfe.
Aber ich bin selber dahinter gekommen wie es funkt.
Gruß
Rolf
|
Betrifft: AW: suchen u. übertragen, Makro ändern
von: Stamereilers
Geschrieben am: 16.12.2006 15:14:51
Hallo !
Hat sich erledigt!
Bin selber dahinter gekommen!
If Target.Column <> 4 Then Exit Sub
With Application
var = .VLookup(Target.Value, _
Worksheets("Tabelle2").Columns("E:F"), 2, 4)
If Not IsError(var) Then
Target.Offset(0, 1) = .VLookup(Target.Value, _
Worksheets("Tabelle2").Columns("E:F"), 2, 4)
Gruß
Rolf
| |