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

VLookup mit Worksheet_Change über 2 Palten

Forumthread: VLookup mit Worksheet_Change über 2 Palten

VLookup mit Worksheet_Change über 2 Palten
Paulo
Hallo Freunde,
Brauche mal wieder eure Hilfe.
Ich benutze folgenden Code um auf 2 spalten ( spalte 5 und 7 ) die Eingabe zu kontrollieren wo es dann mit VLookup weitere werte sucht und in die Spalten 1,33 und 32 ) einträgt.
Die Überwachung der Spalte 5 funktioniert einwandfrei nur mit der spalte 7 will er nichts tun.
Wer kann mir weiterhelfen?
Option Explicit 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varA, varB, varC As Variant
If Target.Column  5 Or Target.Row  7 Or Target.Row

Danke im voraus
Paulo
Anzeige
AW: VLookup mit Worksheet_Change über 2 Palten
18.11.2011 11:34:34
Rudi
Hallo,
kein Wunder. Du verlässt ja auch die Sub, wenn die Spalte 5 ist.
If Target.Column 5 Or Target.Row 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varA, varB, varC As Variant
If Target.Row

Gruß
Rudi
AW: VLookup mit Worksheet_Change über 2 Palten
18.11.2011 12:50:05
Paulo
Danke dir Rudi für die Hilfe,
Ich habe noch ein anderes Problem und zwar in spalte 7
Wenn ich ein wert (spalte 7) eingebe, sucht und findet es auch den wert und fügt es in Spalte 32 ein.
Wenn ich aber den wert in spalte wieder lösche gibt er mir die Fehlermeldung in Spalte 7 "#NV".
Wie kann ich die Fehlermeldung Nicht vorhanden abschalten ?
Danke
Paulo
Anzeige
AW: VLookup mit Worksheet_Change über 2 Palten
18.11.2011 12:58:55
Rudi
Hallo,
dann prüfe ob die Zelle ="" ist 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varA, varB, varC
If Target.Row

Gruß
Rudi
AW: VLookup mit Worksheet_Change über 2 Palten
18.11.2011 13:19:22
Paulo
Hallo Rudi,
Es ist schon ganz so,
nur funktioniert es immer nur 100% wenn ich 1 eine Zeile ändere,
wenn ich aber ein wert in der Spalte runterkopiere oder lösche ändert es mir immer nur in der ersten oder bzw die aktive Zelle. Wie kann ich mehrere Zeilen gleichzeitig verarbeiten?
Gruß
Paulo
Anzeige
AW: VLookup mit Worksheet_Change über 2 Palten
18.11.2011 14:29:14
Rudi
Hallo,
Wie kann ich mehrere Zeilen gleichzeitig verarbeiten?
Indem du es tust ;-)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varA, varB, varC
Dim rngC As Range
If Target.Row

AW: VLookup mit Worksheet_Change über 2 Palten
18.11.2011 16:48:25
Paulo
Hallo Rudi
Mit der schleife scheint es nicht zu funktionieren. Es ändert den wert beim kopieren oder löschen nicht, erst nach dem erneuten aktivieren der Zelle werden die werte eingetragen.
Aus einen anderen Forum hat man mir gesagt: 
wenn du mehrere Werte z.B. durch Kopieren in den TargetBereich veränderst, kommt du um die  _
verwendung von Formeleingabe m.E. nicht herum
with ....
.formular1c1 = .....
.value =.value
end with
Wie ändere ich den Code um mit dieseralternative?
Gruß
Paulo
Anzeige
AW: VLookup mit Worksheet_Change über 2 Palten
19.11.2011 18:32:42
Paulo
Hallo Rudi,
Habe aus einen anderen Forum diese Variante bekommen die mehrere Zeilen verarbeitet klappt einwandfrei,
nur die Fehlermeldung aus Spalte 7 "#NV" habe ich nicht geschafft einzubauen.
Gruß
Paulo
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
If Target.Row = 1 Then
With Range(Cells(Target.Row, Target.Column), Cells(Target.Row + Target.Count - 1,  _
Target.Column))
.Cells.Offset(0, 28).FormulaR1C1 = "=VLOOKUP(rc5,KAT2,2,0)"
.Cells.Offset(0, 28).Value = .Cells.Offset(0, 28).Value
.Cells.Offset(0, -4).FormulaR1C1 = "=VLOOKUP(rc5,KAT2,3,0)"
.Cells.Offset(0, -4).Value = .Cells.Offset(0, -4).Value
End With
Application.EnableEvents = True
End If
Case 7
Set isect = Intersect(Target, Columns(7))
If Not isect Is Nothing And Target.Count >= 1 Then
With Range(Cells(Target.Row, Target.Column), Cells(Target.Row + Target.Count - 1,  _
Target.Column))
.Cells.Offset(0, 25).FormulaR1C1 = "=VLOOKUP(rc7,CODIA,12,0)"
.Cells.Offset(0, 25).Value = .Cells.Offset(0, 25).Value
End With
Application.EnableEvents = True
End If
End Select
ErrorHandler:
Application.EnableEvents = True
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

VLOOKUP nicht vorhandene Datei
chrdohmen

Hallo Zusammen,
habe ein kleines Problem beim Erstellen eines VLOOKUP mittels VBA.
Hintergrund: Ich habe in einer Jahresdatei zwölf Spalten Jan. bis Dez.. Jeder Monat soll mittels SVERWEIS auf eine Monatsdatei zugreifen. Den benötigten SVERWEIS habe ich, dieser funktioniert auch einwan...
29.09.2008 08:18:20
Thread-ID: 1013017
2 Beiträge
vlookup in vba
Christoph

