Anzeige
Archiv - Navigation
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

suchen u. übertragen, Makro ändern

suchen u. übertragen, Makro ändern
16.12.2006 12:03:36
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 Sub

Vielen Dank für eure Hilfe!
Gruß
Rolf

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen u. übertragen, Makro ändern
16.12.2006 15:04:41
Daniel.Eisert
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
AW: suchen u. übertragen, Makro ändern
16.12.2006 15:17:27
Stamereilers
Hallo Daniel!
Vielen Dank für deine Hilfe.
Aber ich bin selber dahinter gekommen wie es funkt.
Gruß
Rolf
AW: suchen u. übertragen, Makro ändern
16.12.2006 15:14:51
Stamereilers
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
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige