Herbers Excel-Forum - das Archiv

suchen u. übertragen, Makro ändern

Bild

Betrifft: suchen u. übertragen, Makro ändern
von: Stamereilers

Geschrieben am: 16.12.2006 12:03:36
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 Sub

Vielen Dank für eure Hilfe!
Gruß
Rolf
Bild

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
Bild

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
Bild

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
 Bild
Excel-Beispiele zum Thema "suchen u. übertragen, Makro ändern"
Zellinhalt suchen und Zelle auswählen Suchbegriff über mehrere Tabellenblätter suchen.
Suchen und weitersuchen Zahl +/- 1 suchen
Ein Zeichen in einer Formel suchen Datum suchen und Wert eintragen
Wert in Tabelle suchen und in UserForm ausgeben Letzte Zelle mit Inhalt suchen
Textdatei nach Begriff durchsuchen und Fundzeile importieren Wert in Array suchen, ohne jedes Datenfeld abzufragen