Hallo,
ich hoffe mir kann jemand weiterhelfen.
ich möchte in einem Makro nach einem Datensatz in einer geschlossenen xls. Datei suchen, ähnlich wie bei Sverweis in excel.
Sprich ich suche nach einer eindeutigen Nr. in Spalte A und möchte dann als String den Wert der Spalte B erhalte...
15.10.2008 20:00:00
Thread-ID: 1016669
10 Beiträge
Vlookup anpassung
Karel

Hallo Forum,
versuchen vergeblich diesese Makro anzupassen, habe ich leztze Woche von Reinhardt erhalten und Funktioniert auch einwandfrei, aber wass muss ich machen wenn Suchwert nicht im Spalte D aber in Spalte E steht. Klick X bleibt im Spalte C
Code:
Option Explicit
Private...
01.11.2008 17:44:09
Thread-ID: 1021046
8 Beiträge
Anzeige
Vlookup
WOP

Hallo alle Zusammen,
ich habe ein Problem mit Vlookup.
In meinem Makro werden die Daten aus allen Worksheet ausgelesen. Falls kein Wert über Vlookup gefunden werden sollte, wird der Wert des vorherigen Excel-Sheets kopiert. (ohne, dass ich dies will)
Noch ein Kleines Bsp.
Suchwe...
01.12.2008 20:47:00
Thread-ID: 1029353
7 Beiträge
vlookup multikriterium oder data matching
stephane

Hallo
ich habe einem problem um vlookup als multikriterium zu verwenden
Besser mit beispiel
in einer erste tabelle (table 1) meinem daten :
GGRMIN GGRMAX DURMIN DURMAX
0.04 0.05 1.0 2.0
0.04 0.05 1.0 2.0
0.04 0.05 1.0 2.0
0.06 0.07 2.0 3...
12.01.2009 16:51:42
Thread-ID: 1038934
3 Beiträge
Anzeige
vlookup
Timmy

Hallo Freune des Excel-Sports;-)
ich habe folgende Frage!
Ich habe eine Datei mit ca. 40000 Artikelnummern und habe fuer die Beschreibung ein "vlookup" gestartet. Excel holte sich die zugehoerige Artikelbeschreibung dann aus einer Datei in einem anderen Ordner.
Das klappt auch, jedo...
29.01.2009 14:23:39
Thread-ID: 1045014
5 Beiträge
Namen ersetzen und vlookup
Timmy

Liebe Excler,
anbei habe ich eine Datei angehaengt. Diese wird mein Problem verdeutlichen:
https://www.herber.de/bbs/user/59734.xls
Vielen Dank fuer eure Muehen!!
Viele Gruesse
Timmy
24.02.2009 15:46:51
Thread-ID: 1053566
3 Beiträge
Vlookup mit benanntem Bereich
BorisHendrik

Hallo,
ich suche schon den ganzen Morgen für ein Problem, bei dem mir vielleicht / hoffentlich einer von Euch helfen kann.
Es geht um eine Vlookup / SVerweis Formel, als TableArray / Matrix möchte ich eine benannten Bereich verwenden. Also so:
=sverweis(a1; MeinBereich; 2; 0)
Im...
26.02.2009 13:51:31
Thread-ID: 1054369
3 Beiträge
Formel zurueckgeben mit Vlookup
Thomas

Hallo,
ich habe ein kleines Problem mit Vlookup.
Und zwar moechte ich gerne anstelle des Werts in der Zelle die Formel die in der Zelle steht zurueckgeben lassen. Wie ist das moeglich?
Mein aktueller Code sieht so aus:
For Each wks In ActiveWorkbook.Worksheets
If wks.Name =...
23.03.2009 03:37:48
Thread-ID: 1062759
5 Beiträge
HLOOkUP statt VLOOKUP?
Ruedi

Hallo zusammen, ich habe folgende Aufgabe wo ich die Lösung nicht finde. Ich habe in der Zelle A2 eine "Data Validation" (Rollbalken). Die Hinterlegten Daten sind aus Kolonen (F,G+H). Nun möchte ich wenn ich ein Datensatz in A2 auswähle , dass der Wert von G in der Zelle B2 erschein und der We...
19.04.2009 15:56:58
Thread-ID: 1069639
2 Beiträge
Mit VLOOKUP Zelle kopieren
Jordan

Hallo zusammen,
ich tret mal wieder auf der Stelle!
Ich möchte mit VLOOKUP nicht nur den Wert der Zelle kopieren, sondern auch das Format.
In meinem Beispiel schreibt er mir neben die Zahl diese ausgeschrieben hin.
z. B.
1 eins
2 zwei usw.
Ich hab aber den Zellen auc...
23.07.2009 19:24:10
Thread-ID: 1090909
17 Beiträge
VLOOKUP mit mehreren Kriterien
LAKing

https://www.herber.de/bbs/user/63612.xls
also in der Excel mag ich aus dem zweiten sheet die Zahlen in das erste sheet übertragen. Allerdings nur die Zahlen, die auch in den jeweiligen Spalten stehen, die im ersten sheet oben abgebildet sind. Also dachte ich an sowas wie ein vlookup, nur e...
04.08.2009 11:53:29
Thread-ID: 1093446
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige